Excel除了我們?nèi)粘５臄?shù)據(jù)整理，利用表格特有的代碼功能，我們還可以實(shí)現(xiàn)一些高級(jí)的數(shù)據(jù)操作。比如說(shuō)倉(cāng)庫(kù)入庫(kù)單的制作，它能夠?qū)崿F(xiàn)通過(guò)點(diǎn)擊自動(dòng)完成數(shù)據(jù)錄入、計(jì)算以及保存等操作。

上面就是我們倉(cāng)庫(kù)入庫(kù)單的效果演示，我們可以通過(guò)計(jì)算、保存、開(kāi)單的按鈕設(shè)置，點(diǎn)擊就能夠自動(dòng)進(jìn)行數(shù)據(jù)的計(jì)算、保存以及清除之前數(shù)據(jù)重新輸入等多種操作。是不是感覺(jué)非常的方便了？下面我們就來(lái)學(xué)習(xí)一下具體的操作方法。

第一步：首先在表格中填寫(xiě)基礎(chǔ)數(shù)據(jù)，將入庫(kù)單頁(yè)面的編號(hào)，品名等用數(shù)據(jù)有效性的方式進(jìn)行引用，這樣我們就可以實(shí)現(xiàn)輕松的對(duì)輸入數(shù)據(jù)進(jìn)行選擇。這樣可以盡可能的縮短我們填寫(xiě)數(shù)據(jù)的時(shí)間。如下圖所示：

第二步：通過(guò)Excel編寫(xiě)VBA代碼，實(shí)現(xiàn)計(jì)算、保存、開(kāi)單等常用功能。按快捷鍵alt+F11或點(diǎn)擊工作表名稱(chēng)右鍵選擇查看代碼，快速進(jìn)入VBA代碼編輯窗口，然后輸入下方對(duì)應(yīng)的代碼。如下圖所示：

開(kāi)單、保存、計(jì)算的代碼分別如下：

Sub 開(kāi)單()

Set es = Cells.Find("*", , xlFormulas, , , xlPrevious)

[b2] = "SM" & Format(Now(), "ymdhms")

Range([a5], es.Offset(4)) = ""

[e2] = ""

End Sub

---

Sub 保存()

On Error GoTo 100

Dim es As Range, a%

If Sheet2.[f:f].Find([b2]) = [b2] Then

MsgBox "已經(jīng)保存過(guò)了!"

Else

100:

Set es = Cells.Find("*", , xlFormulas, , , xlPrevious)

a = Application.CountA(Sheet2.[a:a])

If es.Row = 4 Then MsgBox "沒(méi)有填寫(xiě)內(nèi)容": End

Range([a5], es).Copy Sheet2.Cells(a + 1, 1)

Sheet2.Cells(a + 1, "f").Resize(es.Row - 4) = [b2] '保存入庫(kù)單

Sheet2.Cells(a + 1, "g").Resize(es.Row - 4) = [e2] '保存供應(yīng)商

Sheet2.Cells(a + 1, "h").Resize(es.Row - 4) = Now() '保存日期時(shí)間

MsgBox "保存成功!"

End If

End Sub

---

Sub 計(jì)算()

Set es = Columns(3).Find("*", , xlFormulas, , , xlPrevious)

For Each Rng In Range([c5], es)

Rng.Offset(0, 2) = Rng.Offset(0, 1) * Rng

Next

End Sub

第三步：點(diǎn)擊菜單欄：開(kāi)發(fā)工具—插入，選擇按鈕插件，然后鼠標(biāo)右鍵選擇指定宏功能即可。這樣我們就能夠通過(guò)指定功能的方式，將控件賦予不同的代碼功能。操作如下圖所示：

通過(guò)上面的三個(gè)操作步驟設(shè)置，我們就做好了最簡(jiǎn)單的倉(cāng)庫(kù)入庫(kù)單模板。現(xiàn)在你學(xué)會(huì)了嗎？趕快去操作一下吧！

關(guān)注后私信：入庫(kù)單，獲取表格模板！

總結(jié)

以上是生活随笔為你收集整理的excel制作一个信息录入系统_制作Excel仓库入库单，一键完成数据录入、计算及保存操作...的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。