VBA中如何通过字符串引用对象？数独开发标签遍历问题咨询

嘿，我完全懂你想实现的功能——遍历81个Label控件，把和Label1标题相同的控件背景色改成和Label1一致对吧？你的思路没问题，但VBA里不能直接用字符串当作对象名来调用属性，你原来写的"labelnum"只是个普通字符串，VBA根本不知道你指的是哪个控件。

正确的实现方法：利用控件集合（Controls Collection） #

在VBA窗体中，所有控件都属于窗体的Controls集合，你可以通过控件的名称（也就是你拼接出来的"Label" & i）来获取对应的控件对象。下面是修改后的完整代码：

Dim i As Integer
Dim labelnum As String
Dim targetLabel As Control ' 定义变量存放目标控件，让代码更清晰

For i = 1 To 81
    labelnum = "Label" & i
    
    ' 先检查控件是否存在，避免因控件缺失导致运行错误
    If Not Me.Controls(labelnum) Is Nothing Then
        Set targetLabel = Me.Controls(labelnum)
        
        ' 对比标题并设置背景色
        If targetLabel.Caption = Label1.Caption Then
            targetLabel.BackColor = Label1.BackColor
        End If
    End If
Next i

关键细节说明 #

• Me.Controls(labelnum)：Me代表当前窗体，Controls(labelnum)通过你拼接的控件名称，从窗体的控件集合中取出对应的Label对象，这才是有效的对象引用。
• Set关键字：在VBA中给对象变量赋值必须用Set，不能直接赋值，这也是新手容易踩的坑。
• 控件存在性检查：加上If Not Me.Controls(labelnum) Is Nothing Then是为了保险，如果某个编号的Label不存在（比如不小心删了或者编号不连续），代码不会直接报错，而是跳过该循环。

特殊情况：控件在容器内 #

如果你的Label控件是放在Frame、PictureBox这类容器里的，那就要用容器的Controls集合来获取，比如控件在Frame1里，代码要改成：

Set targetLabel = Frame1.Controls(labelnum)

这样修改后，你的数独程序就能正确实现需求啦！

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