VBA 使用循环引用文本框或标签

使用VBA编程时，经常会涉及到在用户界面上添加文本框或标签，以便向用户显示信息或接收输入。有时候，我们需要使用循环来动态地创建多个文本框或标签。下面将介绍如何 ，并提供一个示例代码来演示这个过程。

vba
Sub CreateTextBoxes()
    Dim i As Integer
    
    For i = 1 To 10
        Set txtBox = UserForm1.Controls.Add("Forms.TextBox.1")
        With txtBox
            .Name = "TextBox" & i
            .Left = 10
            .Top = 10 + i * 20
            .Width = 100
            .Height = 20
            .Text = "TextBox" & i
        End With
    Next i
End Sub

vba
Sub CreateLabels()
    Dim i As Integer
    
    For i = 1 To 10
        Set lbl = UserForm1.Controls.Add("Forms.Label.1")
        With lbl
            .Name = "Label" & i
            .Left = 10
            .Top = 10 + i * 20
            .Width = 100
            .Height = 20
            .Caption = "Label" & i
        End With
    Next i
End Sub