vba实例教程

自己动手制作简易记账本

原创2016-07-08

Excel与VBA那些事

微信搜索公众号“Excel与VBA那些事”，一起来学VBA

今天我们一起来做一个简单的记账本，虽然代码很少，里面用到的知识很多，所以这个实例大家要好好研究。 首先新建一个表格：

然后在ThisWorkbook的代码处写入如下代码：

Private Sub Workbook_Open()

Worksheets(2).ScrollArea = \ '设置表格的可滚动区域，就是可以点击使用的区域 Dim i

For i = 1 To 12

Worksheets(2).yuefen.AddItem (i) '为月份控件增加属性：1-12月

Next

End Sub

红色的代码这里着重讲解一下，就是当打开这个工作簿的时候，这张表的某些区域（除了设置的区域）是不能使用的，你可以在此处写入代码：Worksheets(2).ScrollArea = range（“a1”）试试！

然后就是表格代码双击sheet1：

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Value = \ '如果更改的属性为空白 Exit Sub

End If

If Target.Row < 4 Then '如果更改的行数小于4 Exit Sub End If

Dim i, m

Set m = Range(\ '设置求和区域 Set i = Range(\ '设置求和区域 If Target.Column = 2 Then

Cells(Target.Row, Target.Column - 1) = Date

Cells(Target.Row, Target.Column + 2) = WorksheetFunction.Sum(i) - WorksheetFunction.Sum(m)

Cells(2, 4) = WorksheetFunction.Sum(m) Cells(2, 5) = WorksheetFunction.Sum(i) ElseIf Target.Column = 3 Then

Cells(Target.Row, Target.Column - 2) = Date

Cells(Target.Row, Target.Column + 1) = WorksheetFunction.Sum(i) - WorksheetFunction.Sum(m)

Cells(2, 4) = WorksheetFunction.Sum(m) Cells(2, 5) = WorksheetFunction.Sum(i) Else Exit Sub End If

End Sub

然后是按钮代码：

Private Sub CommandButton1_Click()

Dim i, zc, sr '定义变量：i是计算总行数，zc（总支出），sr（总收入） For i = 4 To Range(\

If Format(Month(Cells(i, 1)), \ '单元格日期的月份和选择框里的月份相等 zc = Cells(i, 2) + zc '累计支出 sr = Cells(i, 3) + sr '累计收入

Cells(1, 2) = yuefen.Value & \月总计支出：\元，总计收入：\元。\ End If Next End Sub

简易记账本制作完毕！不解地方请随时提问！