VBA 连接符&的事儿，请指教！

Zhjonhse · 发表于 2019-1-16 00:35

各位老师

               Dim i%
                  For i = 1 To 5
                  k = 30 + i
                  Rng.Offset(1, i + 3) = UserForm2.TextBox & k & .Text

                  Next

对于以上语句，第4行语句（UserForm2.TextBox & k & .Text）总报错。愿意是：由于窗体中赋值的文本框比较多，所以用个循环简单一下，没想到，一晚上也没搞定。文本框是从TEXTBOX31到TEXTBOX39 (例如)，用&连接一直没有成功，后来就加了第3语句，想这样简单些，但还没有搞定。请各位老师指教！

多谢！

xinhangxing123 · 发表于 2019-1-16 11:17

我也遇到了

Zhjonhse · 发表于 2019-1-16 11:50

xinhangxing123 发表于 2019-1-16 11:17
我也遇到了

可能不支持控件名称吧，但不应该啊，我感觉还是我的代码有问题

Zhjonhse · 发表于 2019-1-16 13:11

还请老师们给个建议，如果实现不了，那就只能用古老的办法了。

Zhjonhse · 发表于 2019-1-16 20:35

xinhangxing123 发表于 2019-1-16 11:17
我也遇到了

刚才网搜了下，找到答案了好像。就是先将TEXTBOX#赋值成一个字符串，然后再引用就可了。
如 J = "TEXTBOX" & i
引用时用 USERFORM1.CONTROLS(J).TEXT
你试试
我是新学生

		自动登录	找回密码
密码			免费注册

[经验交流] VBA 连接符&的事儿，请指教！

最新热点 /1