怎样使用VBA多表数据录入？

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

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

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

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

Private Sub CommandButton1_Click()

 

  If TextBox1 <> "" And TextBox2 <> "" And TextBox3 <> "" And TextBox4 <> "" Then

 

    With Sheets(Me.ComboBox1.Value).Range("a1048576").End(xlUp)

 

    .Offset(1, 0)=Me.TextBox1

 

    .Offset(1, 1)=Me.TextBox2

 

    .Offset(1, 2)=Me.TextBox3

 

    .Offset(1, 3)=Me.TextBox4

 

    End With

 

    Sheets(Me.ComboBox1.Value).Select

 

    Range("a2:d"&Range("a1048576").End(xlUp).Row).Borders.LineStyle=xlContinuous

 

    Else

 

    MsgBox "所有文本框不能为空！", vbOKOnly+64, "提示"

 

  End If

 

   TextBox1=""

 

   TextBox2=""

 

   TextBox3=""

 

   TextBox4=""

 

   TextBox1.SetFocus

 

End Sub

5、在代码后面输入以下代码，功能是为组合框添加子选项，分别为工作表中所有工作表表名，同时对组合框添加默认显示项目