作者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://www.ptt.cc/bbs/Office/M.1482743947.A.067.html
→ soyoso: 迴圈配合controls來指定到textbox的名稱 12/26 17:24
→ soyoso: range的值同樣在迴圈內偏移 12/26 17:25
→ firelf: thx a lot 12/27 09:12
→ firelf: len(activecontrol.value) 12/27 10:01
→ waiter337: for i = 1 to 20 12/27 23:02
→ waiter337: controls("textbox" & i).value = _ 12/27 23:03
→ waiter337: sheets("工作表1").cells(i,1) 12/27 23:03
→ waiter337: next i 12/27 23:03
→ waiter337: Q2的問題 依樣要用controls("textbox" & i).value 12/27 23:08
→ waiter337: wow Q1 沒注意到不同的userform 12/27 23:09
→ waiter337: 不然你在userform 用controls的方式,但我沒試過 12/27 23:09
→ waiter337: 但如果是像是textbox的控件事可以的 12/27 23:10
→ firelf: oooh 3Q :P I will try it !! 12/28 08:54