如何dynamic更新VBA表单中的标签标题？
我想基于存储在工作表中的值dynamic设置标签数组的标题（在VBA表单中）。 到目前为止，我可以像这样一个一个地设置它们：
Label1.Caption = MySheet.Range("A1").Value Label2.Caption = MySheet.Range("B1").Value Label3.Caption = MySheet.Range("C1").Value ... 有很多标签遵循循环模式，我想使用更聪明的东西，比如：
'Method1 For i = 1 To X Dim MyLabel as Object: Set MyLabel = "Label" & i MyLabel.Caption = MySheet.Cells(i + 1, i).Value Next i 'Method2 For i = 1 To X Label(i).Caption = MySheet.Cells(i + 1, i).Value Next I 'Both Methods failed. I really appreciate some feedback on this.
使用Controls对象
For i = 1 To X Controls("Label" & i).Caption = MySheet.Cells(i + 1, i).Value Next