跟我製作簡易倉庫系統：[5]入庫出庫自動記帳?

製作“ 入庫提交”和“出庫”提交按鈕，可以實現自動記帳，大大提高辦公效率。下面就請跟隨小編一起來實際操作一次吧。

工具/原料

EXCEL2007

EXCEL附帶的visual basic

方法/步驟

畫按鈕：

打開我們前面設計的“入庫單”表。依次點擊“開發工具”選項卡/控件/插入/表單控件，選擇“按鈕”控件。

設置按鈕格式：

在“入庫單”表中任意位置，畫出按鈕控件。如圖。右鍵點擊按鈕，將按鈕文字更改為“入庫提交”或“入庫記帳”。再次右鍵點擊按鈕，在設置控件格式中，將字體字號、文字顏色等設置為自己喜愛的樣式。

插入模塊：點擊開發工具/代碼/visual basic，（或者AIT+F11)彈出VB編輯窗口。點擊VB編輯器中的插入，選擇模塊點擊，會出現一個新的模塊。

編寫代碼：在代碼編輯窗口寫入如下代碼

Sub 入庫提交()

Dim a As Long a = IIf(Sheets("入庫單").[P14] = "", Sheets("入庫單").[P14].End(xlUp).Row, 14) Range("C5:W" & a).Select Selection.Copy 'Sheets("數據庫").Visible = True '顯示數據庫表 Dim b As Long b = Sheets("數據庫").[B65536].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("出庫單").[U14] = "", Sheets("出庫單").[U14].End(xlUp).Row, 14) Range("C5:W" & a).Select Selection.Copy Sheets("數據庫").Visible = True '顯示數據庫表 Dim b As Long b = Sheets("數據庫").[a65536].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

指定“出庫提交”宏：

在出庫單中，右擊出庫提交按鈕，點擊指定宏，在宏列表中選取“出庫提交”，確定。

代碼測試：

分別在入庫單、出庫單中錄入數據，點擊“入庫提交”、“出庫提交”按鈕，系統會自動找到數據庫中A列最後一行，並將單據信息對應數據庫中的字段逐行寫入。

注意事項

入庫出庫單據必須有一行數據，如無數據提交，可能會將單據表頭寫入數據庫。