出货单表格怎么做（简单实用的Excel表格管理方法）

本应用适用于小店零售，支出管理登记操作，可以很方便地制作每月销售和支出图表，直观地体现当月利润结果。是店面经营的一个好帮手。

操作主页如下图所示：

根据年和月份来实现统计。

根据销售和支出表，录入销售和支出记录，这一点不可能省略，毕竟每一天的销售和支出是不一样的，如同进货和出货数据不一样。

销售录入

录入当天销售商品和金额，自动计算出销售结果并给出图表。

下图自动显示出当月销售图表。

月销售统计总表和图例：

选择年份，自动统计出当年的月度销售金额、支出成本和利润总计结果。

这也是我们最想看到的一个结果，从此图表中可以方便地了解到，每月的销售是否盈利。

利润总图

本图表实现利润年度总计算，可以看到本年度总的销售、成本和利润结果。

代码

Sub 添加销售() On Error Resume Next Dim xYear As Integer, xMouth As Integer xYear = ActiveSheet.ComboBox1.Value xMouth = ActiveSheet.ComboBox2.Value If vba.Trim(xYear) = 0 Then Exit Sub If VBA.Trim(xMouth) = 0 Then Exit Sub Dim xSheetName As String xSheetName = xYear & VBA.Format(xMouth, "00") & "月销售" Dim s As Worksheet, isTrue As Boolean isTrue = False For Each s In ThisWorkbook.Worksheets If s.Name = xSheetName Then s.Select '已经创建工作表 进行添加 isTrue = True Exit For End If Next s If Not isTrue Then '没有创建工作表 是否创建 Dim isNew As Integer isNew = MsgBox("没有创建工作表， 是否创建？", vbYesNo Or vbInformation, "提示") If isNew = 6 Then MsgBox "创建工作表" ThisWorkbook.Worksheets.Add before:=Worksheets(1) ActiveSheet.Name = xSheetName End If End If Set s = Nothing End Sub

本想做一个简单的记录表，但是通过一些复杂的计算，还是增加一些图表更有展示力。

实际在操作中，只需要做每日的销售和支出登记就可以了，所有图表会自动计算出来。

这就是vba的方便之处，你不用操心太多，只需要看结果就是行了。

在很多时候，一个表会帮助我们在生活和工作中变得十分容易。

欢迎关注、收藏

---END---