Excel+扫描枪制作简易的库存管理系统

背景：部门仓库没有仓管，每月底盘点库存计算再录入系统做出库，流程繁琐，需花费大量人力。

问：为什么不让员工自己录入或者手工登记。

员工年龄大小不一，有些不懂电脑操作。以前实行过手工登记，每人字迹不一，而且登记的和系统的名称有差异。实行起来效率低，难度大，影响员工工作积极性。

下面开始表格的制作。

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显示红色。

6、增加一列出库时间：=IF(A2="","",IF(E2="",NOW(),E2))  #如果A2不为空，则返回当前时间并不再改变。（需启用迭代计算：文件--选项--公式）

7、写一段VBA代码保护工作表：单元格有内容即锁定，如果要修改需输入密码，密码为123，可自行更改。如果关闭密码输入窗口则光标移动到A列的第一个空单元格。按ALT+F11输入以下代码并保存为xlsm。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next

With Target

If .Value "" Then

PW = InputBox("修改内容请输入密码：")

If PW "123" Then

Range("A" & Rows.Count).End(xlUp).Offset(1).Select

Else

Exit Sub

End If

End If

文件--选项--信任中心--信任中心设置

如此一个简易的扫码出入库系统就完成了，可根据自己的需求更改和拓展。