我可以使用字符串引用对象吗？

所以我的代码如下所示：

Dim i As Integer
Dim labelnum As String

For i = 1 To 81
    labelnum = "Label" & i
    If "labelnum".Caption = Label1.Caption Then
    "labelnum".BackColor = Label1.BackColor
    End If
Next i

我想循环浏览 81 个标签，检查该标签中的标题是否与我选择的标题相同。我还可以在显示“labelnum”的地方放置其他内容吗？

我正在练习并尝试通过 VBA 制作数独。我想突出显示我选择的框，并突出显示板上具有相同数字的所有其他方块。

Thanks!

在工作表中，标签是Shape对象，因此您可以使用Shapes收藏：

Dim i As Integer
Dim shpLabel As Shape

For i = 1 To 81
    Set shpLabel = Sheet1.Shapes("labelnum" & i)
    If shpLabel.Caption = Label1.Caption Then
        shpLabel.BackColor = Label1.BackColor
    End If
    Set shpLabel = Nothing
Next i

 
在用户窗体中，标签是Control对象，因此您可以使用Controls收藏：

Dim i As Integer
Dim ctrlLabel As Control

For i = 1 To 81
    Set ctrlLabel = Me.Controls("labelnum" & i)
    If ctrlLabel.Caption = Label1.Caption Then
        ctrlLabel.BackColor = Label1.BackColor
    End If
    Set ctrlLabel = Nothing
Next i