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

对于仓库工作人员来说，每天都有大量的物料登记和发货。今天我将向您展示如何使用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：插入按钮插件并指定宏功能，如下所示。

• 上一篇：狙击手幽灵战士契约是什么游戏，狙击手幽灵战士契约太难了
• 下一篇：卡牌游戏单机 《夜间城邦》免安装绿色中文版免受强敌冲击