文/江觅

有些人习惯做日常消费记录，就是把每天花的钱都记录下来，总结一年总消费有多少，以做好下一点消费计划。

支付宝当中也有此功能，每个月的消费清单，这也许不是所有人都要做事情，但是经常做记录对于我们明明白白消费，并且知道钱花到什么地方了，还是有很大帮助。

功能介绍

这里有一个简单的每日消费记录，可以很方便地利用Excel来做一个消费记录。

记录内容不是很多所以表格也比较简单，我们只要把金额和消费名称做好就差不多了，也无需太详细，当然了，如果想做更详细的记录多加字段就可以了，这时没有限制。

添加消费内容，除分类项目和支付方式做了预处理，可选择外，其它要手动输入。

图表可以明白显示消费项目和金额。

这个图表做得有一些困难，以后将仔细写一下关于图表制作的一些方法和步骤，这里就不说了。

表格格式

显示页代码

Private Sub UserForm_Initialize()
Dim w As Worksheet
Dim i As Integer, c As Integer, iRow As Integer, iCol As Integer
Dim itemObj As Object
Set w = ThisWorkbook.Worksheets("日常消费清单")
w.Activate
iCol = w.Range("A1").End(xlToRight).Column
iRow = w.Range("A65535").End(xlUp).Row
With Me
.Width = 800
.Height = 500
.BackColor = RGB(102, 180, 112)
End With
With Me.Label1
.Top = 10
.Left = 0
.Width = .Parent.Width
.Height = 45
.Font.Size = 24
.Font.Name = "微软雅黑"
.Font.Bold = True
.Caption = "日常消费记录表"
.TextAlign = 2
.BackStyle = fmBackStyleTransparent
End With
Dim oLisview As Object
Set oLisview = Me.Controls.Add("mscomctllib.listviewctrl.2", "LS")
With oLisview
.Top = 45
.Left = 10
.Width = .Parent.Width * 0.96
.BorderStyle = 0
.Height = .Parent.Height - 120
.LabelEdit = 1
.Font.Size = 12
.Font.Name = "微软雅黑"
.FullRowSelect = True
.Gridlines = True
.View = lvwReport
For i = 1 To iCol
.ColumnHeaders.Add , , w.Cells(1, i).Value, .Parent.Width / iCol
Next i
For i = 2 To iRow
Set itemObj = .ListItems.Add
With itemObj
.Text = w.Cells(i, 1)
For c = 2 To iCol
.SubItems(c - 1) = w.Cells(i, c)
Next c
End With
Next i
End With
End Sub

其实真正用到实际当中可能性不是很大，因为不是特别喜欢做记录的人是没有耐心来每天记录的，所以，相信很多人都是不明不白地消费，然后发现钱真的不知道怎么就没了。