VBA自学应用（8）——文本框中按Enter键输入数据

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    With TextBox1
        If Len(Trim(TextBox1.Text)) > 0 Then
            If KeyCode = vbKeyReturn Then
                Range("a" & Cells(Rows.Count, 1).End(3).Row).Offset(1).Value = .Text
                .Text = ""
            End If
        End If
    End With
End Sub