软件:
MicroSoft Office
版本:
??
抱歉不知道怎么搜寻解答 所以就来打扰大家了
我在工作表中放置一个按钮
按下去后执行userform1.show
在userform1中 有20个 textbox
我希望在userform1.show之前
把userform1的20个textbox 依序默认为 A1~A20的值
并且把textbox反白
selstart = 0
sellength =len(textbox1.value)
=====================================
Question 1
userform1.textbox1.value = range("A1").value
userform2.textbox2.value = range("A2")....
我需要写20次 且要逐一更改textbox的1 ,2 3 ...
请问可以用变量写?
Question 2
textbox1.selstart =0
textbox1.sellength = len(textbox1.value)
我以前会这样写... 请问len中的textbox1.value有别的函数可以取代吗
或者选取(反白)有更简单的写法 ?
3Q

循环配合controls来指定到textbox的名称range的值同样在循环内偏移

thx a lotlen(activecontrol.value)

for i = 1 to 20controls("textbox" & i).value = _sheets("工作表1").cells(i,1)next iQ2的问题 依样要用controls("textbox" & i).valuewow Q1 没注意到不同的userform不然你在userform 用controls的方式,但我没试过但如果是像是textbox的控件事可以的