根据具有不同宏的数字值自动生成按钮

Question

我有一个"发布"按钮，该按钮：将数字分配给特定的单元格，计数数字，创建PDF文档，制作历史邮票等。

我需要根据不同宏的数字自动生成按钮。

例如：

如果目标单元格值= 4，则使用分配的宏1、2、3、4。

创建4个按钮

如果值= 5，则创建5个按钮并分配宏1、2、3、4、5等。

每个分配的宏都会有所不同。（按钮的最大计数应为20。）

Answer 1

在您的工作表中，您应该创建20个按钮。从这里分配给它们的相等价值的宏，然后隐藏每个人。从这里，您可以循环启用当前目标单元格值的可见性。在这种情况下A1。

Dim MyVal As Long
MyVal = Range("A1").Value
For i = 1 To MyVal
    ActiveSheet.Buttons("Button " + CStr(i)).Visible = True
Next i

Answer 2

您必须对删除等进行排序，但是类似的东西

Sub SortButtons()
Dim intButton As Integer
Dim cbNewButton As Button
Const intHeight = 30
For intButton = 1 To 4
    Set cbNewButton = ActiveSheet.Buttons.Add(224.25, (intButton * intHeight) + 20, 90.75, intHeight)
    cbNewButton.OnAction = "Macro" & intButton
    cbNewButton.Text = "Button for Macro " & intButton
    cbNewButton.Name = "OK_TO_DELETE_" & intButton
Next intButton
End Sub