VBA入库单模板

教你轻松制作仓库入库单自动登记系统对于仓库工作人员来讲，每天会对大量的物料进行入库、出库的登记操作。

今天我们就来教大家如何运用VBA 代码，制作一个非常简便的仓库入库单系统。

【效果图】看了上面的动态效果，是不是感觉这个入库单非常神奇的呀。

我们只要点击开单，就可以重新更新表格，点击计算可以计算金额，点击保存可以保存我们输入的数据。

下面我们就来讲一下如何制作这个仓库入库。

第一步：如上图。

填写基础数据，将入库单页面的编号，品名等用数据有效性的方式进行引用，这样我们就可以实现轻松的对输入数据进行选择。

这样可以尽可能的缩短我们填写数据的时间。

第二步：编写VBA代码，实现计算、保存、开单等常用功能。

按快捷键alt+F11快速进入VBA代码编辑窗口，如上图。

输入下方代码。

Sub 开单()Set es = Cells.Find(*, , xlFormulas, , , xlPrevious)[b2] = SM Format(Now(), ymdhms)Range([a5], es.Offset(4)) =[e2] =End SubSub 保存()On Error GoTo 100Dim es As Range, a%If Sheet2.[f:f].Find([b2]) = [b2] ThenMsgBox 已经保存过了!Else100:Set es = Cells.Find(*, , xlFormulas, , , xlPrevious)a = Application.CountA(Sheet2.[a:a])If es.Row = 4 Then MsgBox 没有填写内容: EndRange([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 SubSub 计算()Set es = Columns(3).Find(*, , xlFormulas, , , xlPrevious)For Each Rng In Range([c5], es)Rng.Offset(0, 2) = Rng.Offset(0, 1) * RngNextEnd Sub第三步：插入按钮插件，指定宏功能即可，如下图：现在你学会如何制作这个仓库入库单了吗？。

入库单（表格模板、doc 格式）CW KG/BD- 01入库单编号:类别:?摩托车?汽车?其他物资年月日金额品名规格型号单位数量单价备注百十万千百十元角分合计（金额大写）: 佰拾万仟佰拾元角分库管员: 交货人: 制单: 注:本单一式三联，第一联仓库记帐联，第二联材料成本会计记帐联，第三联返交货人作有关结算凭证或回执联。

CW- KG/BD—08库存商品月周转速度统计表库别:制表日期:年月日统计日期:年月日——年月日单位:次/期间（月）商品名称单位周转量日均库存量周转速度周转天数月周转复核:制表:注:本表一式九份，一份库管部留存，其余分报总经理、财务总监、营销总监、财务会计部经理、管理会计部经理、销售管理部经理、运城分公司经理、材料成本会计。

本备注适用于摩托车库存分析。

CV- KG/B DH 09滞件/ 滞车处理表类别: 滞件? 滞车? 年月日名称及规格型号数量单位金额存放地点入库日期合计滞存原因及状况质检结论及建议审计结论及建议拟处理方式估计损失批准财务核准财务审核库管部门负责人: 制表: 注: 本单如反映滞车情况，则一式三份，库管部留存一份，另两份分报销售管理部经理、财务会计部经理。

本单若反映滞件情况，则一式四份，配件库留存一份，另三份分报售后服务中心财会室主管、综合服务部经理、通用配件经销部经理。

CW- KG/BD- 03出库号码单年月日制单:客户品名架号机号客户品名架号机号CW- KG/BD—02入库号码单车型: 年月日制单:架号机号架号机号架号机号CV- KG/B DH 04库存盘点表库别: 盘点时间: 盘点限时: 第页，共页品名规格型号单位帐面数量实盘数量盘盈亏备注品名规格型号单位帐面数量实盘数量盘盈亏备注财会会点人: 盘点人: 制表:注: 本表一式四份，一份仓库留存，其余分报财务总监、财务会计部经理、材料成本会计。

CW- KG/BD- 05产品库存日报厂家: 年月日制表: 品名及规格型号色别上日入库上日出库库存结余品名及规格型号色别上日入库上日出库库存结余注: 本表一式八份，一份库管部留存，其余分报营销总监、销售管理部经理、销售管理部内勤、运城分公司经理、运城分公司内勤、零售部经理、零售部内勤。

通用Excel库存管理系统，最好用的Excel出入库管理表格库管易网站的表格版块有很多实用出入库管理表格，得到广大仓库管理同行的支持，经过分析与提取各个表格中的实用功能，专门制作了本套《通用Excel库存管理系统》表格。

包含仓库货物做账用到的入库、出库、汇总、报表等全部功能，适合绝大部分的仓库、商铺、网店的出入库管理。

使用前提：本表格使用VBA编程完成出入库的自动化处理，在使用前，请在Excel软件中启用宏，具体的方法可以参考Excel启用宏的方法这篇贴子，正确启用宏功能以后，关闭Excel软件，重新打开表格就可以正常使用了。

本贴子简要介绍Excel库存管理系统，让大家可以快速了解各个功能模板的使用方法，强烈建议您阅读本贴的使用教程，然后再开始使用Excel库存管理系统，这样可以少走很多弯路。

一、系统登录与主界面1、打开库存管理系统，首先看到的是登录界面，要求登录才可以进入系统管理。

系统内置了一个管理员账号：admin，初始密码：123。

在登陆界面点击'修改密码”可以改为您自己想用的密码。

如果想增加账号，请登陆系统后，在主界面中点击'用户申请〃，在弹出窗口中填写好用户名、密码等资料后确认就可以了。

2、成功登录库存管理系统，首先显示操作主界面，这里列出了所有的功能模块。

主界面“功能导航”区域共有12个按钮，对应着不同的管理功能，点击按钮就可以进入相应的功能界面进行操作。

二、货物信息与基础资料在开始做账前，需要完善货物信息与基础资料，在主界面点击'系统设置”按钮，进入设置工作表，界面分为左右两部分。

1、左面是货物（商品）的列表，里面已经输入了一些示例货物信息（1）编号：就是货物编码，就像人的身份证一样，编号是货物的唯一标识，每个货物必须有一个编号并且不能重复。

在制定编号时也可以根据企业的编码规则制定，也可以像示例数据那样直接使用顺序编号。

（2）货物名称、规格型号、单位、库别（分类）：请根据实际情况填写。

CK-KG/BD---01产品入库单编号：年月日入库人：复核人：库管员：注：一式三联。

一联成品库存根，一联交生产部，一联交财务核算部。

CK-KG/BD---07CK-KG/BD---08收货单库管员：采购员：送货人：注一：备注栏填写说明：1、如果送货人有送货单则注明，不再向送货人发送本单。

2、如果是收销售环节退、换货则注明。

3、如果是自提货需要先开收货单再注明。

注二：本单一式两联，仓库留存一联，另一联返送货单位。

入库单编号：年月日采购员：库管员：注：本单一式两联，第一联为仓库计账联，第二联交采购员办理付款并作为财务计帐联。

本单适用于成品以外的物品入库。

领料单材料类别：年月日库管员：领料部门负责人：领料人：一联生产部门留存，一联交财务核算部记帐，一联交库管部登记台帐滞料/滞成品处理审批表类别：滞料□滞成品□年月日批准人：库管员：注：本单一式两份，仓库留存一份，报会计部一份。

财产登记卡使用部门：年月日监督使用部门：审批人：责任签字：财产登记卡由领用人填写，一联交本部门财产登记专人，一联交财务管理部保管。

物品领用单领用部门：年月日领用部门经理：批准人：领用人：库管员：注：本单一式三联，一联仓库存根，一联报财务核算部，一联领用部门存查。

此单为通用单，适用于领用除原材料以外的物品。

产品出库单编号：年月日提货人：库管员：注：本单一式两联，第一联仓库存根，第二联交营业部。

灭菌产品送、返登记表CK-KG/BD---09库存日报表废品损失的核算与计算废品损失是指不可修复废品的生产成本扣除废品残值与应由过失人负担赔款后的净损失与可修复废品的修复费用之与。

出售后发现的废品，由于退回废品而支付的运杂费也应包括在废品损失之内。

（1）实行三包（包修、包换、包退）的企业，发生销售退回的“三包”损失，包括修理费、退修或调换产品的运杂费，退回报废产品的实际成本减去残值后的净损失等，可列入企业的管理费用，不作为废品损失处理。

（2）对于产品质量较差，但经检验部门鉴定，不需要返修即可降级出售或使用的产品，应作为次品处理，其损失在销售中体现，不包括在废品损失之内。

ExcelVBA7.47将总表的数据分别按照要求填入指定的模板位置中，类似word邮件合并功能一起学习，一起进步~~word的邮件合并功能，相信大家都非常的熟悉了，一些固定模板的批量打印功能都会用到这样的操作，但是很多时候我们的数据是Excel中的，那么我们是否能够在Excel中实现类似于word中这种数据b合并的功能呢？代码区其实这样的话，就有点类似于我们之前学过的Excel的数据汇总的逆推，数据的拆分了，按照计划，我们很快就会接触到更多类型的数据的拆分了，我们这里就先热个场，提前接触下数据的拆分，之所以在这里说数据拆分，主要还是因为他的操作也类似于在多个工作表中同时进行数据填充，和我们之前的章节又有一点关系，所以正好有承上启下的作用来看看我们的场景现在我们手上的这个工作表里面有两个表，一个就是成绩总表，一个就是模板，类似于我们通知的模板，我们现在需要将总成绩的表中所有的同学的成绩按照模板中指定的样式进行填充，并且形成一个人一个工作表的样式来进行打印，并交给学生查看。

如果手动复制粘贴，这个工作量就非常的大了，因为不仅仅是复制粘贴，还要找到正确的位置，所以这里我们需要使用VBA来帮助我们实现这样的功能。

Sub sssss()••••••••••••••••••Dim rng As Range, sth As Worksheet, sthn As Worksheet Set rng = Application.InputBox("请选择数据源,不含表头", "数据源的确定", , , , , , 8)For i = 1To rng.Rows.Count arr = rng.Rows(i) Worksheets("模板").Copy after:=Worksheets(Worksheets.Count) = arr(1, 1) Set sthn = ActiveSheet sthn.Cells(4, 3) = arr(1, 1) sthn.Cells(4, 5) = arr(1, 2) sthn.Cells(6, 4) = i sthn.Cells(8, 4) = arr(1, 3) sthn.Cells(9, 4) = arr(1, 4) sthn.Cells(10, 4) = arr(1, 5) sthn.Cells(11, 4) = arr(1, 6) sthn.Cells(12, 4) = arr(1, 7) sthn.Cells(13, 4) = arr(1, 8)Next i End Sub看着代码挺长，请示非常的简单，中间一大段都是理解之后就非常的简单了。

入库单
编号：
类别：□摩托车□汽车□其他物资年月
库管员：交货人：制单：
注：本单一式三联，第一联仓库记帐联，第二联材料成本会计记帐联，第三联返交货人作有关结算凭证或回执联。

入库单
编号：
类别：□摩托车□汽车□其他物资年月日
库管员：交货人：制单：
注：本单一式三联，第一联仓库记帐联，第二联材料成本会计记帐联，第三联返交货人作有关结算凭证或回执联。

入库单
编号：
类别：□摩托车□汽车□其他物资年月
库管员：交货人：制单：
注：本单一式三联，第一联仓库记帐联，第二联材料成本会计记帐联，第三联返交货人作有关结算凭证或回执联。

入库单模板一、基本信息1. 入库单编号：____________________2. 入库日期：____________________年____月____日3. 供应商名称：____________________4. 采购订单编号：____________________5. 验收人：____________________二、商品信息序号 | 商品名称 | 商品型号 | 商品规格 | 单位 | 数量 | 单价（元） | 总价（元） | 备注||||||||三、入库单填写说明1. 入库单编号：由仓库管理员按照入库单编制规则填写，确保唯一性。

2. 入库日期：填写实际商品入库的日期。

3. 供应商名称：填写提供商品的供应商全称。

4. 采购订单编号：填写对应的采购订单编号，以便于核对。

5. 验收人：填写负责验收商品的人员姓名。

四、商品信息填写说明1. 序号：按照实际商品顺序填写，从1开始依次递增。

2. 商品名称：填写商品的全称。

3. 商品型号：填写商品的型号，如有多个型号，请分别列出。

4. 商品规格：填写商品的规格，如有多个规格，请分别列出。

5. 单位：填写商品计量的单位，如件、台、箱等。

6. 数量：填写实际入库商品的数量。

7. 单价（元）：填写商品的单价，精确到小数点后两位。

8. 总价（元）：填写商品的总价，精确到小数点后两位，计算公式为：数量×单价。

五、入库单提交与审核流程1. 仓库管理员根据实际入库情况填写入库单。

2. 验收人对照采购订单及实际到货商品进行验收，确认无误后在入库单上签字。

3. 仓库管理员将填写完整、验收合格的入库单提交至财务部门。

4. 财务部门对入库单进行审核，审核通过后，入库单正式生效。

六、注意事项1. 入库单填写内容必须真实、准确、完整，如有虚假，相关责任人需承担相应法律责任。

2. 入库单为仓库管理的重要凭证，请妥善保管。

如有遗失，请及时与仓库管理员联系。

3. 如有商品数量、型号、规格等与采购订单不符，请及时与采购部门沟通，核实原因。