设计收支理财表

要求：在上述内容的基础上，完成家庭收支记帐表的设计与完善。

1.新建一个工作簿并保存为”家庭收支系统.Xlsm(因为本表分基本功能与宏功能两个部分进行，只有保存为.Xlsm文件才能支持宏的运行)。

基本功能：

2.在B2单元格中输入公式=today(),以获得当前日期。

3.在A5单元格中使用“数据有效性”功能，添加“收入和支出”两个选项。输入内容时，先从这个单元格开始选择收入或支出，

再继续其他内容的输入。

4.在B5单元格输入=B2并按下回车键，获得当前的年月日的值。

5.在C5使用“数据有效性”功能，将所有收入和支出项目都添加进来(如：工资收入、其他收入、人情往来、子女费用、赡养费等)。

6.在D5单元格中，使用“数据有效性”功能将家庭成员的名单添加进来(如张三、李四)。

7.在G8单元格中输入公式=sumif(A:A,"*"&”收入"&"*",E:E)完成所有“收入”项目费用的总和计算。 (说明：A:A,表示A列，E:E表示E列，&是将两个文本值连接起来产生一个连续的文本值，"*"表示任意多个字符)

8.在H单元格中输入公式=sumif(A:A,"*"&”支出"&"*",E:E)完成所有“支出”项目费用的总和计算。

9.在I8单元格中使用公式 =G8－H8&“元" ，完成收入减去支出后的余额计算。

宏功能：

10.在G2单元格中输入公式=count(B8:B500) 后，再在“开发工具”选项卡的“控件”组中单击“插入”按钮下方的箭头，

在弹出的下拉列表中选择“按钮”。使用鼠标在G5位置拖拉出一个按钮后，将其名称改为“提交”。

此按钮的作用是在A5-F5单元格中完成内容的输入后，帮助完成这些内容的提交。在自动弹出的“指定宏”对话框中，

在“宏名”中输入“收支项目提交”，并单击“新建”按钮。

11.在弹出的“家庭收支系统.xlsm－模块1（代码）”对话框中，输入如下内容：

Sub 收支项目提交（）

Dim i As Integer

Sheets("Sheet1") Select

If Trim(Cells(5,1). Value)=""Then

MsgBox "收入和支出选择不能为空" ,vbokOnly

Exit Sub

End If

If Trim(Cells(5,2) .Value)=""Then

MsgBox "收支日期不能空白", vbokOnly

Exit Sub

End If

If Trim(Cells(5,3) .Value)=""Then

MsgBox "收支项目不能空白", vbokOnly

Exit Sub

End If

If Trim(Cells(5,4). Value)=""Then

MsgBox "收支人不能空白", vbokOnly

Exit Sub

End If

If Trim(Cells(5,5). Value)=""Then

MsgBox "收支金额不能空白", vbokOnly

Exit Sub

End If

Count =Val(Cells(2,7). Value)

For i=1 To 6

Cells(Count+8,i) Value=Cells(5,1) .Value

Next i

End Sub

说明：代码中的Cells(5,2)表示第5行的第2个单元格。

12.完成代码的输入后，在A5-F5单元格中输入内容并单击G5单元格上方的“提交”按钮时，

宏功能将会自动检测A5-F5单元格中是否有内容，可以防止漏填内容。

13.现次新建一个按钮并命名为“清空”。作用是每次完成内容的输入后，帮助用户一次性清空A5-F5单元格中的内容，

以免影响G8和H8单元格中的“收入”和“支出”的计算结果。在弹出的“指定宏”对话框中使用默认名称并单击“新建”按钮后，

在弹出的对话框中选择左侧的”模块2“。

14.在右侧的代码窗格中输入以下代码：

Sub 按钮2_Click()

Sheets("Sheet1").Select

Cells(5,1).Value=""

Cells(5,2).Value=""

Cells(5,3).Value=""

Cells(5,4).Value=""

Cells(5,5).Value=""

END Sub

15.在右键选中按钮后，单击“开发工具”选项卡的“代码”组中“Visual Basic”按钮。也可以打开代码编辑对话框，并对代码进行增减或修改。

16.在A5－F5单元格中输入和选择内容后，通过单击“提交”按钮将输入的内容自动添加到第8行的单元格中了。每提交一次内容后，新增的内容就会自动向下占用一行单元格。在添加新内容成功并单击“清空”按钮后，在G2单元格中将自动显示共有多少条收支记录的数字。而G8－I8单元格中，也将自动完成相应的计算。

17.由于收支记录往往很快就有成百上千条，所以需选中第8行并在“视图”选项卡的“窗口”组中单击“冻结窗口”按钮，在弹出的下拉菜单中选择“冻结拆分窗格”。这样，就可以让表格的第7行以上的单元格区域始终保持处于“可见”状态了。

18.宏功能的启用：在保存并关闭“家庭收支系统.xlsm”后，再次打开此工作簿，单击“选项”按钮后，在打开的“Microsoft Office安全选项”对话框中，选中“启用此内容”项并单击“确定”按钮。这样，才能使用本例中设计的宏功能。