怎样使用VBA文本框输入完毕后自行执行命令？

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Private Sub TextBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger,

 

ByVal Shift As Integer)

 

If KeyCode=vbKeyReturn Then

 

 ActiveSheet.Range("A1")="姓名"

 

  ActiveSheet.Range("B1")="手机号"

 

  ActiveSheet.Range("C1")="地址"

 

  Range("A1048576").End(xlUp).Offset(1, 0)=Me.TextBox1: TextBox1=""

 

  Range("B1048576").End(xlUp).Offset(1, 0)=Me.TextBox2: TextBox2=""

 

  Range("C1048576").End(xlUp).Offset(1, 0)=Me.TextBox3: TextBox3=""

 

  End If

 

End Sub

5、用快捷键F5运行窗体，在文本框中输入朋友通讯录信息后按Enter键，光标跳到第二个文本框，第二个文本框中输入后光标跳至第三个文本框，在第三个文本框中输入完毕后程序将三个框中的信息输出到工作表中，同时清空三个文本框，光标跳转至第一个文本框等待输入下一条信息，如图