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

quding

请问在VBA中,如何用循环语句对多个文本框清空或赋值?(已自己解决)如:在一张幻灯片上建立8个文本框,TextBox1....TextBox8,在公共模块上建公用组Const MAX_COUNT = 8Public p_txb(MAX_COUNT) As TextBox和过程Sub init_1()Set p_txb(1) = Slide2.TextBox1Set p_txb(2) = Slide2.TextBox2Set p_txb(3) = Slide2.TextBox3Set p_txb(4) = Slide2.TextBox4Set p_txb(5) = Slide2.TextBox5Set p_txb(6) = Slide2.TextBox6Set p_txb(7) = Slide2.TextBox7Set p_txb(8) = Slide2.TextBox8end sub在首页上运行这个过程，任何页面上均可引用序号i、,j 指定文本框了，如p_txb(i).text = p_txb(j).text

zzzz81559

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

user_qzaye

自己解决了,还不满意,请高手指点.见文件
K3wCB7mh.rar (18.67 KB, 下载次数: 62)

2016-4-7 19:49 上传

点击文件名下载附件