您的位置: 游戏资讯 > 游戏问答

入库登记表怎么做,仓库系统入库怎么操作

来源:[db:H1] 浏览:0 2024-05-26 04:44:52

对于仓库工作人员来说,每天都有大量的物料登记和发货。今天我将向您展示如何使用VBA代码创建一个非常简单的仓单订单系统。

【效果图】看看上面的动态效果,是不是觉得这个仓单相当神奇呢?点击“打开”再次刷新表格,点击“计算”计算金额就可以了,点击保存即可保存您输入的数据。接下来我们就来讲解一下如何创建这个仓库。

入库登记表怎么做,仓库系统入库怎么操作

步骤一:如上图所示。在仓库表单页面输入基本数据并利用数据有效性对参考编号、产品名称等轻松选择输入数据。这使您可以花费尽可能少的时间输入数据。

步骤2:编写VBA代码,实现计算、存储、计费等常用功能。按快捷键alt+F11即可立即进入如上所示的VBA代码编辑窗口。请输入下面的代码。 Sub Open Order()Set es=Cells.Find(\'*\', xlFormulas, xlPrevious)[b2]=\'SM\' Format(Now(), \'ymdhms\')Range([a5 ], es.Offset(4))=\'\'[e2]=\'\' 结束子

Sub Save()On Error GoTo 100 Dimes As Range, a% If Sheet2.[f:f].Find([b2])=[b2] then MsgBox \'已保存!\' Else100: 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 IfEnd Sub

SubCalculate()Set es=Columns(3).Find(\'*\', xlFormulas, xlPrevious)对于范围内的每个Rng([c5], es) Rng.Offset(0, 2)=Rng. Offset(0, 1) * RngNextEnd Sub 步骤3:插入按钮插件并指定宏功能,如下所示。