Userform1.Label1 需要有循环更新20个Labels.Caption答案

【问题标题】：Userform1.Label1 Need to have a loop to update 20 Labels.CaptionUserform1.Label1 需要有循环更新20个Labels.Caption
【发布时间】：2017-11-03 18:21:36
【问题描述】：

我有一个宏，我需要使用循环更新 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

【问题讨论】：

标签： excel vba label userform

【解决方案1】：

UserForm1.Controls("Label" & j).Caption = Range("q" & j).Value

【讨论】：