VBA代码，谁能帮我改成for循环，代码如下：

kissdragon

Private Sub 保存_Click()
With Sheet1
x = .[B65536].End(xlUp).Row + 1
.Range("A" & x) = TextBox1
.Range("B" & x) = TextBox2
.Range("C" & x) = TextBox3
.Range("D" & x) = TextBox4
.Range("E" & x) = TextBox5
.Range("F" & x) = TextBox6
.Range("G" & x) = TextBox7
.Range("H" & x) = TextBox8
.Range("I" & x) = TextBox9
.Range("J" & x) = TextBox10
.Range("K" & x) = TextBox11
.Range("L" & x) = TextBox12
.Range("M" & x) = TextBox13
.Range("N" & x) = TextBox14
.Range("O" & x) = TextBox15
.Range("P" & x) = TextBox16
.Range("Q" & x) = TextBox17
.Range("R" & x) = TextBox18
.Range("S" & x) = TextBox19
.Range("T" & x) = TextBox20
End With
End Sub

黄金万两︶ㄣ

Private Sub 保存_Click()
With Sheet1
    x = .[B65536].End(xlUp).Row + 1
    For i = 1 To 20
        .Cells(x, i) = "TextBox" & i
    Next i
End With
End Sub

kissdragon

谢谢~！
输出后显示
TextBox1        TextBox2        TextBox3        TextBox4        TextBox5

输出不对，这个代码我试过了。

yjh_27

.Cells(x, i) = .OLEObjects("TextBox" & i ).Object.Text

醉眼看尘世

Private Sub 保存_Click()
    For Each mm In Me.Controls
        If mm.Name Like "TextBox*" Then
            x = Right(mm.Name, Len(mm.Name) - 7) * 1
            With Sheet1
            .Cells(.Cells(Rows.Count, x).End(3).Row + 1, x) = mm.Text
            End With
        End If
    Next
End Sub

kissdragon

醉眼看尘世 发表于 2014-10-2 00:18
Private Sub 保存_Click()
    For Each mm In Me.Controls
        If mm.Name Like "TextBox*" Then

大神啊~！请问你给个注解吗？我没看懂

醉眼看尘世

Private Sub 保存_Click()
    For Each mm In Me.Controls       '遍历表单中插入的每个控件。 me代表该userform。
        If mm.Name Like "TextBox*" Then   '判断控件名称是否形如TextBox....
            x = Right(mm.Name, Len(mm.Name) - 7) * 1   '将textboxN的序号取出来
            With Sheet1
            .Cells(.Cells(Rows.Count, x).End(3).Row + 1, x) = mm.Text    '作为Cells的列参数。将mm的值放入对应单元格
            End With
        End If
    Next
End Sub

kissdragon

谢谢各位老师耐心指导~！