[求助]请问在VBA中,如何用循环语句对多个文本框清空或赋值?

abzzl · 发表于 2006-3-21 06:37

请问在VBA中,如何用循环语句对多个文本框清空或赋值?(已自己解决) 如:在一张幻灯片上建立8个文本框,TextBox1....TextBox8, 在公共模块上建公用组 Const MAX_COUNT = 8 Public p_txb(MAX_COUNT) As TextBox 和过程 Sub init_1() Set p_txb(1) = Slide2.TextBox1 Set p_txb(2) = Slide2.TextBox2 Set p_txb(3) = Slide2.TextBox3 Set p_txb(4) = Slide2.TextBox4 Set p_txb(5) = Slide2.TextBox5 Set p_txb(6) = Slide2.TextBox6 Set p_txb(7) = Slide2.TextBox7 Set p_txb(8) = Slide2.TextBox8 end sub 在首页上运行这个过程，任何页面上均可引用序号i、,j 指定文本框了，如 p_txb(i).text = p_txb(j).text 等参见评分系统 http://club.excelhome.net/dispbbs.asp?BoardID=24&ID=157398&replyID=&skin=0

[此贴子已经被作者于2006-3-27 10:26:29编辑过]

多媒体 · 发表于 2006-3-21 09:28

我还没试，一种思路：变量j是整型变量，也许要进行一下变量类型转换。

abzzl · 发表于 2006-3-22 08:37

自己解决了,还不满意,请高手指点.见文件

K3wCB7mh.rar (18.67 KB, 下载次数: 162)

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