问：为什么不让员工自己录入或者手工登记。
员工年龄大小不一，有些不懂电脑操作。以前实行过手工登记，每人字迹不一，而且登记的和系统的名称有差异。实行起来效率低，难度大，影响员工工作积极性。
下面开始表格的制作。
1、把库存表不需要的信息删除，然后以物品编号来制作条形码。
2、增加一列出库数量：=COUNTIF(Sheet2!A:A,A2)#计算sheet2的A列中与A2相同值的数量。增加一列剩余库存：=D2-E2#物品库存减去出库数量入库改为加即可。
3、制作一张扫码的表，按条形码制作的原因：一维扫码枪比二维扫码枪便宜，二维扫码枪无法直接输出中文，所以效果一样。如果只有物品编号不直观，所以增加一个列获取对应的物品名称。=VLOOKUP(A2,Sheet1!A$1:$B$1000,2,FALSE)#在sheet1的A1-B1000查找A2的值，并返回对应B列的值。
4、统计出库数量：=COUNTIF($A$2:A2,A2)#计算A2-A2，与A2单元格相同的值。此列作为辅助，可隐藏，否则可能让扫码的人混淆。
5、计算剩余库存好让领取人员心中有数：=VLOOKUP(A2,Sheet1!A:D,4,FALSE)-C2#查找A2在sheet1的A-D列，返回对应D列（库存）减去出库数量。并设置库存大于3显示绿色，0-3显示黄色，小于0显示红色。
7、写一段VBA代码保护工作表：单元格有内容即锁定，如果要修改需输入密码，密码为123，可自行更改。如果关闭密码输入窗口则光标移动到A列的第一个空单元格。按ALT+F11输入以下代码并保存为xlsm。
PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)
OnErrorResumeNext
WithTarget
If.Value""Then
PW=InputBox("修改内容请输入密码：")
IfPW"123"Then
Range("A"&Rows.Count).End(xlUp).Offset(1).Select
Else
ExitSub
EndIf
文件--选项--信任中心--信任中心设置
如此一个简易的扫码出入库系统就完成了，可根据自己的需求更改和拓展。