1、製作庫存進出表格一般用EXCEL，因為它有強大的資料計算功能。最初，我們需要製作進出表格的表頭。表頭一般包括以下專案：品號、規格、型號、單位、數量、倉庫名稱、期初數、本期入庫量、本期銷退等。說明：具體每個企業的要求都不一樣，可自行定義。

2、建立表格的基礎資料，基本資料即庫存材料的品號、規格、型號、單位等，凡是庫存有的，逐個增加。

3、輸入“本期初庫存量”，即上月末的最後一天的庫存數量。說明：此資料可從上個月的報表中直接匯入，一般在月初的第一天就得匯入。

4、在平時的工作中，輸入各種出入庫資訊。說明：本期入庫量：本月車間生產入庫數量，或採購的採購入庫數量；本期銷退：本月銷售退貨的數量；本期退料量：車間領料後退料的數量；本期出庫量：除車間外，其它部門的借出數量等。

本期銷貨量：銷售發往客戶的數量，本期領料量：車間領料的數量，期末庫存量：最後一天的庫存數量，說明：除了第一個和最後一個，其餘數量可自定義。

5、用公式計算“期末庫存量”：在M2單元格輸公式“=SUM(F2:I2)-SUM(J2:L2)”即：本期初庫存量+所有進庫數量-所有出庫數量=期末庫存量。

6、用自動填充填充以下單元格，即得出其它庫存材料的期末庫存量。

7、當一個月結束後，上月的“期末庫存量”又變成下一個月的“期初庫存量”，平時只要往裡面填入出入庫資訊即可。

4、編寫程式碼：在程式碼編輯視窗寫入如下程式碼

Sub入庫提交（)

Dim a As Long a = IIf(Sheets("入庫單＂). = "", Sheets("入庫單＂)..End(xlUp).Row, 14) Range("C5:W" & a).Select Selection.Copy "Sheets("資料庫＂).Visible = True "顯示資料庫表Dim b As Long b = Sheets("資料庫＂)..End(xlUp).Row + 1 Sheets("資料庫＂).Select Sheets("資料庫＂).Cells(b, 1).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False "ActiveWindow.SelectedSheets.Visible = False "隱藏資料庫表 Dim c As Long Sheets("入庫單＂).Select Range("P5:P14") = ""

End Sub

Sub出庫提交（) Dim a As Long a = IIf(Sheets("出庫單＂). = "", Sheets("出庫單＂)..End(xlUp).Row, 14) Range("C5:W" & a).Select Selection.Copy Sheets("資料庫＂).Visible = True "顯示資料庫表Dim b As Long b = Sheets("資料庫＂)..End(xlUp).Row + 1 Sheets("資料庫＂).Select Sheets("資料庫＂).Cells(b, 1).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False " ActiveWindow.SelectedSheets.Visible = False "隱藏資料庫表 Sheets("出庫單＂).Select End Sub