excel vba 数字组合

学徒工（业务余爱好）请教高手，谢谢指教！

例：有九个文本框

text1(0).text="a"

text1(1).text="b"

text1(2).text=""

text2(0).text="1"

text2(1).text="2"

text2(2).text="3"

text3(0).text ="d"

text3(1).text="e"

text3(2).text=""

 

用下面这种循环

For x1 = 1 To 2
    For x2 = 1 To 3
        For x3 = 1 To 2

                 print   x1 & x2 & x3

         next x3

next x2

next 1

 

'要求在循环时把空的文本框排出。其结果如下：

 

a1d

a2d

a3e

b1d

b2d

b3d

最后把结果输入在excel表中，并将文本框的内容保存另一个工作表中。

 

谢谢高手了！

 

假设这九个文本框都在窗体UserForm1中，名字分别叫 TextBox11、TextBox12、TextBox13、TextBox21、TextBox22、TextBox23、TextBox31、TextBox32、TextBox33

代码如下：
Sub test()
Dim i, j, k, l As Integer
Dim xStr As String
l = 1
For i = 1 To 3
For j = 1 To 3
For k = 1 To 3
xStr = UserForm1.Controls("TextBox1" & i).Text & UserForm1.Controls("TextBox2" & j).Text & UserForm1.Controls("TextBox3" & k).Text
If Len(xStr) = 3 Then
Cells(l, 5) = xStr
l = l + 1
End If
Next
Next
Next
End Sub

留下邮箱

E-mail你