Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2266|回复: 3

[已解决][求助]关于ActiveX控件中Text.Box的一个问题

[复制链接]
发表于 2011-10-11 22:26 | 显示全部楼层 |阅读模式
我利用控件做了个Text.Box,里面有一些名字,如下图所示(张三,李四,王五,一行只有一个名字)。我想得到的结果是将每个名字用单引号分开并赋值给一个字符串namelist,形如:namelist='张三','李四','王五'。我用了下面代码:
Sub namelisting()
Dim namelist As String
Dim nam As String
Dim nams() As String
Dim x As Integer

Set res = Workbooks("Test.xlsm").Worksheets("Sheet3")
res.Activate
nam = UCase(TextBox1.Text)
nams = Split(nam, vbCrLf)
x=UBound(nams)
namelist="'" & nams(0) & "'"
For i=1 to x
namelist=namelist & "," & "'" & nams(x) & "'"
Next i
End Sub

Text.Box 的代码:
Private Sub TextBox1_Change()
End Sub


但是最后我发现namelist最后是空值,但Text.Box里面我写了值得啊,这是怎么回事?而且我进一步发现代码中的x值等于-1,这是为什么?又该怎么改这个代码,请教大家?
最佳答案
2011-10-12 09:22
x=-1,说明nams为空数组

支持2楼,有附件才好测试找原因
textbox.png
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2011-10-12 08:59 | 显示全部楼层
回复

使用道具 举报

发表于 2011-10-12 09:22 | 显示全部楼层    本楼为最佳答案   
x=-1,说明nams为空数组

支持2楼,有附件才好测试找原因
回复

使用道具 举报

 楼主| 发表于 2011-10-16 21:33 | 显示全部楼层
回复 爱疯 的帖子

问题已经解决了
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 07:22 , Processed in 0.374006 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表