|
楼主 |
发表于 2020-2-13 14:42
|
显示全部楼层
Option Explicit
Private Sub UserForm_Initialize()
规格.List = Array("精选50g", "精选60g", "精选100g", "精选150g", "精选200g")
End Sub
Private Sub 确定_Click()
'判断信息是否输入完整
If 品名.Value = "" Or 规格.Value = "" Or 产地.Value = "" Or 原料数量.Value = "" Or 原料编号.Value = "" Or 生产批号.Value = "" Or 生产日期.Value = "" Or 成品数量.Value = "" Then
MsgBox "信息输入不完整,请重新输入!", vbExclamation, "错误提示"
Exit Sub '退出执行程序
End If
Dim xrow As Integer
xrow = Range("J1").CurrentRegion.Rows.Count + 1 '这个我想换成J列最后一个非空行
'将信息写入第一条空行
Cells(xrow, "J") = 品名.Value
Cells(xrow, "M") = 规格.Value
Cells(xrow, "D") = 产地.Value
Cells(xrow, "G") = 原料数量.Value
Cells(xrow, "C") = 原料编号.Value
Cells(xrow, "K") = 生产批号.Value
Cells(xrow, "L") = 生产日期.Value
Cells(xrow, "O") = 成品数量.Value
'内容写进工作表后,将控件中的内容清除
品名.Value = ""
规格.Value = ""
产地.Value = ""
原料数量.Value = ""
原料编号.Value = ""
生产批号.Value = ""
生产日期.Value = ""
成品数量.Value = ""
End Sub
Private Sub 退出_Click()
Unload Me
End Sub
‘附上原代码
|
|