VBA如何設定物件為陣列？

[a0807121]

我的表單上有33個按鈕
在VBA中可以將物件名稱設為陣列嗎？
如：Commandbuttin(0)~Commandbuttin(32)
謝謝！

[yem]

我的表單上有33個按鈕
在VBA中可以將物件名稱設為陣列嗎？
如：Commandbuttin(0)~Commandbuttin(32)
謝謝！

物件名稱設為陣列?不大懂，是這樣嗎?

Private Sub UserForm_Initialize()
    Dim ctl As MSForms.Control
    Dim Commandbuttin() As CommandButton
    Dim i%
    i = 1
    For Each ctl In Me.Controls
        '判斷是否為CommandButton
        If TypeName(ctl) = "CommandButton" Then
            ReDim Preserve Commandbuttin(1 To i)
            Set Commandbuttin(i) = ctl
            i = i + 1
        End If
    Next
End Sub

[leonchou]

Dim Commandbutton As New Collection

Private Sub UserForm_Initialize()
' 加入 Commandbutton 集合
For Each ctl In Me.Controls
　If TypeName(ctl) = "CommandButton" Then
　　Commandbutton.Add ctl
　End If
Next
End Sub

Private Sub CommandButton1_Click()
' 讀取 Commandbutton 集合
For i = 1 To Commandbutton.Count
Cells(i, 1) = Commandbutton(i).Name '應用Commandbutton的屬性
Next i
End Sub

相關參考
http://gb.twbts.com/index.php/topic,165.0.html