(如何做仓库报表)如何做仓库出入库报表?

大家好，今天，我们接着进行出入库报表的制作。昨天的我们做好了表格的基础框架的搭建。

这里和大家明确一个事情，在进行功能的实现的时候，如果有一些基础性的东西，EK不会和之前的文章中，会很清晰地和大家分析，公式是如何如何实现，VBA中代码为什么会这么写？因为EK想的是，尽量多实现功能，提高表格的重用性。如果大家希望知道如何实现，大家可以在评论区告诉EK，EK会尽可能地帮助大家理解，再次，谢谢大家。

今天准备实现入库单据的录入，和出库单据的录入。

打开昨天的EXCEL文件【VBA制作出入库报表】，点击【单据操作】表。

1、首先，咱们实现一个仓库和库位的二级联动。选中【单据操作】表中的仓库标题下的“F4：F15” 单元格，点击"数据"标签卡中的"数据验证"，"允许"中选择"序列"。来源选择【现有库存】中的B1：E1单元格，最后点击确定。

2、选中【现有库位】中的B1:E21 单元格，然后在“公式”选项卡中，选择“根据所选内容创建”，选择“首行”，点击“确定”。

3、选中【单据操作】中的G4单元格，点击"数据"标签卡中的"数据验证"，"允许"中选择"序列"。来源写入公式=INDIRECT（$F4），点击“确定”。整个操作完成，制作及效果图如图1.

图1 二级联动制作及效果图

4、选中【单据操作】中的A2单元格，点击"数据"标签卡中的"数据验证"，"允许"中选择"序列"。来源写入"入库单,出库单"，注意这里是英文输入法下的逗号。点击确定。

5、选中C3，D3，E3，F3，H3，B4.分别写入公式：

C3=LEFT($A$2,2)& "时间"

D3=LEFT($A$2,2)& "单号"

E3=LEFT($A$2,2)& "数量"

F3=LEFT($A$2,2)& "仓库"

H3=LEFT($A$2,2)& "类型"

B4=IF(A4="","",VLOOKUP(A4,基础信息!A:B,2,0))

将B4单元格往下填充至B15.处理完毕。来看一下效果图

图2 出入库单效果图

6、选中【现有库位】中的H1:I5 单元格，然后在“公式”选项卡中，选择“根据所选内容创建”，选择“首行”，点击“确定”。选中【单据操作】中的H4单元格，点击"数据"标签卡中的"数据验证"，"允许"中选择"序列"。来源写入公式=INDIRECT（$H$3），点击“确定”。整个操作完成，制作及效果图如图3.

图3 出入库类型制作

7、从第7步开始，我们要使用VBA代码了。首先，点击“开发工具”选项卡中，点击“查看代码”，右键左上角当前工作表->插入->模块。在模块里，我们可以开发代码。操作步骤如图3.

图4 打开VBE窗口

8、在模块1 中先来写一个过程：

Sub 添加表单()

hcz = Sheets("单据操作").Cells(Sheets("单据操作").Rows.Count, 1).End(xlUp).Row '【单据操作】第1列最后一行行号

If Sheets("单据操作").Range("A2").Value = "" Then '判断【单据操作】中“A2”单元格内容是否为空，如为空退出程序

MsgBox "单据名称错误，请重新填写！"

Exit Sub

ElseIf hcz <= 3 Then '判断【单据操作】中“A4:A15”单元格内容是否为空，如为空退出程序

MsgBox "单据中没有数据，请重新填写！"

Exit Sub

End If

For i = 4 To hcz '对A4：A & hcz 之间的单元格有空值的判断，如有空退出程序

If Sheets("单据操作").Range("a" & i).Value = "" Then

MsgBox "A" & i & "单元格为空，请填入连续的数据！"

Exit Sub

End If

Next

hrq = Sheets("入库流水账").Cells(Sheets("入库流水账").Rows.Count, 1).End(xlUp).Row '【入库流水账】第1列最后一行行号

hcq = Sheets("出库流水账").Cells(Sheets("出库流水账").Rows.Count, 1).End(xlUp).Row '【出库流水账】第1列最后一行行号

'判断【单据操作】中“A2”单元格内容，如果为“入库单”则将数据写入【入库流水账】中，如果为“出库单”则写入【出库流水账】中

If Sheets("单据操作").Range("A2").Value = "入库单" Then

Sheets("单据操作").Rows("4:" & hcz).Select

Selec

Sheets("入库流水账").Activate

Sheets("入库流水账").Select

Sheets("入库流水账").Range("A2").Select

Ac

MsgBox "入库单添加完毕！"

ElseIf Sheets("单据操作").Range("A" & hrq +1).Value = "出库单" Then

Sheets("单据操作").Rows("4:" & hcz).Select

Selec

Sheets("出库流水账").Activate

Sheets("出库流水账").Select

Sheets("出库流水账").Range("A" & hcq+1).Select

Ac

MsgBox "出库单添加完毕！"

End If

Sheets("单据操作").Activate

Sheets("单据操作").Range("A4:A15,C4:H15") = ""

End Sub

为了方便大家，直接复制出来了。以上为代码。如图5

9、在【单据操作】中添加一个按钮，指定宏为“添加表单”，如图6：

图9 控件添加以及出入库添加演示图

到这里，我们今天所希望完成的表单功能，出入库添加已经完成。明天我们接着来完善表单的其他功能。如果，有不懂的地方，可以在评论区告诉EK。如果想获得文中的文件，可以关注私信EK。

最后，感谢小伙伴们的观看，我是EK。如果上述内容能够帮助到你们，希望你们能点赞，关注，评论，转发，你们不清楚的地方我会尽力为大家解答，谢谢大家的支持。我会给大家带来更多关于EXCEL的小技巧。