Office学习社区 › 宏和VBA小程序开发 › [求助]请问在VBA中,如何用循环语句对多个文本框清空或赋值?

quding 发表于 2016-4-12 12:20:20

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

请问在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 发表于 2016-4-12 16:20:01

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

user_qzaye 发表于 2016-4-12 16:27:41

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

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