|
本帖最后由 shalisi 于 2020-1-16 22:31 编辑
红色和绿色的代码是相同的,想把红色部分单独写成一个 SUB ,然后用CALL调用, 这样要怎么写,变量要怎么定义
或者有什么其它办法可以减少代码吗?
SUB AA()
Dim bm As String
Dim t As Integer
For t = 11 To 19
bm = Trim(CStr(Sheets("FaHuoDan").Cells(t, 5)))
If t = 11 Then
If bm = "" Then
MsgBox "请录入商品名称!", 48, "系统提示"
Sheets("FaHuoDan").Range("E" & t).Select
Call FaHuoDan_ZhongTui
Exit Sub
End If
If bm <> "" And Trim(CStr(Sheets("FaHuoDan").Cells(t, 3))) = "" Then
MsgBox "请录入编号!", 48, "系统提示"
Sheets("FaHuoDan").Range("C" & t).Select
Call FaHuoDan_ZhongTui
Exit Sub
ElseIf bm <> "" And Trim(CStr(Sheets("FaHuoDan").Cells(t, 6))) = "" Then
MsgBox "请录入规格!", 48, "系统提示"
Sheets("FaHuoDan").Range("F" & t).Select
Call FaHuoDan_ZhongTui
Exit Sub
ElseIf bm <> "" And Trim(CStr(Sheets("FaHuoDan").Cells(t, 9))) = "" Then
MsgBox "请录入单价!", 48, "系统提示"
Sheets("FaHuoDan").Range("I" & t).Select
Call FaHuoDan_ZhongTui
Exit Sub
ElseIf bm <> "" And Trim(CStr(Sheets("FaHuoDan").Cells(t, 11))) = "" Then
MsgBox "请录入数量!", 48, "系统提示"
Sheets("FaHuoDan").Range("K" & t).Select
Call FaHuoDan_ZhongTui
Exit Sub
ElseIf bm <> "" And Trim(CStr(Sheets("FaHuoDan").Cells(t, 12))) = "" Then
MsgBox "请录入单位!", 48, "系统提示"
Sheets("FaHuoDan").Range("L" & t).Select
Call FaHuoDan_ZhongTui
Exit Sub
End If
Else
If bm = "" Then
If Trim(CStr(Sheets("FaHuoDan").Cells(t, 3))) <> "" Or Trim(CStr(Sheets("FaHuoDan").Cells(t, 6))) <> "" Or Trim(CStr(Sheets("FaHuoDan").Cells(t, 9))) <> "" Or Trim(CStr(Sheets("FaHuoDan").Cells(t, 11))) <> "" Or Trim(CStr(Sheets("FaHuoDan").Cells(t, 12))) <> "" Then
MsgBox "此行的商品为空,请删除多余信息!或者录入商品", 48, "系统提示"
Sheets("FaHuoDan").Range("E" & t).Select
Call FaHuoDan_ZhongTui
Exit Sub
End If
End If
If bm <> "" And Trim(CStr(Sheets("FaHuoDan").Cells(t, 3))) = "" Then
MsgBox "请录入编号!", 48, "系统提示"
Sheets("FaHuoDan").Range("C" & t).Select
Call FaHuoDan_ZhongTui
Exit Sub
ElseIf bm <> "" And Trim(CStr(Sheets("FaHuoDan").Cells(t, 6))) = "" Then
MsgBox "请录入规格!", 48, "系统提示"
Sheets("FaHuoDan").Range("F" & t).Select
Call FaHuoDan_ZhongTui
Exit Sub
ElseIf bm <> "" And Trim(CStr(Sheets("FaHuoDan").Cells(t, 9))) = "" Then
MsgBox "请录入单价!", 48, "系统提示"
Sheets("FaHuoDan").Range("I" & t).Select
Call FaHuoDan_ZhongTui
Exit Sub
ElseIf bm <> "" And Trim(CStr(Sheets("FaHuoDan").Cells(t, 11))) = "" Then
MsgBox "请录入数量!", 48, "系统提示"
Sheets("FaHuoDan").Range("K" & t).Select
Call FaHuoDan_ZhongTui
Exit Sub
ElseIf bm <> "" And Trim(CStr(Sheets("FaHuoDan").Cells(t, 12))) = "" Then
MsgBox "请录入单位!", 48, "系统提示"
Sheets("FaHuoDan").Range("L" & t).Select
Call FaHuoDan_ZhongTui
Exit Sub
End If
End If
Next
END SUB
|
|