本应用适用于小店零售，支出管理登记操作，可以很方便地制作每月销售和支出图表，直观地体现当月利润结果。是店面经营的一个好帮手。
操作主页如下图所示：
根据年和月份来实现统计。
根据销售和支出表，录入销售和支出记录，这一点不可能省略，毕竟每一天的销售和支出是不一样的，如同进货和出货数据不一样。
销售录入
录入当天销售商品和金额，自动计算出销售结果并给出图表。
下图自动显示出当月销售图表。
月销售统计总表和图例：
选择年份，自动统计出当年的月度销售金额、支出成本和利润总计结果。
这也是我们最想看到的一个结果，从此图表中可以方便地了解到，每月的销售是否盈利。
利润总图
本图表实现利润年度总计算，可以看到本年度总的销售、成本和利润结果。
代码
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---
