excel制作一个信息录入系统_制作Excel仓库入库单,一键完成数据录入、计算及保存操作...
Excel除了我們日常的數(shù)據(jù)整理,利用表格特有的代碼功能,我們還可以實現(xiàn)一些高級的數(shù)據(jù)操作。比如說倉庫入庫單的制作,它能夠實現(xiàn)通過點擊自動完成數(shù)據(jù)錄入、計算以及保存等操作。
上面就是我們倉庫入庫單的效果演示,我們可以通過計算、保存、開單的按鈕設置,點擊就能夠自動進行數(shù)據(jù)的計算、保存以及清除之前數(shù)據(jù)重新輸入等多種操作。是不是感覺非常的方便了?下面我們就來學習一下具體的操作方法。
第一步:首先在表格中填寫基礎數(shù)據(jù),將入庫單頁面的編號,品名等用數(shù)據(jù)有效性的方式進行引用,這樣我們就可以實現(xiàn)輕松的對輸入數(shù)據(jù)進行選擇。這樣可以盡可能的縮短我們填寫數(shù)據(jù)的時間。如下圖所示:
第二步:通過Excel編寫VBA代碼,實現(xiàn)計算、保存、開單等常用功能。按快捷鍵alt+F11或點擊工作表名稱右鍵選擇查看代碼,快速進入VBA代碼編輯窗口,然后輸入下方對應的代碼。如下圖所示:
開單、保存、計算的代碼分別如下:
Sub 開單()
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)保存過了!"
Else
100:
Set es = Cells.Find("*", , xlFormulas, , , xlPrevious)
a = Application.CountA(Sheet2.[a:a])
If es.Row = 4 Then MsgBox "沒有填寫內容": End
Range([a5], es).Copy Sheet2.Cells(a + 1, 1)
Sheet2.Cells(a + 1, "f").Resize(es.Row - 4) = [b2] '保存入庫單
Sheet2.Cells(a + 1, "g").Resize(es.Row - 4) = [e2] '保存供應商
Sheet2.Cells(a + 1, "h").Resize(es.Row - 4) = Now() '保存日期時間
MsgBox "保存成功!"
End If
End Sub
Sub 計算()
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
第三步:點擊菜單欄:開發(fā)工具—插入,選擇按鈕插件,然后鼠標右鍵選擇指定宏功能即可。這樣我們就能夠通過指定功能的方式,將控件賦予不同的代碼功能。操作如下圖所示:
通過上面的三個操作步驟設置,我們就做好了最簡單的倉庫入庫單模板。現(xiàn)在你學會了嗎?趕快去操作一下吧!
關注后私信:入庫單,獲取表格模板!
總結
以上是生活随笔為你收集整理的excel制作一个信息录入系统_制作Excel仓库入库单,一键完成数据录入、计算及保存操作...的全部內容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: Linux学习参考书
- 下一篇: 教师点名系统