Excel窗体中能否使用点符号引用变量名？

1. 你写的点符号引用变量名的写法不可行 #

你代码里的Var_Name是字符串类型变量，With语句要求的是对象引用，直接把字符串变量放进With里会触发错误。正确的做法是通过窗体的Controls集合，用控件名称字符串获取对应的控件对象，再结合With操作：

Private Sub Close_Button_Click()
    Dim Var_Name As String
    Var_Name = "Label1"
    With Me.Controls(Var_Name)
        .Caption = "Hello, world"
    End With
End Sub

2. 循环处理批量文本标签 #

可以遍历窗体的Controls集合，筛选出标签类型的控件进行批量处理。比如统一修改所有标签的内容，或者按名称前缀筛选特定标签：

Private Sub ProcessLabels()
    Dim ctl As Control
    ' 遍历窗体所有控件
    For Each ctl In Me.Controls
        ' 判断是否为标签控件
        If TypeName(ctl) = "Label" Then
            ' 这里写你的处理逻辑，比如修改标题
            ctl.Caption = "批量更新后的内容"
            ' 也可按名称前缀筛选：If Left(ctl.Name, 5) = "Label" Then ...
        End If
    Next ctl
End Sub

3. 运行时动态添加文本标签 #

完全可以在程序运行时动态创建标签，使用Me.Controls.Add方法即可，同时要设置标签的位置、大小、名称等必要属性：

Private Sub AddLabelDynamically()
    Dim newLabel As Control
    ' 创建新的标签控件
    Set newLabel = Me.Controls.Add("Forms.Label.1")
    ' 设置标签的各项属性
    With newLabel
        .Name = "DynamicLabel_" & Me.Controls.Count ' 确保名称唯一
        .Caption = "动态添加的标签"
        .Top = 20 * Me.Controls.Count ' 垂直方向错开排列
        .Left = 20
        .Width = 150
        .Height = 20
        .Visible = True
    End With
End Sub

内容的提问来源于stack exchange，提问作者Justin