[算表] excel vba textbox multiline輸入(出)

看板Office作者 (CamryHybridQ)時間7年前 (2017/04/29 15:27), 7年前編輯推噓0(0026)
留言26則, 2人參與, 最新討論串1/1
office 2016 excel 請教各位大神 已知textbox可以multiline登打資料上去 ========== 比方說資料呈現如下 in textbox1 ========== aaa bbbb cc ddd ========== 我該如何把aaa丟到range.[a1] bbbb丟到range.[a2] cc丟到range.[a3] ddd丟到range.[a4] 另外,如果想反向把range的資料 丟到textbox2,該如何處理? google找不太到資料,也許是我看不懂 故懇請各位大神提供簡單範例研究 謝謝 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 36.236.102.10 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1493450872.A.6D1.html

04/29 15:46, , 1F
變數接收split分割textbox value的arrya,再以ubound取得
04/29 15:46, 1F

04/29 15:47, , 2F
維度的最高值,再以range.resize該最高值,指定到先前所分
04/29 15:47, 2F

04/29 15:50, , 3F
割的變數;array base 0起的話,最高值請加1
04/29 15:50, 3F

04/29 15:52, , 4F
指定到先前所分割變數請配合worksheetfunction的transpose
04/29 15:52, 4F

04/29 15:55, , 5F
反向上,可以worksheetfucntion的transpose將單欄複數列的
04/29 15:55, 5F

04/29 15:56, , 6F
讀入變數內,再以join的方式丟至textbox2
04/29 15:56, 6F

04/29 15:56, , 7F
謝謝s大,但很抱歉…,語法我都全看過,還是不知如
04/29 15:56, 7F

04/29 15:56, , 8F
何著手…^^"我好像問了超乎自己能力的問題(汗)…
04/29 15:56, 8F

04/29 15:57, , 9F
04/29 15:57, 9F

04/29 16:00, , 10F
變數=split(textbox1,vbcrlf)
04/29 16:00, 10F

04/29 16:01, , 11F
[a1].resize(ubound(變數)+1)=worksheetfunction.transpos
04/29 16:01, 11F

04/29 16:01, , 12F
e(變數)
04/29 16:01, 12F

04/29 16:02, , 13F
反向則用到transpose再配合join
04/29 16:02, 13F

04/29 16:03, , 14F
謝謝s大,我研究研究…
04/29 16:03, 14F

04/29 17:51, , 15F
感謝s大,丟到cell的部分已經ok,但是cell丟text2的
04/29 17:51, 15F

04/29 17:52, , 16F
的部分,可否再麻煩s大撥冗教學一下…。
04/29 17:52, 16F

04/29 17:53, , 17F
變數=range
04/29 17:53, 17F

04/29 17:54, , 18F
上面range外加上transpose的部分
04/29 17:54, 18F

04/29 17:55, , 19F
textbox2=join(變數,分隔符號就看原po要以什麼
04/29 17:55, 19F

04/29 18:01, , 20F
成功了…,s大太神了…。
04/29 18:01, 20F

04/29 18:01, , 21F
十分感謝s大的指導
04/29 18:01, 21F

04/29 18:05, , 22F
那再請教一下,我從range叫回來的資料是以"列"排列
04/29 18:05, 22F

04/29 18:06, , 23F
如果想要用"行"來排列該怎麼做呢?謝謝
04/29 18:06, 23F
※ 編輯: CamryHybridQ (122.117.124.204), 04/29/2017 18:06:41

04/29 18:19, , 24F
欄的話,可以迴圈合併字串,再以textbox2=字串
04/29 18:19, 24F

04/29 21:13, , 25F
謝謝,繼續研究
04/29 21:13, 25F

04/29 22:45, , 26F
成功惹,感謝s大(淚)
04/29 22:45, 26F
文章代碼(AID): #1P141uRH (Office)