為了實現(xiàn)自動記賬，我們需要制作一個入庫提交按鈕。首先，在“入庫單”表中選擇一個位置畫出按鈕控件，并將按鈕文字更改為“入庫提交”或“入庫記賬”。然后，右鍵點擊按鈕，在設(shè)置控件格式中可以根據(jù)個人喜好設(shè)置字

為了實現(xiàn)自動記賬，我們需要制作一個入庫提交按鈕。首先，在“入庫單”表中選擇一個位置畫出按鈕控件，并將按鈕文字更改為“入庫提交”或“入庫記賬”。然后，右鍵點擊按鈕，在設(shè)置控件格式中可以根據(jù)個人喜好設(shè)置字體、字號和文字顏色。

插入模塊

點擊開發(fā)工具/代碼/visual basic（或者按下ALT F11），彈出VB編輯窗口。在VB編輯器中選擇插入，然后選擇模塊，會出現(xiàn)一個新的模塊。

編寫代碼

在代碼編輯窗口中寫入以下代碼：

Sub 入庫提交()
    Dim a As Long
    a  IIf(Sheets("入庫單").Range("P14")  "", Sheets("入庫單").Range("P14").End(xlUp).Row, 14)
    Range("C5:W" amp; a).Select
    Sheets("數(shù)據(jù)庫").Visible  True '顯示數(shù)據(jù)庫表
    Dim b As Long
    b  Sheets("數(shù)據(jù)庫").Cells(, 1).End(xlUp).Row   1
    Sheets("數(shù)據(jù)庫").Select
    Sheets("數(shù)據(jù)庫").Cells(b, 1).Select
     Paste:xlPasteValues, Operation:xlNone, SkipBlanks:False, Transpose:False
      False '隱藏數(shù)據(jù)庫表
    Sheets("入庫單").Select
    Range("P5:P14")  "" '清空入庫單中的數(shù)據(jù)
End Sub

指定入庫提交宏

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

制作出庫提交按鈕

與制作入庫提交按鈕的步驟相似，我們也需要制作一個出庫提交按鈕。同樣在“出庫單”中選擇一個位置畫出按鈕控件，并將按鈕文字更改為“出庫提交”。右鍵點擊按鈕，在設(shè)置控件格式中可以自定義字體、字號和文字顏色。

編寫出庫提交代碼

在VB編輯窗口中寫入以下代碼：

Sub 出庫提交()
    Dim a As Long
    a  IIf(Sheets("出庫單").Range("U14")  "", Sheets("出庫單").Range("U14").End(xlUp).Row, 14)
    Range("C5:W" amp; a).Select
    Sheets("數(shù)據(jù)庫").Visible  True '顯示數(shù)據(jù)庫表
    Dim b As Long
    b  Sheets("數(shù)據(jù)庫").Cells(, 1).End(xlUp).Row   1
    Sheets("數(shù)據(jù)庫").Select
    Sheets("數(shù)據(jù)庫").Cells(b, 1).Select
     Paste:xlPasteValues, Operation:xlNone, SkipBlanks:False, Transpose:False
      False '隱藏數(shù)據(jù)庫表
    Sheets("出庫單").Select
End Sub

指定出庫提交宏

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

代碼測試

現(xiàn)在，我們可以在入庫單和出庫單中錄入數(shù)據(jù)。當(dāng)點擊“入庫提交”或“出庫提交”按鈕時，系統(tǒng)會自動找到數(shù)據(jù)庫中列A的最后一行，并將單據(jù)信息對應(yīng)到數(shù)據(jù)庫中的字段逐行寫入。