Dim i As Long，u As Long，p As Long '定義變量I為長整型，u為長整型，p為長整型。
' Dim j As Integer，t，q，LL As Integer '定義變量j為整數值，t，q，LL為整數值。
' Dim bh As String '將變量bh定義為壹個字符串。
' Dim JUDGE As String '將變量JUDGE定義為字符串。
' Dim STP As Integer '將變量STP定義為壹個整數值。
數字
如果Range("m6") = " "那麽' If Area ("m6")= null，就會執行。
bh =格式(現在是“yyyymmdd”)& amp；" 001"' bh=Format(當前時間，" yyyymmdd ")&；"001"
range(" M6 ")= BH ' & lt；單元格>面積(" m6")= bh
如果判斷過程結束，則結束If。
數字
If格式(現在，" yyyymmdd") = left(單元格(6，12)，8) If格式(當前時間，" yyyymmdd ")=(& lt；執行Cell > Coordinate (6，12)，8)。
bh =格式(現在是“yyyymmdd”)& amp；右(" 000000 " & ampCSTR (Cint (right (cells (6，12)，3)+1)，3)' BH = format(當前時間，“yyyymmdd”)&；截取字符串的右邊(" 000000 " &；CStr(CInt(截取字符串的右側(坐標(6，12)，3))+1)，3)
range(" M6 ")= BH ' & lt；單元格>面積(" m6")= bh
另外，此外
bh =格式(現在是“yyyymmdd”)& amp；" 001"' bh=Format(當前時間，" yyyymmdd ")&；"001"
Cells(6，12)= BH ' & lt；單元格>坐標(6，12)= bh
如果判斷過程結束，則結束If。
If範圍(“S3”)。Value = 2 Then' If如果area ("S3 ")的值是2，它將被執行。
If單元格(7，5)。Value = "" Then' If如果坐標(7，5) = null，則執行。
MsgBox "收款單位不能為空。"，vbOKOnly，“友情提醒！！!"& lt消息框>:“收款單位不能為空。”，vbOKOnly，“友情提醒！！!"
細胞(7，5)。選擇' & lt單元格>坐標的選擇(7，5)
退出子程序
如果判斷過程結束，則結束If。
如果判斷過程結束，則結束If。
我=9 '我= 9
Do直到Len(Range(" F " & amp；我)。Text) = 0 '執行循環操作，直到；(& lt單元格>面積(" f " &；I)文本)=0
If單元格(I，4)。Value = "" Then' If如果坐標(I，4)的值= null，則執行。
MsgBox "日期不能為空。，vbOKOnly，“友情提醒！！!"& lt消息框>:“日期不能為空。”，vbOKOnly，“友情提醒！！!"
細胞(I，4)。選擇' & lt單元格>坐標的選擇(I，4)
退出子程序
如果判斷過程結束，則結束If。
If單元格(I，9)。Value = "" Then' If如果坐標(I，9)的值= null，則執行。
MsgBox "數量不能為空。，vbOKOnly，“友情提醒！！!"& lt消息框>:“數量不能為空。”，vbOKOnly，“友情提醒！！!"
細胞(I，9)。選擇' & lt單元格>坐標的選擇(I，9)
退出子程序
如果判斷過程結束，則結束If。
i = i + 1 'i=i+1
“循環”循環執行
If單元格(9，4)。價值& lt& gt" "那麽'如果如果坐標(9，4)的值不等於空值，它將被執行。
如果Range("s3") = 1，則執行' If Area ("s3")=1。
JUDGE= "收據清單" ' JUDGE = "收據清單'
STP = 16 'STP=16
另外，此外
JUDGE= "出庫清單" ' JUDGE = "出庫清單'
STP = 31 'STP=31
如果判斷過程結束，則結束If。
床單(法官)。選擇' & lt工作表>選擇(判斷)
ActiveSheet。“取消保護”取消對活動工作表的保護。
i = Val(張(法官)。範圍(" b65536 ")。結束(xlUp)。row)' I = & lt；提取數字>(& lt工作表>(判斷) <單元格>(帶有向上方向的線條標簽)。
U = Val(紙張(“文件輸入”)。範圍(“T3”)。value)' u =(& lt；工作表>("文檔輸入") <單元格>區域的值(" T3 "))
P = Val(表(“文件輸入”)。範圍(“u3”)。value)' p =(& lt；工作表>("文檔輸入") <單元格>區域的值(" U3 "))
對於t=1到p '設置變量範圍從t = 1到p。
對於j=1到u+1 '設置變量範圍從j = 1到u+1。
床單(法官)。單元格(I+t，j)。value = sheets(“文檔輸入”)。細胞(8+t，j+STP-1)。value '(判斷)< Cell >坐標的值(i+t，j) =("文檔輸入")< Cell >坐標的值(8+t，j+STP-1)
下壹個j，下壹個j
下壹個是下壹個
Activesheet。' protectdrawingobjects: =True，contents: =True，scenarios: =True '活動工作表的受保護圖形=True，content = true，scheme = true。
工作表(“文件輸入”)。選擇選定的'(“文檔條目”)
ActiveWorkbook。保存保存。
MsgBox“保存成功”，vbokonly:“保存成功”，vbOKOnly
ActiveSheet。“取消保護”取消對活動工作表的保護。
範圍(“E7，H7，K7，M6，D9:E15，E15，i9:i15，l9:l15，N9:N15”)。選擇' & lt單元格>區域選擇(“E7，H7，K7，M6，D9: E15，E15，I9: I15，L9: L15，N9: N15”)。
選擇。“ClearContents”是選項的清除內容。
Activesheet。' protectdrawingobjects: =True，contents: =True，scenarios: =True '活動工作表的受保護圖形=True，content = true，scheme = true。
如果判斷過程結束，則結束If。
範圍(“E7”)。選擇' & lt單元格>區域選擇(" E7 ")
' End Sub '子程序結束。