VBA 循环遍历文本框

在 VBA 中，文本框是一种常见的用户界面控件。通过循环遍历文本框，我们可以对多个文本框进行统一的操作，方便实现对用户界面的交互控制。

下面我们以一个示例代码来演示如何循环遍历文本框和对文本框进行操作。

示例代码

Sub LoopThroughTextBoxes()
    Dim myForm As UserForm
    Set myForm = UserForm1
    
    Dim myControl As Control
    
    For Each myControl In myForm.Controls
        If TypeName(myControl) = "TextBox" Then
            ' 对文本框进行操作
            myControl.Text = "Hello, world!"
        End If
    Next myControl
End Sub

在上面的代码中，我们首先定义一个 UserForm 对象，并将其赋值给 myForm 变量。接着使用 For Each 循环遍历 myForm 中的每一个控件 myControl。如果该控件是 TextBox，则对其进行操作，将其文本值设为 "Hello, world!"。

代码解释

• Dim myForm As UserForm：定义 UserForm 对象 myForm
• Set myForm = UserForm1：将 UserForm1 赋值给 myForm
• Dim myControl As Control：定义 Control 对象 myControl
• For Each myControl In myForm.Controls：对 myForm 中的每一个控件进行循环遍历
• If TypeName(myControl) = "TextBox" Then：判断 myControl 是否为 TextBox
• myControl.Text = "Hello, world!"：将 myControl 的文本值设为 "Hello, world!"

注意事项

• 在使用 For Each 循环时，需要指定循环变量的类型。我们使用 Control 类型，可以对表单中的所有控件进行循环遍历。
• 在使用 TypeName 函数时，需要指定一个对象。我们使用 myControl 对象，可以获取当前循环遍历到的控件类型。
• 在使用 UserForm 对象时，需要先将其定义并初始化，才能对其进行操作。

以上就是使用 VBA 循环遍历文本框的示例代码和说明，希望对你有所帮助！