作者CamryHybridQ (CamryHybridQ)
看板Office
標題[算表] excel vba有關textbox multiline輸入（
時間Sat Apr 29 15:27:50 2017
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://webptt.com/m.aspx?n=bbs/Office/M.1493450872.A.6D1.html
1F：→ soyoso: 變數接收split分割textbox value的arrya，再以ubound取得 04/29 15:46
2F：→ soyoso: 維度的最高值，再以range.resize該最高值，指定到先前所分 04/29 15:47
3F：→ soyoso: 割的變數；array base 0起的話，最高值請加1 04/29 15:50
4F：→ soyoso: 指定到先前所分割變數請配合worksheetfunction的transpose 04/29 15:52
5F：→ soyoso: 反向上，可以worksheetfucntion的transpose將單欄複數列的 04/29 15:55
6F：→ soyoso: 讀入變數內，再以join的方式丟至textbox2 04/29 15:56
7F：→ CamryHybridQ: 謝謝s大，但很抱歉…，語法我都全看過，還是不知如 04/29 15:56
8F：→ CamryHybridQ: 何著手…^^"我好像問了超乎自己能力的問題（汗）… 04/29 15:56
9F：→ CamryHybridQ: 。 04/29 15:57
10F：→ soyoso: 變數=split(textbox1,vbcrlf) 04/29 16:00
11F：→ soyoso: [a1].resize(ubound(變數)+1)=worksheetfunction.transpos 04/29 16:01
12F：→ soyoso: e(變數) 04/29 16:01
13F：→ soyoso: 反向則用到transpose再配合join 04/29 16:02
14F：→ CamryHybridQ: 謝謝s大，我研究研究… 04/29 16:03
15F：→ CamryHybridQ: 感謝s大，丟到cell的部分已經ok，但是cell丟text2的 04/29 17:51
16F：→ CamryHybridQ: 的部分，可否再麻煩s大撥冗教學一下…。 04/29 17:52
17F：→ soyoso: 變數=range 04/29 17:53
18F：→ soyoso: 上面range外加上transpose的部分 04/29 17:54
19F：→ soyoso: textbox2=join(變數，分隔符號就看原po要以什麼 04/29 17:55
20F：→ CamryHybridQ: 成功了…，s大太神了…。 04/29 18:01
21F：→ CamryHybridQ: 十分感謝s大的指導 04/29 18:01
22F：→ CamryHybridQ: 那再請教一下，我從range叫回來的資料是以"列"排列 04/29 18:05
23F：→ CamryHybridQ: 如果想要用"行"來排列該怎麼做呢？謝謝 04/29 18:06
※ 編輯: CamryHybridQ (122.117.124.204), 04/29/2017 18:06:41
24F：→ soyoso: 欄的話，可以迴圈合併字串，再以textbox2=字串 04/29 18:19
25F：→ CamryHybridQ: 謝謝，繼續研究 04/29 21:13
26F：→ CamryHybridQ: 成功惹，感謝s大（淚） 04/29 22:45