【VBA】遍历控件的方法 
━━━━━━━━━━━━━━━━━━━━━━━━━

如果窗体或工作表中的控件很多，在写代码时，如果是相同的代码，可以使用循环语句遍历控件，无需每个控件都写相同的代码，以减少代码量。 

一、 使用名称中的变量遍历控件 
━━━━━━━━━━━━━━━━━━━━━━━━━ 

如果控件使用系统缺省名称，如“TextBox1”、“TextBox2”，前面是固定的字符串，后面是序号的，可以使用For...Next 语句循环遍历控件。 
对于窗体中的控件，如下面的代码所示。 

Private Sub Commanon1_Click() 
    Dim i As Integer 
    For i = 1 To 3 
        Me.Controls("TextBox" & i) = "" 
    Next 
End Sub 

对于工作表中的控件，如下面的代码所示。 

Private Sub Commanon1_Click() 
    Dim i As Integer 
    For i = 1 To 4 
        Me.OLEObjects("TextBox" & i).Object.Text = "" 
    Next 
End Sub 

二、 使用对象类型遍历控件 
━━━━━━━━━━━━━━━━━━━━━━━━━ 

如果控件的名称没有规律，可以使用For Each...Next 语句循环遍历所有控件，使用TypeName函数返回控件的对象类型，根据控件的对象类型进行相应的操作。 
对于窗体中的控件，如下面的代码所示。

 
Private Sub Commanon1_Click() 
    Dim Ctr As Control 
    For Each Ctr In Me.Controls 
        If TypeName(Ctr) = "TextBox" Then 
            Ctr = "" 
        End If 
    Next 
End Sub 

对于工作表中的控件，则使用下面的代码。

 
Private Sub Commanon1_Click() 
    Dim Obj As OLEObject 
    For Each Obj In Me.OLEObjects 
        If TypeName(Obj.Object) = "TextBox" Then 
            Obj.Object.Text = "" 
        End If 
    Next 
End Sub