作者firelf (火灵)
看板Office
标题[算表] vba textbox
时间Mon Dec 26 17:19:04 2016
软体:
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
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 220.132.84.232
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1482743947.A.067.html
1F：→ soyoso: 回圈配合controls来指定到textbox的名称 12/26 17:24
2F：→ soyoso: range的值同样在回圈内偏移 12/26 17:25
3F：→ firelf: thx a lot 12/27 09:12
4F：→ firelf: len(activecontrol.value) 12/27 10:01
5F：→ waiter337: for i = 1 to 20 12/27 23:02
6F：→ waiter337: controls("textbox" & i).value = _ 12/27 23:03
7F：→ waiter337: sheets("工作表1").cells(i,1) 12/27 23:03
8F：→ waiter337: next i 12/27 23:03
9F：→ waiter337: Q2的问题 依样要用controls("textbox" & i).value 12/27 23:08
10F：→ waiter337: wow Q1 没注意到不同的userform 12/27 23:09
11F：→ waiter337: 不然你在userform 用controls的方式,但我没试过 12/27 23:09
12F：→ waiter337: 但如果是像是textbox的控件事可以的 12/27 23:10
13F：→ firelf: oooh 3Q :P I will try it !! 12/28 08:54