Userform1.Label1 需要循环更新 20 Labels.Caption
Userform1.Label1 Need to have a loop to update 20 Labels.Caption
我有一个宏，我需要使用循环更新 20 个标签以将范围 a1 更新为 a20 作为标签标题，但我收到错误。
我收到错误是因为我正在使用 Label&j。请提出替代方案
Sub NameListAllocate()
k = Range("Q65536").End(xlUp).Row
For j = 2 To k
UserForm1.Label&j.Caption = Range("q" & j).Value
Next
UserForm1.Show
End Sub
UserForm1.Controls("Label" & j).Caption = Range("q" & j).Value
我有一个宏，我需要使用循环更新 20 个标签以将范围 a1 更新为 a20 作为标签标题，但我收到错误。 我收到错误是因为我正在使用 Label&j。请提出替代方案
Sub NameListAllocate()
k = Range("Q65536").End(xlUp).Row
For j = 2 To k
UserForm1.Label&j.Caption = Range("q" & j).Value
Next
UserForm1.Show
End Sub
UserForm1.Controls("Label" & j).Caption = Range("q" & j).Value