[已解决]我想通过循环把textbox1到15的内容连接起来，怎么在控件名称中加入变量？

jessylake · 发表于 2014-12-14 14:14

本帖最后由 jessylake 于 2014-12-14 15:08 编辑

怎么在控件名称中加入变量？

把texbox内容串起来.rar (30.29 KB, 下载次数: 24)

sliang28 · 发表于 2014-12-14 14:28

UserForm1.Controls("TextBox" & i)

jessylake · 发表于 2014-12-14 14:37

sliang28 发表于 2014-12-14 14:28
UserForm1.Controls("TextBox" & i)

只能在窗体里用吗？我这个是在表里，没有窗体

sliang28 · 发表于 2014-12-14 14:44

这个最佳答案由 sliang28 给出，感谢 sliang28 的回答。

单击隐藏图章

jessylake 发表于 2014-12-14 14:37
只能在窗体里用吗？我这个是在表里，没有窗体

附件我没有看，在工作表就试下这个
Sheet1.OleObjects("TestBox" & i).Object

jessylake · 发表于 2014-12-14 15:00

本帖最后由 jessylake 于 2014-12-14 15:07 编辑

sliang28 发表于 2014-12-14 14:44
附件我没有看，在工作表就试下这个
Sheet1.OleObjects("TestBox" & i).Object

Sub test()
Dim join As String, i As Integer
With Sheets("测试")
For i = 1 To 15
      If .OLEObjects("textbox" & i).ObjectObject.Value = "" Then
         Exit For
      Else
         join = join & .OLEObjects("textbox" & i).Object.Value
      End If
Next
End With
End Sub

终于搞定！

02761752696 · 发表于 2017-11-15 14:49

学习

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