[算表] vba textbox

看板Office作者 (火靈)時間7年前 (2016/12/26 17:19), 編輯推噓0(0013)
留言13則, 3人參與, 最新討論串1/1
軟體: 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

12/26 17:24, , 1F
迴圈配合controls來指定到textbox的名稱
12/26 17:24, 1F

12/26 17:25, , 2F
range的值同樣在迴圈內偏移
12/26 17:25, 2F

12/27 09:12, , 3F
thx a lot
12/27 09:12, 3F

12/27 10:01, , 4F
len(activecontrol.value)
12/27 10:01, 4F

12/27 23:02, , 5F
for i = 1 to 20
12/27 23:02, 5F

12/27 23:03, , 6F
controls("textbox" & i).value = _
12/27 23:03, 6F

12/27 23:03, , 7F
sheets("工作表1").cells(i,1)
12/27 23:03, 7F

12/27 23:03, , 8F
next i
12/27 23:03, 8F

12/27 23:08, , 9F
Q2的問題 依樣要用controls("textbox" & i).value
12/27 23:08, 9F

12/27 23:09, , 10F
wow Q1 沒注意到不同的userform
12/27 23:09, 10F

12/27 23:09, , 11F
不然你在userform 用controls的方式,但我沒試過
12/27 23:09, 11F

12/27 23:10, , 12F
但如果是像是textbox的控件事可以的
12/27 23:10, 12F

12/28 08:54, , 13F
oooh 3Q :P I will try it !!
12/28 08:54, 13F
文章代碼(AID): #1OOE2B1d (Office)