作者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/cn.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