选择具有变量名称的属性

Question

Dim i As Integer
i = 1
ActiveWorkbook.Worksheets(1).Label & i.Caption = "Checked"

我收到上述代码的语法错误，有人可以帮我指定一个属性名称作为变量，这样我就可以通过for循环运行它来将其应用于多个标签。

感谢。

Answer 1

如果它是Form控件，则：

ActiveWorkbook.Worksheets(1).Shapes("Label " & i).TextFrame.Characters.Text  = "Checked"

如果它是ActiveX控件：

ActiveWorkbook.Worksheets(1).OLEObjects("Label" & i).Object.Caption = "Checked"