使用名称中的变量遍历窗体控件

2016年8月10日 作者： 来源：

如果窗体或工作表中的控件很多，在写代码时，如果是相同的代码，可以使用循环语句遍历控件，无需每个控件都写相同的代码，以减少代码量。
如果控件使用系统缺省名称，如“TextBox1”、“TextBox2”，前面是固定的字符串，后面是序号的，可以使用For...Next 语句循环遍历控件。
对于窗体中的控件，如下面的代码所示。
#001  Private Sub CommandButton1_Click()
#002      Dim i As Integer
#003      For i = 1 To 3
#004          Me.Controls("TextBox" & i) = ""
#005      Next
#006  End Sub
代码解析：
窗体按钮的单击事件，一次性清空窗体中三个文本框的内容。
第4行代码，将窗体中三个文本框名称中的最后一个序号设成变量，在文本框中循环并清空其内容。
对于工作表中的控件，如下面的代码所示。
#001  Private Sub CommandButton1_Click()
#002      Dim i As Integer
#003      For i = 1 To 4
#004          Me.OLEObjects("TextBox" & i).Object.Text = ""
#005      Next
#006  End Sub
代码解析：
工作表中按钮的单击事件，在工作表中的三个文本框中循环，清空文本框的内容。
第4行代码，将工作表中四个文本框名称中的最后一个序号设成变量，使用OLEObjects方法在工作表中的文本框中循环。
OLEObjects方法返回图表或工作表上单个OLE对象（OLEObject）或所有OLE对象的集合（OLEObjects集合）的对象，语法如下：
expression.OLEObjects(Index)
参数expression是必需的，返回一个Chart 对象或Worksheet 对象。
参数Index 是可选的，OLE对象的名称或编号。
注意:控件的名称是指控件在属性窗口中的名称,如果控件的名称没有规律不适用此方法。