Question

excel vb中,当我在textbox1中输入一些字串是相对应textbox2，求大神代码？

当我在textbox1中输入69B383M10B05P;4100;量产1;69B370J10A01P;4200;量产2;69B370F10D02P;4300;量产3;69B370D10A01P;4400;量产4;69B370H10A01P;4500;量产5,然后textbox2,textbox3~textbox16,会依次显示:两个";"之间的数据

Answer 1

dim straa as string
dim strarry 
dim inti as integer

straa=trim(textbox1.text)
strarry = Split(straa, ";")
textbox2=strarry(0)
textbox3=strarry(1)
textbox4=strarry(2)
......
textbox15=strarry(13)
textbox16=strarry(14)

追问

我想写在Private Sub CommandButton1_Click()这里，可以直接些吗

Answer 2

大致是通过split按照分号来分割赋值给数组
dim a
a = split(me.textbox1,";")
textbox2=a(0)
textbox3=a(1)
.....
数组是从0开始的