如何通过变量设置用户窗体对象名称批量切换标签可见性

你的代码存在两个核心问题：

1. 字符串拼接语法错误：原代码引号位置错误，正确的拼接写法应为 "lbl" & i
2. 对象获取方式错误：不能直接用字符串赋值给对象变量，必须通过窗体的Controls集合定位控件

正确实现代码（用户窗体模块内） #

Dim i As Long
Dim targetLabel As Control

' 根据实际需求设置循环范围，示例为1到3
For i = 1 To 3
    ' 通过Controls集合获取对应名称的标签控件
    Set targetLabel = Me.Controls("lbl" & i)
    ' 切换可见性（取反原有状态）
    targetLabel.Visible = Not targetLabel.Visible
Next i

额外注意事项 #

• 确保目标标签的名称严格为lbl1、lbl2...格式，无拼写或格式偏差
• 若在标准模块中操作，需指定具体用户窗体实例，例如：

  Set targetLabel = UserForm1.Controls("lbl" & i)
  

• 可添加错误处理，避免因控件不存在导致报错：

  Dim i As Long
  Dim targetLabel As Control
  
  For i = 1 To 3
      On Error Resume Next
      Set targetLabel = Me.Controls("lbl" & i)
      On Error GoTo 0
      
      If Not targetLabel Is Nothing Then
          targetLabel.Visible = Not targetLabel.Visible
      End If
  Next i
  

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