使用VBA查看所有CommandButtons

Question

我知道这应该很简单....我有一个Excel电子表格，它有一些Commandbuttons（CommandButton1，CommandButton2，...）。我想在for语句中循环遍历这些按钮，而不使用case语句来确定要使用的按钮。我尝试过以下方法：

Dim cButtons(0 to 5) as CommandButton

cButtons(0) = Sheets("Sheet1").CommandButton1
cButtons(1) = Sheets("Sheet1").CommandButton2
'etc...

但是会出现错误“对象变量或未设置块变量”。任何帮助将不胜感激！

Answer 1

为什么不忽略设置Object如果它是一个循环你可以这样做，除非你需要直接引用该对象。

For i=1 To Sheet1.Shapes.Count
    Sheet1.Shapes.Item(i) 'Do Something with it
Next i

如果您确实需要直接引用，可以使用名称

Sheet1.Shapes.Item("CommandButton1") 'Do Something