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.SetFocusEnd Sub
5、在代码后面输入以下代码，功能是为组合框添加子选项，分别为工作表中所有工作表表名，同时对组合框添加默认显示项目
