打開(kāi)“單據(jù)文件”工作表，點(diǎn)開(kāi)入庫(kù)單工作表，從A1單元格起，制作一個(gè)入庫(kù)單表格，格式內(nèi)容如圖所示。

在F2單元格插入日期函數(shù)：＝TODAY()。插入日期函數(shù)的作用在于，在我們以后錄單時(shí)可以自動(dòng)生成制單日期，以便提高工作效率。

在B4（品名）單元格輸入公式：=IF(LEN(A4)=0,"",IF(COUNTIF(物料信息!A:A,A4)=0,"無(wú)此編碼",VLOOKUP(A4,物料信息!A:F,2,FALSE)))，然后把公式往下填充到B13單元格。

這個(gè)公式的意思是：如果A4單元格為空（即沒(méi)A4沒(méi)有錄入物料編碼），則B4單元格顯示為空。如果A4單元格不為空（即有錄入編碼），但在“物料信息”的A列沒(méi)有A4單元格中的這個(gè)編碼，B4單元格顯示為“無(wú)此編碼”。如果兩個(gè)條件都滿(mǎn)足，則顯示對(duì)應(yīng)的查找所得的值。篇幅問(wèn)題，至于每個(gè)具體函數(shù)的語(yǔ)法邏輯、用途，這里就不作詳細(xì)解釋了。

在C4（規(guī)格）單元格輸入公式：=IF((LEN(B4)=0)+(B4="無(wú)此編碼"),"",VLOOKUP(A4,物料信息!A:F,3,FALSE))，然后把公式往下填充到C13單元格。

公式的意思是，如果B4單元格為空，或者B4單元格為“無(wú)此編碼”，則C4單元格顯示為空，否則返回VLOOKUP函數(shù)的查找值。

在D4（單位）單元格輸入公式：=IF((LEN(B4)=0)+(B4="無(wú)此編碼"),"",VLOOKUP(A4,物料信息!A:F,4,FALSE))，然后把公式往下填充到D13單元格。

公式的意思如C4。

在E4（單價(jià)）單元格輸入公式：=IF((LEN(B4)=0)+(B4="無(wú)此編碼"),"",VLOOKUP(A4,物料信息!A:F,5,FALSE))，然后把公式往下填充到E13單元格。

在G4（金額）單元格輸入公式：=IF((F4>0)*(E4>0),E4*F4,"")，并把公式往下填充到G13單元格。

這個(gè)公式的意思是，如果F4單元格（數(shù)量）和E4單元格（單價(jià)）都大于0時(shí)，則計(jì)算E4*F4(金額)，否則G4顯示為空。

在F14（合計(jì)數(shù)量）單元格輸入公式：=IF(SUM(F4:F13)=0,"",SUM(F4:F13))。公式的意是，如果F4:F13這個(gè)區(qū)域的值，加起來(lái)的和是0，F(xiàn)14就顯示為空，否則 就對(duì)這個(gè)區(qū)域求和。

復(fù)制F14單元格，粘貼到G14，公式自動(dòng)變?yōu)椋?IF(SUM(G4:G13)=0,"",SUM(G4:G13))

好了，現(xiàn)在入庫(kù)單自身的制作我們已經(jīng)做完了，接下來(lái)我們把單據(jù)中的數(shù)據(jù)用公式整理到本工作表的另一個(gè)區(qū)域去，以便單據(jù)數(shù)據(jù)保存到“入庫(kù)記錄”工作表后整齊一點(diǎn)。

在單元格O3:AA3,分別錄入字段名:"編碼","客戶(hù)名",“日期”，“單據(jù)號(hào)”，“商品名稱(chēng)”，“規(guī)格”，“單價(jià)”，“單位”，“數(shù)量”，“金額”，“備注”，“制單”，“月份”。

在O4單元格輸入公式：=IF(LEN(A4)>0,A4,"")

在P4單元格輸入公式：=IF((LEN($B$2)>0)*(LEN(B4)>0),$B$2,"")

在Q4單元格輸入公式：=IF((LEN($F$2)>0)*(LEN(B4)>0),$F$2,"")

在R4單元格輸入公式：=IF((LEN($B$2)>0)*(LEN(B4)>0),RIGHT($H$2,10),"")

在S4單元格輸入公式：=IF((LEN($B4)>0),B4,"")

在T4單元格輸入公式：=IF((LEN($B4)>0),C4,"")

在U4單元格輸入公式：=IF((LEN($B4)>0),D4,"")

在V4單元格輸入公式：=IF((LEN($B4)>0),E4,"")

在W4單元格輸入公式：=IF((LEN($B4)>0),F4,"")

在X4單元格輸入公式：=IF((LEN($B4)>0),G4,"")

在Y4單元格輸入公式：=IF((LEN(H4)>0),H4,"")

在Z4單元格輸入公式：=IF((LEN($B$15)>0)*(LEN(B4)>0),$B$15,"")

在AA4單元格輸入公式:=IF(LEN(Q4)>0,MONTH(Q4),"")

公式寫(xiě)完后全部填充到第十三行。完畢后把這個(gè)區(qū)域隱藏起來(lái)。                                                  

接下來(lái)我們編寫(xiě)一個(gè)宏。按Alt+F11，打開(kāi)VBA編輯器，插入一個(gè)模塊，在編輯框里粘貼如下代碼：

Sub 入庫(kù)單保存()

'

' 入庫(kù)單保存 Macro

'

'Sheets("入庫(kù)單").Select

With Sheets("入庫(kù)記錄")

  x = .Range("d65536").End(xlUp).Row + 1

  For I = 0 To 15

     .Cells(x + I, 4) = Cells(I + 4, 15)

     .Cells(x + I, 5) = Cells(I + 4, 16)

     .Cells(x + I, 6) = Cells(I + 4, 17)

     .Cells(x + I, 7) = Cells(I + 4, 18)

     .Cells(x + I, 8) = Cells(I + 4, 19)

     .Cells(x + I, 9) = Cells(I + 4, 20)

     .Cells(x + I, 10) = Cells(I + 4, 21)

     .Cells(x + I, 11) = Cells(I + 4, 22)

     .Cells(x + I, 12) = Cells(I + 4, 23)

     .Cells(x + I, 13) = Cells(I + 4, 24)

     .Cells(x + I, 14) = Cells(I + 4, 25)

     .Cells(x + I, 15) = Cells(I + 4, 26)

     .Cells(x + I, 16) = Cells(I + 4, 27)

Next

End With

Range("b2,g2,a4:a13,f4:f13,h4:h13,b15,g15").ClearContents

  s = Range("h2")

Range("h2") = Left(s, 3) & Right("201501000" & Right(s, 10) + 1, 10)

MsgBox "保存完畢", , "提示"

End Sub

保存一下，關(guān)閉VBA編輯窗口。

在“入庫(kù)單”的表格內(nèi)插入一個(gè)自選圖形，形狀背景什么的隨意，標(biāo)上文字：“保存單據(jù)”。

把插入的那個(gè)自選圖形指定到我們剛才編寫(xiě)的那宏。方法：選中圖形——單擊右鍵——在彈出的對(duì)話(huà)框中選擇“指定宏”——在接著彈出的對(duì)話(huà)框中先選中宏的名字，再把宏的保存位置改為“當(dāng)前工作薄”——確定。至此，入庫(kù)單的制做就完成了。保存一下工作薄，關(guān)閉。