基于数字值自动生成的button，具有不同的macros

我有一个“释放”button，它将数字分配给特定单元格，统计数字，创buildPDF文档，创build历史邮票等等。

我需要使用不同的macros自动生成基于数字值的button。

例如：

如果目标单元格值= 4，则使用分配的macros1,2,3,4创build4个button。

如果value = 5，则创build5个button并分配macros1,2,3,4,5等。

每个分配的macros将是不同的。 （最大button数应该是20）

Answer 1

在你的工作表中，你应该创build20个button。 从这里把他们分配给他们的同值macros，并隐藏每一个。 从这里您可以循环启用当前目标单元格值的可见性。 在这种情况下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

你将不得不sorting删除等，但这样的事情

 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