在VBA中，編寫入庫單保存代碼是一個常見的需求。通過以下實(shí)例，我們將分享如何在VBA中編寫保存代碼，將物料明細(xì)保存至入庫明細(xì)工作表中。 運(yùn)行保存代碼，保存物料明細(xì)至入庫明細(xì)工作表首先，在工作表中點(diǎn)擊菜

在VBA中，編寫入庫單保存代碼是一個常見的需求。通過以下實(shí)例，我們將分享如何在VBA中編寫保存代碼，將物料明細(xì)保存至入庫明細(xì)工作表中。

運(yùn)行保存代碼，保存物料明細(xì)至入庫明細(xì)工作表

首先，在工作表中點(diǎn)擊菜單欄中的【開發(fā)工具】，然后在工具欄內(nèi)找到并點(diǎn)擊【Visual Basic】，這會進(jìn)入VBA編輯界面。接著點(diǎn)擊菜單欄中的【插入】選項(xiàng)，選擇【模塊】，會彈出模塊編輯窗口。在代碼編輯窗口中輸入以下代碼：

```vba

Sub 保存()

On Error GoTo 100

Dim es As Range, m%

If ("B").Find([B2]) [B2] Then

MsgBox "已經(jīng)保存過了！"

Else

100: Set es ("*", , xlValues, , xlByRows, xlPrevious)

m (Sheet2.[A:A])

n

If 4 Then

MsgBox "沒有填寫內(nèi)容！"

Else

Range([A5], es).Copy Sheet2.Cells(m 1, 1)

Sheet2.Cells(m 1, "G").Resize( - 4) [B2]

Sheet2.Cells(m 1, "H").Resize( - 4) [E2]

Sheet2.Cells(m 1, "I").Resize( - 4) Now()

End If

End If

End Sub

```

關(guān)聯(lián)保存表單與保存按鈕

在工作表界面下的【開發(fā)工具】菜單中，點(diǎn)擊【插入】按鈕，添加一個表單，并與保存代碼相關(guān)聯(lián)。將該表單命名為【保存】。點(diǎn)擊【保存】按鈕，即可將物料信息瞬間保存至入庫明細(xì)工作表中。

通過以上步驟，你可以輕松地在VBA中編寫入庫單保存代碼，并實(shí)現(xiàn)將物料明細(xì)保存至指定工作表的功能。這對于提高工作效率和數(shù)據(jù)管理非常有幫助。希望這篇文章對你有所啟發(fā)！