2.4.6 在模块内输入代码
Sub 数据录入() '创建数据录入放入宏
a = Sheet2.Cells(Rows.Count, 1).End(xlUp)(2, 1).Row 数据源单元格从下往上数，读取第一列最后一个非空单元格的值并下移一行。（a 为下图的行号。）
If Sheet1.Cells(6, 2) = "" Or Sheet1.Cells(6, 3) = "" Or Sheet1.Cells(6, 4) = "" Then
（Sheet1.Cells(6, 2)：项目名输入框的行号和列号）
MsgBox "请先输入相关信息！"
判断输入框是否有输入内容，如过未输入则弹出"请先输入相关信息！"
的提示框。
Exit Sub
退出宏
End If
数据赋值，将输入框的内容赋值到数据库对应位置， a为行号
Sheet2.Cells(a, 1) = Sheet1.Cells(6, 2) '项目名赋值
Sheet2.Cells(a, 2) = Sheet1.Cells(6, 3) '生产线赋值
Sheet2.Cells(a, 3) = Sheet1.Cells(6, 4) '生产数量赋值
Sheet2.Cells(a, 5) = Sheet1.Cells(8, 2) '责任归属赋值
Sheet2.Cells(a, 4) = Sheet1.Cells(8, 3) '不良数量赋值
Sheet2.Cells(a, 6) = Sheet1.Cells(3, 17) '日期赋值
MsgBox "信息录入成功！"
Sheet1.Range("b6:d6") = "" '单元格清空
Sheet1.Range("b8:c8") = "" '单元格清空
End Sub
2.4.7 指定宏:选择刚刚插入的“录入”按钮，右键选择指定宏，选择刚刚在模块中创建的宏即可。
