[已解决]请教循环给label标签赋值的问题

xiaoniu030

For i = 1 To 44     UserForm1.Label(i).Caption = "label" & a Next 这样写提示方法和数据成员未找到？？该如何循坏赋值给label标签？

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2021-12-10 10:25

userform1(“label” & i).caption=“label” & a
手机打字不便，引号可能需要手工修改。

跳转到最佳答案楼层

大灰狼1976

userform1(“label” & i).caption=“label” & a
手机打字不便，引号可能需要手工修改。

xiaoniu030

大灰狼1976 发表于 2021-12-10 10:25
userform1(“label” & i).caption=“label” & a
手机打字不便，引号可能需要手工修改。

我试下 谢谢

xiaoniu030

大灰狼1976 发表于 2021-12-10 10:25
userform1(“label” & i).caption=“label” & a
手机打字不便，引号可能需要手工修改。

运行错误，提示无法找到指定对象

lisongmei

xiaoniu030 发表于 2021-12-10 10:51
运行错误，提示无法找到指定对象

userform1("Label" & i).Caption=" "

大灰狼1976

如果引号没有问题的话，错误只有一个原因，你的label名称不是label1、label2...

林木水

For i = 1 To 44
    UserForm1.Label(i).Caption = "label" & a
Next

那个a是个啥，定义没有；你是否有44个标签控件，并且名字都是以Label1，Label2...Label44
老师们说的那个是没有问题的，你试试
For i = 1 To 44
    UserForm1("Label" & i).Caption =i
Next

vitrel

7楼的是正解，本想评份，可我是新手，学分不够，评不了，算了。

补充一下，以供参考：
UserForm1("Label" & i).Caption = i '7楼的回答
Me("Label" & i).Caption = i
Me.Controls("Label" & i).Caption = i
Controls("Label" & i).Caption = i
在窗体中，以上4句（任一句）都可以，效果相同。

xiaoniu030

谢谢各位，我按各位提示再试下。

xiaoniu030

林木水 发表于 2021-12-10 18:57
For i = 1 To 44
    UserForm1.Label(i).Caption = "label" & a
Next

谢谢提醒！！