个人理财(现金日记账)收支图表分析
Excel数据管理与图表分析 典型案例-家庭财务收支表
Excel数据管理与图表分析典型案例－家庭财务收支表在日常生活当中，人们每天都要面对经济上的收入和支出。
为了有效的管理这些经济问题，可以运用工作表记录收入和支出费用，对其进行家庭理财。
下面利用Excel的设置单元格来制作一款“家庭财务收支表”来管理经济的收入和支出，并利用SUM函数计算本月余额。
1．练习要点●数据的输入●单元格的设置●函数的应用2．操作步骤：（1）新建一张空白工作表，在A1单元格中，输入“家庭财务收支表”文字。
然后，选择A1至E1单元格区域，单击【对齐方式】组中的【合并后居中】按钮，并设置字体格式，如图1-55所示。
设置设置图1-55 设置字体格式提示在【字体】组中，设置【字体】为“华文中宋”；【字号】为18，并单击【加粗】按钮。
（2）在A2至E2单元格区域中，输入各字段名的信息，在【字体】组中设置【字体】为“宋体”；【字号】为12; 【填充颜色】为“绿色”，并单击【对齐方式】组中的【居中】，如图1-56所示。
图1-56 设置字体格式（3）在A3单元格中，输入数字1。
然后，向下拖动填充柄至A22单元格，单击【自动填充选项】下拉按钮，选择【填充序列】单选按钮，如图1-57所示。
图1-57 设置填充格式（4）在单元格B4至B22单元格区域中，输入日期信息。
然后，在【设置单元格格式】对话框中，选择【数字】选项卡，并选择【分类】栏中的【日期】项，如图1-58所示。
图1-58 设置单元格格式提示单击【单元格】组中的【格式】下拉按钮，执行【设置单元格格式】命令，即可弹出【设置单元格格式】对话框。
设置设置选择选择（5）在C4至E22单元格区域中，输入收支项目、收入和支出信息，并设置“收入”和“支出”字段所在列的单元格格式，如图1-59所示。
图1-59 输入数据信息提示在【设置单元格格式】对话框中，选择【数字】选项卡，设置【分类】为“货币”。
（6）在A23单元格中，输入“本月余额”文字，并设置【字体】为“楷体-GB2312”；【字号】为“14”。
个人理财家庭收支表
个人理财家庭收支表家庭是每个人的温馨港湾，也是财务管理的重要领域。
一个合理的家庭收支表可以帮助我们清晰地了解家庭的财务状况，合理规划每一笔开支，保证生活的质量，并为未来的发展打下坚实的基础。
收入部分：1. 工资收入：我们全家人的主要收入来源是工资，我和配偶每月的工资总额约为1.2万人民币。
2. 其他收入：除了工资外，我们还有一些其他收入来源，包括利息、分红、租金等。
每月大约能额外获得500元。
支出部分：1. 生活开支：生活开支是我们最主要的支出项目之一。
包括房贷、水电费、燃气费、通讯费、食品杂货费等。
每月大约需要花费5000元。
2. 子女教育：为了给孩子一个良好的教育环境，我们每月为子女的学费、书籍费、课外活动费等支出约为2000元。
3. 医疗保健：我们非常重视健康，每年的医疗保健费用约为2000元。
4. 养老规划：为了未来的养老生活，我们每月会将一部分资金投入养老规划中，大约为1000元。
5. 娱乐休闲：适当的娱乐休闲对于身心健康非常重要，我们每月安排1000元用于娱乐休闲活动。
6. 其他支出：其他支出包括旅行、家居装修、购物等，每月约为1500元。
储蓄部分：1. 储蓄计划：为了应对紧急情况以及未来的投资机会，我们每月会将一部分资金进行储蓄。
目前每月储蓄额大约为2000元。
总结：通过仔细分析家庭收支表，我们可以看到每个月的收入和支出清晰明了。
我们的收入主要来源于工资，而支出方面主要包括生活开支、子女教育、医疗保健、养老规划、娱乐休闲等。
在合理规划家庭收支的基础上，我们还能有一定的储蓄计划，为未来的发展做好准备。
通过这样的家庭收支表，我们可以更加清晰地了解家庭财务状况，并做出相应的调整和决策，以保证家庭的经济稳定和幸福生活的持续发展。
个人财务表格模板-概述说明以及解释
个人财务表格模板-范文模板及概述示例1:个人财务表格模板的主题是管理个人财务状况的一种有效工具。
财务状况对每个人都至关重要，而使用财务表格模板可以帮助人们更好地组织和追踪自己的财务情况。
以下是一个简单的个人财务表格模板示例，可以帮助你开始记录和管理你的财务数据：1. 每月收入表格：- 列出每个月的各个来源的收入，如工资、奖金、股息等。
- 汇总每个来源的收入总额，并记录在总计栏。
2. 每月支出表格：- 列出每个月的各个支出项，如房租、食品、交通费用、债务还款等。
- 按照各个支出项记录每月的实际支出金额，并计算总支出。
3. 每月储蓄表格：- 将每月的收入总额减去支出总额，得到每月的储蓄金额。
- 汇总每个月的储蓄金额，并记录在总计栏。
4. 净值表格：- 列出每个月的资产项，如银行存款、投资、房屋价值等。
- 列出每个月的负债项，如信用卡债务、个人贷款等。
- 计算每个月的净值，即资产减去负债。
- 汇总每个月的净值，并记录在总计栏。
使用这个个人财务表格模板，你可以清晰地了解每个月的收入、支出、储蓄以及资产负债情况。
同时，你可以通过比较不同月份的数据，发现自己的财务状况的变化趋势，并及时采取相应的调整措施。
此外，这个表格模板还可以帮助你制定和执行个人财务目标，比如增加储蓄、减少债务等。
最后，要记住财务管理是一个长期的过程，个人财务表格模板只是帮助你更好地管理自己财务的工具之一。
除了使用表格模板外，还需要养成良好的消费习惯、制定合理的预算计划以及学习理财知识，才能够实现财务自由和稳健的财务状况。
示例2:个人财务表格模板，是一种用于管理个人财务的工具。
本文将介绍个人财务表格模板的作用、常见的财务表格模板以及如何使用这些模板。
首先，个人财务表格模板的主要作用是帮助个人更好地管理自己的财务情况。
通过记录和跟踪收入和支出，个人可以清晰地了解自己的财务状况，并制定更有效的预算和理财计划。
财务表格模板可以提供一个清晰的财务概览，帮助个人识别并控制消费习惯，以及确定潜在的储蓄和投资机会。
收入支出表格模板
收入支出表格模板首先，我们需要明确收入支出表格的基本结构。
一般来说，收入支出表格可以分为四个部分，收入部分、固定支出部分、变动支出部分和结余部分。
在收入部分，我们需要记录自己的各种收入来源，包括工资、奖金、投资收益等。
在固定支出部分，我们需要记录每个月固定的支出项目，如房租、水电费、车辆保险等。
在变动支出部分，我们需要记录一些不固定的支出项目，如餐饮、购物、娱乐等。
最后，在结余部分，我们需要计算每个月的结余情况，以便及时调整自己的支出计划。
接下来，我们将介绍一个简单的收入支出表格模板，帮助大家更好地管理个人财务。
该表格包括以下几个部分，日期、收入、固定支出、变动支出、结余。
在日期栏中，我们需要记录每笔收入和支出的具体日期。
在收入栏中，我们需要记录每笔收入的具体金额和来源。
在固定支出栏中，我们需要记录每个月固定的支出项目及其具体金额。
在变动支出栏中，我们需要记录一些不固定的支出项目及其具体金额。
最后，在结余栏中，我们需要计算每个月的结余情况，以便及时调整自己的支出计划。
通过这个简单的收入支出表格模板，我们可以清晰地记录和分析自己的财务情况。
通过及时地填写和分析收入支出表格，我们可以更好地掌握自己的财务状况，及时调整自己的支出计划，避免因为财务管理不善而导致的财务困境。
总的来说，收入支出表格是一种非常有效的工具，可以帮助我们更好地管理个人财务。
通过及时地记录和分析收入支出情况，我们可以更好地掌握自己的财务状况，及时调整自己的支出计划，避免因为财务管理不善而导致的财务困境。
希望大家可以利用这个收入支出表格模板，更好地管理自己的财务，实现财务自由和生活幸福。
每日收支记账表-日统计图表分析
服饰 工资 水电费 通讯费 服饰 服饰 工资 水电费 通讯费 服饰 服饰 工资
微信 农行 支付宝 工行 微信 微信 农行 支付宝 工行 微信 微信 农行
￥1,000.00 ￥5,000.00 ￥1,000.00
￥200.00 ￥2,000.00 ￥-440.00 ￥-1,080.00 ￥-1,720.00 ￥-2,360.00 ￥-3,000.00 ￥-3,640.00 ￥-4,280.00
0
7月29日
0
0
7月30日
0
0
7月31日
0
0
0 0 0 0 0 0 0 0
1000 5000 1000 200 2000 -440 -1080 -1720 -2360 -3000 -3640 -4280
0 0 0 0 0 0 0 0
7月21日
0
0
7月22日
0
0
7月23日
0
0
7月24日
0
0
7月25日
0
0
7月26日
0
0
7月27日
0
0
7月28日
0
备注
日期
7月1日 7月2日 7月3日 7月4日 7月5日 7月6日 7月7日 7月8日 7月9日 7月10日 7月11日 7月12日 7月13日 7月14日 7月15日 7月16日 7月17日 7月18日 7月19日 7月20日
收入总额 支出总额
1500 1100 1500 3200 12632 1695.6 1732 3768.4 1804.8 9841.2 1877.6 1914
每日收支分析表
收入总额
支出总额
7777777777777777 月月月月月月月月月月月月月月月月 1111222222222233 6789012345678901 日日日日日日日日日日日日日日日日
财务收支记账管理表格-概述说明以及解释
财务收支记账管理表格-范文模板及概述示例1:在日常生活中，财务收支记账管理表格是一种非常有用的工具，可以帮助我们更好地管理个人或家庭的财务状况。
通过填写这样的表格，我们可以清晰地了解自己的收入来源和支出去向，从而更有效地控制自己的消费习惯，避免出现财务困难。
一般来说，一个财务收支记账管理表格会包括以下几个方面的内容：1. 收入部分：包括工资、奖金、投资收益等各种收入来源，以及具体数额。
2. 支出部分：包括日常生活开销、房贷、车贷、信用卡还款等支出项目，以及具体花费数额。
3. 结余部分：列出每月的结余金额，用于反映当月的财务状况。
通过填写这样的财务收支记账管理表格，我们可以清晰地了解自己每个月的收支情况，及时发现自己的消费习惯中存在的问题，并采取措施加以改进。
此外，通过长期的记录和对比，我们还可以更好地规划和管理自己的财务，实现财务自由的目标。
因此，建议每个人都可以尝试使用财务收支记账管理表格来管理自己的财务，切实提高自己的财务意识和管理能力，实现更好的财务规划和目标。
愿每个人都能在财务管理上取得成功！示例2:在日常生活中，我们经常需要进行财务收支记账管理，以便掌握自己的财务状况、合理安排资金使用、制定合理的理财计划等。
而财务收支记账管理表格是一个非常有用的工具，可以帮助我们记录和管理个人或家庭的财务状况。
一个完善的财务收支记账管理表格包括收入部分和支出部分。
在收入部分，我们可以记录各种来源的收入，比如工资、奖金、投资收益等。
在支出部分，我们可以记录日常生活消费、房租、水电费、交通费用、娱乐支出等各项支出。
通过将收入和支出记录在财务收支记账管理表格中，我们可以清晰地看到自己的每笔财务流动，从而帮助我们更好地管控资金的使用。
在填写财务收支记账管理表格时，我们可以根据自己的实际情况定制表格的分类和细项，以便更方便有效地记录和管理财务信息。
定期审核和分析收支情况也是非常重要的，可以帮助我们及时发现问题、调整支出计划，保持财务健康。
财务收支表-收入图表分析(完美版)
502
698
503
489
1642
504
1776
1648
现金
1642
504
8月 9月 10月 11月 12月
项目1 项目1 项目1 项目1 项目1 项目1 项目1 项目1 项目1 项目1 项目1 项目1 项目2 项目3 项目4 项目5 项目6 项目7 项目8 项目9 项目10 项目11 项目12 项目13 项目14 项目15 项目16
账户
微信 支付宝
现金 农行-7498 工行-2487
微信 支付宝
现金 农行-7498 工行-2487
财务收支表-收入图表分析
日期 项目摘要
2021/1/1 2021/2/1 2021/3/1 2021/4/1 2021/5/1 2021/6/1 2021/7/1 2021/8/1 2021/9/1 2021/10/1 2021/11/1 2021/12/1 2021/1/1 2021/2/1 2021/3/1 2021/4/1 2021/7/1 2021/8/1 2021/9/1 2021/10/1 2021/7/1 2021/8/1 2021/9/1 2021/10/1 2021/9/1 2021/10/1 2021/11/1
结存
-380 -260 60 -1420 320 1680 -240 288 419 240 335 126 126 126 126 126 126 126 126 126 126 126 126 126 126 126 126
分析
收入全月份统计及动态图表
凭证字据
பைடு நூலகம்备注
账户 1月 2月 3月 4月 5月 6月 7月
收入金额 支出金额
￥200.00 ￥580.00 ￥100.00 ￥360.00 ￥580.00 ￥520.00 ￥360.00 ￥1,780.00 ￥520.00 ￥200.00 ￥1,780.00 ￥100.00 ￥340.00 ￥580.00 ￥648.00 ￥360.00 ￥780.00 ￥361.00 ￥650.00 ￥410.00 ￥698.00 ￥363.00 ￥489.00 ￥363.00 ￥490.00 ￥364.00 ￥491.00 ￥365.00 ￥492.00 ￥366.00 ￥493.00 ￥367.00 ￥494.00 ￥368.00 ￥495.00 ￥369.00 ￥496.00 ￥370.00 ￥497.00 ￥371.00 ￥498.00 ￥372.00 ￥499.00 ￥373.00 ￥500.00 ￥374.00 ￥501.00 ￥375.00 ￥502.00 ￥376.00 ￥503.00 ￥377.00 ￥504.00 ￥378.00
财务出纳现金日记账(年度收支图表分析)
￥ 396.00 ￥13,889.00
￥15,889.00
￥ 500.00 ￥15,389.00
￥19,693.00
￥ 1,468.00 ￥18,225.00
￥18,225.00
￥18,225.00
￥18,225.00
￥18,225.00
￥18,225.00
￥18,225.00
￥18,225.00
备注
￥ 2,100.00 ￥6,184.00
￥9,080.00
￥ 1,769.00 ￥7,311.00
￥11,615.00
￥ 1,468.00 ￥10,147.00
￥14,750.00
￥ 2,780.00 ￥11,970.00
￥15,175.00
￥ 1,890.00 ￥13,285.00
￥14,285.00
#
转入
【七周年 纪念茶杯
#
转入
【七周年 纪念茶杯
#
转入
【七周年 纪念茶杯
#
转入
【七周年 纪念茶杯
#
转入
【七周年 纪念茶杯
#
转入
【七周年 纪念茶杯
#
转入
昭通陶先 生转入
#
转入
【七周年 纪念茶杯
#
转入
【七周年 纪念茶杯
#
转入
【七周年 纪念茶杯
#
转入
【七周年 纪念茶杯
#
转出
【七周年 纪念茶杯
#
转入
微信网友 韦一转入
#
转入
微信网友 韦一转入
#
转入
江苏太仓 张女士转
#
转入
盐津杨女 士转入公
#
收支日记账-图表分析(日期查询
摘要37
12月 6月 1月 2月 3月 4月 5月 6月 7月 8月 9月 10月 11月 12月
2018/12/23 2018/6/17 2018/1/5 2018/2/6 2018/3/10 2018/4/11 2018/5/13 2018/6/14 2018/7/16 2018/8/17 2018/9/18 2018/10/20 2018/11/21 2018/12/23
1294
1137
1174
897 1058 991 1168
760
793
505
509
513
517
645
534
344
669
388
545
474
523
收支日记账
收
入
支出
摘要
金额
账户
摘要
443 月
548 5月
200 300 198 176 208 200 376 214 200 300 198 176 208 278 279 523480 281 282 283 6月 284 285 286 287 214 200 138 198 176 208 278 376 144 200 300 198 176 208
摘要22
11月 2018/11/21 项目23
摘要23
12月 2018/12/23 项目24
摘要24
12月 2018/12/23 项目25
摘要25
6月
2018/6/17 项目26
摘要26
1月
2018/1/5 项目27
摘要27
2月
2018/2/6 项目28
摘要28
3月
2018/3/10 项目29
简单好用的家庭收支记账表格
简单好用的家庭收支记账表格
以下是一个简单好用的家庭收支记账表格模板，你可以根据自己的需要进行修改和扩展。
这个表格包含收入、支出和结余三部分，可以方便地记录日常生活中的收支情况。
在表格中，每一行代表一天的收支情况。
收入和支出部分可以根据个人情况进行填写，如收入可以包括工资、奖金、理财收益等，支出可以包括日常生活费用、购物、娱乐等。
结余部分则表示当天的收支结余情况，即收入减去支出的结果。
在填写表格时，可以根据之前的收支情况进行填写，并在后续的每一天进行更新。
这样可以方便地查看家庭的收支情况，及时调整支出计划，更好地管理家庭财务。
收支表-图表分析计算
1,282.89 855.26
7.50 622,051.38
3
2020年9月15日
4
2020年9月16日
4
收支表+图表分析+公式计算
输入起止日期
摘要
缴税费 缴税费 缴税费 缴税费 缴税费 缴税费 缴税费 缴税费 培训收入 培训收入 培训收入 培训收入 结转本月收入 结转本月收入 计提税金及附加 计提税金及附加
2020年9月1日 2020年9月15日
收入 支出
￥1,668,831 ￥2,000,
应交税费 应交税费 应交税费 应交税费 应交税费 管理费用 管理费用 银行存款 银行存款 主营业务收入 主营业务收入 应交税费 主营业务收入 本年利润 税金及附加 应交税费
一级子目
增值税 城建税 教育费附加 地方教育费附加 企业所得税
5
2020年9月20日
5
计提税金及附加 计提税金及附加 计提企业所得税 计提企业所得税
应交税费 应交税费 所得税费用 应交税费 合计
教育费附加 地方教育费附加
企业所得税
7.50 1,668,838.61
收入
支出
贷方金额
195,209.56
378,339.82 300.00
42,762.95
300.00
收入 支出
日期
凭证号
2020年9月1日
1
2020年9月2日
1
2020年9月3日
1
2020年9月4日
1
2020年9月5日
1
2020年9月6日
1
2020年9月7日
1
2020年9月8日
1
2020年9月9日
excel收支理财管理及财务知识分析系统
Excel收支理财管理及财务知识分析系统Dim lv_huo(1 To 1000)Dim lv_ding1_3(1 To 1000)Dim lv_ding1_6(1 To 1000)Dim lv_ding1_12(1 To 1000)Dim lv_ding1_24(1 To 1000)Dim lv_ding1_36(1 To 1000)Dim lv_ding1_60(1 To 1000)Dim lv_ding2_12(1 To 1000)Dim lv_ding2_36(1 To 1000)Dim lv_ding2_60(1 To 1000)Dim rng As Rangern = Range("b65536").End(xlUp).Row '最大行号cn = Range("b2").End(xlToRight).Column '最大列号Application.ScreenUpdating = False'数据初始化If Sheet1.Cells(ActiveCell.Row, 1) = "" And Sheet1.Cells(ActiveCell.Row, 3) = "" And Sheet1.Cells(ActiveCell.Row, 2) <> "" ThenSheet1.Cells(ActiveCell.Row, 1) = "中国银行"End IfFor y = 3 To rnIf Sheet1.Cells(y, 1) <> "" ThenSheet4.Select'查找银行名称Set rng = Sheet4.[B:B].Find(Sheet1.Cells(y, 1))'定位银行If Not rng Is Nothing Then'rng.Font.ColorIndex = 3 '颜色暂不设置Application.GotoReference:=rng.Address(, , xlR1C1)End IfEnd Iflv_huo(y) = Sheet4.Cells(ActiveCell.Row + 3, ActiveCell.Column + 1)lv_ding1_3(y) = Sheet4.Cells(ActiveCell.Row + 6, ActiveCell.Column + 1)lv_ding1_6(y) = Sheet4.Cells(ActiveCell.Row + 7, ActiveCell.Column + 1)lv_ding1_12(y) = Sheet4.Cells(ActiveCell.Row + 8, ActiveCell.Column + 1)lv_ding1_24(y) = Sheet4.Cells(ActiveCell.Row + 9, ActiveCell.Column + 1)lv_ding1_36(y) = Sheet4.Cells(ActiveCell.Row + 10, ActiveCell.Column + 1)lv_ding1_60(y) = Sheet4.Cells(ActiveCell.Row + 11, ActiveCell.Column + 1)lv_ding2_12(y) = Sheet4.Cells(ActiveCell.Row + 13, ActiveCell.Column + 1)lv_ding2_36(y) = Sheet4.Cells(ActiveCell.Row + 14, ActiveCell.Column + 1)lv_ding2_60(y) =Sheet4.Cells(ActiveCell.Row + 15, ActiveCell.Column + 1)'返回sheet“银行项目”Sheet1.SelectNext'--------------'格式初始化With Range(Sheet1.Cells(3, 1), Sheet1.Cells(rn + 30, cn)).Interior.Pattern = xlNone.TintAndShade = 0.PatternTintAndShade = 0End With'---------------'取消列表With Sheet1.Range("A:A").Validation.Delete.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _:=xlBetween.InCellDropdown = True.InputTitle = "".ErrorTitle = "".InputMessage = "".ErrorMessage = "".IMEMode = xlIMEModeNoControl.ShowInput = True.ShowError = TrueEnd WithWith Sheet1.Range("C:C").Validation.Delete.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _:=xlBetween.IgnoreBlank = True.InCellDropdown = True.InputTitle = "".ErrorTitle = "".InputMessage = "".ErrorMessage = "".IMEMode = xlIMEModeNoControl.ShowError = TrueEnd With'银行列表更新rn4 = Sheet4.Range("e65536").End(xlUp).Rowf = "=基本信息!E5:E" & rn4 & ""With Range("A3").Validation.Delete.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=f.IgnoreBlank = True.InCellDropdown = True.InputTitle = "".ErrorTitle = "".InputMessage = "".ErrorMessage = "".IMEMode = xlIMEModeNoControl.ShowInput = True.ShowError = TrueEnd With'项目列表With Range("C3").Validation.Delete.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="活期,整存整取,整存零取,零存整取,存本取息,定活两便".IgnoreBlank = True.InCellDropdown = True.InputTitle = "".ErrorTitle = "".InputMessage = "".ErrorMessage = "".IMEMode = xlIMEModeNoControl.ShowInput = True.ShowError = TrueEnd WithFor Z = 3 To rn'银行列表更新rn4 =Sheet4.Range("e65536").End(xlUp).Rowf = "=基本信息!E5:E" & rn4 & ""With Range("A" & Z + 1).Validation.Delete.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=f.IgnoreBlank = True.InCellDropdown = True.InputTitle = "".ErrorTitle = "".InputMessage = "".ErrorMessage = "".IMEMode = xlIMEModeNoControl.ShowInput = True.ShowError = TrueEnd With'项目列表With Range("C" & Z + 1).Validation.Delete.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _xlBetween, Formula1:="活期,整存整取,整存零取,零存整取,存本取息,定活两便".IgnoreBlank = True.InCellDropdown = True.InputTitle = "".ErrorTitle = "".InputMessage = "".ErrorMessage = "".IMEMode = xlIMEModeNoControl.ShowInput = True.ShowError = TrueEnd With'-----------------------'年利率If Sheet1.Cells(Z, 3) = "Huo" Or Sheet1.Cells(Z, 3) = "活期" Thenlv = lv_huo(Z)Sheet1.Cells(Z, 6) = lvEnd IfIf Sheet1.Cells(Z, 3) = "ZZ" OrSheet1.Cells(Z, 3) = "整存整取" ThenIf Sheet1.Cells(Z, 5) < 6 Thenlv = lv_ding1_3(Z) '3个月End IfIf Sheet1.Cells(Z, 5) >= 6 And Sheet1.Cells(Z, 5) < 12 Thenlv = lv_ding1_6(Z) '半年End IfIf Sheet1.Cells(Z, 5) >= 12 And Sheet1.Cells(Z, 5) < 24 Thenlv = lv_ding1_12(Z) '1年End IfIf Sheet1.Cells(Z, 5) >= 24 And Sheet1.Cells(Z, 5) < 36 Thenlv = lv_ding1_24(Z) '2年End IfIf Sheet1.Cells(Z, 5) >= 36 And Sheet1.Cells(Z, 5) < 60 Thenlv = lv_ding1_36(Z) '3年End IfIf Sheet1.Cells(Z, 5) >= 60 Thenlv = lv_ding1_60(Z) '5年End IfSheet1.Cells(Z, 6) = lvEnd IfIf Sheet1.Cells(Z, 3) = "ZL LZ BX" OrSheet1.Cells(Z, 3) = "零存整取" Or Sheet1.Cells(Z, 3) = "整存零取" Or Sheet1.Cells(Z, 3) = "存本取息" ThenIf Sheet1.Cells(Z, 5) >= 12 And Sheet1.Cells(Z, 5) < 36 Thenlv = lv_ding2_12(Z) '1年End IfIf Sheet1.Cells(Z, 5) >= 36 And Sheet1.Cells(Z, 5) < 60 Thenlv = lv_ding2_36(Z) '3年End IfIf Sheet1.Cells(Z, 5) >= 60 Thenlv = lv_ding2_60(Z) '5年End IfSheet1.Cells(Z, 6) = lvEnd IfIf Sheet1.Cells(Z, 3) = "定活两便" Then If Sheet1.Cells(Z, 4) = "" And Sheet1.Cells(Z, 5) = "" Thendh = MsgBox("未区分各家银行计算方法，结果不一定准确，按利率60%计算？", vbYesNo, "提示")If dh = vbYes ThenIf Sheet1.Cells(Z, 5) < 6Thenlv = lv_ding1_3(Z) '3个月End IfIf Sheet1.Cells(Z, 5) >= 6And Sheet1.Cells(Z, 5) < 12 Thenlv = lv_ding1_6(Z) '半年End IfIf Sheet1.Cells(Z, 5) >= 12 And Sheet1.Cells(Z, 5) < 24 Thenlv = lv_ding1_12(Z) '1年End IfIf Sheet1.Cells(Z, 5) >= 24 And Sheet1.Cells(Z, 5) < 36 Thenlv = lv_ding1_24(Z) '2年End IfIf Sheet1.Cells(Z, 5) >= 36 And Sheet1.Cells(Z, 5) < 60 Thenlv = lv_ding1_36(Z) '3年End IfIf Sheet1.Cells(Z, 5) >= 60 Thenlv = lv_ding1_60(Z) '5年End Iflv = lv * 0.6ElseSheet1.Cells(Z, 3) = ""End IfElseIf Sheet1.Cells(Z, 5) < 6 Thenlv = lv_ding1_3(Z) '3个月End IfIf Sheet1.Cells(Z, 5) >= 6 AndSheet1.Cells(Z, 5) < 12 Thenlv = lv_ding1_6(Z) '半年 End IfIf Sheet1.Cells(Z, 5) >= 12 And Sheet1.Cells(Z, 5) < 24 Thenlv = lv_ding1_12(Z) '1年End IfIf Sheet1.Cells(Z, 5) >= 24 And Sheet1.Cells(Z, 5) < 36 Thenlv = lv_ding1_24(Z) '2年 End IfIf Sheet1.Cells(Z, 5) >= 36 And Sheet1.Cells(Z, 5) < 60 Thenlv = lv_ding1_36(Z) '3年 End IfIf Sheet1.Cells(Z, 5) >= 60 Thenlv = lv_ding1_60(Z) '5年lv = lv * 0.6End IfSheet1.Cells(Z, 6) = lvEnd If'-------------------------------------------On Error Resume NextIf Target.Column = 4 And Target.Value <> "存入日期" And Target.Row > 2 And Target.Row <= rn ThenCalendar1.Visible = True '日历控件Calendar1.Left = Cells(Target.Row, 4).LeftCalendar1.Top = Cells(Target.Row + 1, 4).TopWith Calendar1 '当前日期.Year = Year(Now).Month = Month(Now).Day = Day(Now)ElseIf Target.Column = 1 And Target.Row = 1 ThenCalendar1.Visible = True '日历控件Calendar1.Left = Cells(Target.Row, 1).LeftCalendar1.Top = Cells(Target.Row + 1, 1).TopWith Calendar1 '当前日期.Year = Year(Now).Month = Month(Now).Day = Day(Now)End WithElseCalendar1.Visible = FalseEnd IfOn Error Resume Nextnian = Int(Sheet1.Cells(Z, 5) / 12) '年数yue = Sheet1.Cells(Z, 5) - 12 * nian'月数lixishui = 0 '利息税率daoqi = Sheet1.Cells(Z, 2) + Sheet1.Cells(Z, 2) * (lv / 100) * (Sheet1.Cells(Z, 5) / 12) * (1 - lixishui)'到期总数'当前日期与存入日期相差月数If Year(Sheet1.Cells(1, 1)) >= Year(Sheet1.Cells(Z, 4)) And Month(Sheet1.Cells(1, 1)) >= Month(Sheet1.Cells(Z, 4)) And Day(Sheet1.Cells(1, 1)) >= Day(Sheet1.Cells(Z, 4)) Thenm = (Year(Sheet1.Cells(1, 1)) - Year(Sheet1.Cells(Z, 4))) * 12 + Month(Sheet1.Cells(1, 1)) - Month(Sheet1.Cells(Z, 4))End IfIf Year(Sheet1.Cells(1, 1)) >= Year(Sheet1.Cells(Z, 4)) AndMonth(Sheet1.Cells(Z, 4)) And Day(Sheet1.Cells(1, 1)) < Day(Sheet1.Cells(Z, 4)) Thenm = (Year(Sheet1.Cells(1, 1)) - Year(Sheet1.Cells(Z, 4))) * 12 + Month(Sheet1.Cells(1, 1)) - Month(Sheet1.Cells(Z, 4)) - 1End IfIf Year(Sheet1.Cells(1, 1)) >= Year(Sheet1.Cells(Z, 4)) And Month(Sheet1.Cells(1, 1)) < Month(Sheet1.Cells(Z, 4)) And Day(Sheet1.Cells(1, 1)) >= Day(Sheet1.Cells(Z, 4)) Thenm = (Year(Sheet1.Cells(1, 1)) - Year(Sheet1.Cells(Z, 4))) * 12 - Month(Sheet1.Cells(1, 1)) + Month(Sheet1.Cells(Z, 4))End IfIf Year(Sheet1.Cells(1, 1)) >= Year(Sheet1.Cells(Z, 4)) AndMonth(Sheet1.Cells(Z, 4)) And Day(Sheet1.Cells(1, 1)) >= Day(Sheet1.Cells(Z, 4)) Thenm = (Year(Sheet1.Cells(1, 1)) - Year(Sheet1.Cells(Z, 4))) * 12 - Month(Sheet1.Cells(1, 1)) + Month(Sheet1.Cells(Z, 4)) - 1End IfIf Year(Sheet1.Cells(1, 1)) < Year(Sheet1.Cells(Z, 4)) Thenm = 0End IfIf Year(Sheet1.Cells(1, 1)) = Year(Sheet1.Cells(Z, 4)) And Month(Sheet1.Cells(1, 1)) < Month(Sheet1.Cells(Z, 4)) Thenm = 0End IfIf Year(Sheet1.Cells(1, 1)) = Year(Sheet1.Cells(Z, 4)) And Month(Sheet1.Cells(1, 1)) =Day(Sheet1.Cells(1, 1)) < Day(Sheet1.Cells(Z, 4)) Thenm = 0End If'----------------------------zhuan = Int(m / Sheet1.Cells(Z, 5)) - 1 '转存次数If zhuan < 0 Thenzhuan = 0End If'数据写入If Z > 2 And Sheet1.Cells(Z, 6) <> ""ThenSheet1.Cells(Z, 7) = daoqi '---到期总数If Sheet1.Cells(Z, 4) <> "" ThenSheet1.Cells(Z,8).FormulaR1C1 = _"=DATE(YEAR(RC[-4]),MONTH(RC[-4])+RC[-3], DAY(RC[-4]))" '---到期日期End IfEnd IfIf Sheet1.Cells(Z, 7) <> "" ThenSheet1.Cells(Z, 9) = (Sheet1.Cells(Z, 7) - Sheet1.Cells(Z, 2))'---利息ElseSheet1.Cells(Z, 9) = ""End IfSheet1.Cells(Z, 10) = zhuan '---转存次数zhuancun(1) = Sheet1.Cells(Z, 7) + Sheet1.Cells(Z, 7) * (lv / 100) * (Sheet1.Cells(Z, 5) / 12) * (1 - lixishui)'第一次转存到期总数If zhuan >= 2 ThenFor i = 2 To zhuanzhuancun(i) = zhuancun(i - 1) + zhuancun(i - 1) * (lv / 100) * (Sheet1.Cells(Z, 5) / 12) * (1 - lixishui)NextEnd IfIf Int(m / Sheet1.Cells(Z, 5)) = m /Sheet1.Cells(Z, 5) ThenSheet1.Cells(Z, 11).FormulaR1C1 =_"=DATE(YEAR(RC[-7]),MONTH(RC[-7])+RC[-6]* (RC[-1]+1),DAY(RC[-7]))" '---转存到期日期ElseSheet1.Cells(Z, 11).FormulaR1C1 =_"=DATE(YEAR(RC[-7]),MONTH(RC[-7])+RC[-6]* (RC[-1]+1),DAY(RC[-7]))" '---转存到期日期End IfIf zhuan < 1 ThenSheet1.Cells(Z, 10) = ""Sheet1.Cells(Z, 11) = ""Sheet1.Cells(Z, 12) = Sheet1.Cells(Z, 7)Sheet1.Cells(Z, 13) = Sheet1.Cells(Z, 9)ElseSheet1.Cells(Z, 12) = zhuancun(zhuan) '---当前总额Sheet1.Cells(Z, 13) = Sheet1.Cells(Z, 12) - Sheet1.Cells(Z, 2) '---当前利息End If'-------------------------------------'格式If Z Mod 2 = 1 Then '当前行数除以2的余数为1（奇数）With Range(Sheet1.Cells(Z, 1),Sheet1.Cells(Z, 14)).Interior.Pattern = xlSolid.PatternColorIndex = xlAutomatic.Color = 10198015.TintAndShade = 0.PatternTintAndShade = 0End WithElseIf Z Mod 2 = 0 Then '当前行数除以2的余数为0（偶数）With Range(Sheet1.Cells(Z, 1), Sheet1.Cells(Z, 14)).Interior.Pattern = xlSolid.PatternColorIndex = xlAutomatic.Color = 13421823.TintAndShade = 0.PatternTintAndShade = 0End WithEnd If'---------------------------------------'未选择银行不计利率If Sheet1.Cells(Z, 1) = "" Thenlv = 0Sheet1.Cells(Z, 6) = ""Sheet1.Cells(Z, 7) = ""Sheet1.Cells(Z, 9) = ""End If'活期不考虑到期时间，按存入时间到当前日期利息计算If Sheet1.Cells(Z, 3) = "活期" Thentian = Date - Sheet1.Cells(Z, 4)nian1 = Int(tian / 365) '年数yue1 = Sheet1.Cells(Z, 5) - 12 * nian '月数Sheet1.Cells(Z, 7) = Sheet1.Cells(Z, 2) + Sheet1.Cells(Z, 2) * lv / 100 * (tian / 365)Sheet1.Cells(Z, 9) = Sheet1.Cells(Z, 7) - Sheet1.Cells(Z, 2)Sheet1.Cells(Z, 5) = ""Sheet1.Cells(Z, 6) = lvSheet1.Cells(Z, 8) = ""Sheet1.Cells(Z, 10) = ""Sheet1.Cells(Z, 11) = ""Sheet1.Cells(Z, 12) = Sheet1.Cells(Z, 7)Sheet1.Cells(Z, 13) = Sheet1.Cells(Z, 9)End If'未选择存入时间If Sheet1.Cells(Z, 4) = "" ThenSheet1.Cells(Z, 9) = ""Sheet1.Cells(Z, 10) = ""Sheet1.Cells(Z, 11) = ""Sheet1.Cells(Z, 13) = ""Sheet1.Cells(Z, 7) = Sheet1.Cells(Z, 2)Sheet1.Cells(Z, 12) = Sheet1.Cells(Z, 2)End If'到期提示If Sheet1.Cells(Z, 8) < Sheet1.Cells(1, 1) ThenWith Sheet1.Cells(Z, 8).Font.Color = -65281.TintAndShade = 0End WithElseWith Sheet1.Cells(Z, 8).Font.ThemeColor = xlThemeColorLight1.TintAndShade = 0End WithEnd IfIf Sheet1.Cells(Z, 11) < Sheet1.Cells(1, 1) ThenWith Sheet1.Cells(Z, 11).Font.Color = -65281.TintAndShade = 0End WithElseWith Sheet1.Cells(Z, 11).Font.ThemeColor = xlThemeColorLight1.TintAndShade = 0End WithEnd IfNext'------------------------------------------------------------------For j = 3 To rn + 1000If Sheet1.Cells(j, 2) = "" And Sheet1.Cells(j, 3) <> "" Thensc = MsgBox("确认删除该项目？", vbYesNo, "提示")If sc = vbYes ThenSheet1.Cells(j, 1) = ""Sheet1.Cells(j, 3) = ""Sheet1.Cells(j, 4) = ""Sheet1.Cells(j, 5) = ""Sheet1.Cells(j, 6) = ""Sheet1.Cells(j, 7) = ""Sheet1.Cells(j, 8) = ""Sheet1.Cells(j, 9) = ""Sheet1.Cells(j, 10) = ""Sheet1.Cells(j, 11) = ""Sheet1.Cells(j, 12) = ""Sheet1.Cells(j, 13) = ""Sheet1.Cells(j, 14) = ""End IfRows(j).DeleteEnd IfNext'图表数据处理'图表1，饼图，显示各银行资金分布Sheet6.Columns("A:B").ClearSheet6.Cells(1, 1) = "图表1"zong = 0ben = 0nianli = 0For K = 3 To rnrn1 = Sheet6.Range("a65536").End(xlUp).RowIf rn1 < 2 Thenrn1 = 2End Ifflag = 0For k1 = 3 To rn1If Sheet1.Cells(K, 1) = Sheet6.Cells(k1, 1) Thenflag = flag + 1Sheet6.Cells(k1, 2) = Sheet6.Cells(k1, 2) + Sheet1.Cells(K, 12)End IfNextIf flag = 0 ThenSheet6.Cells(rn1 + 1, 1) = Sheet1.Cells(K, 1)Sheet6.Cells(rn1 + 1, 2) = Sheet1.Cells(K, 12)End Ifzong = zong + Sheet1.Cells(K, 12)ben = ben + Sheet1.Cells(K, 2)nianli = nianli + (Sheet1.Cells(K, 13)/ (Sheet1.Cells(K, 5) + Sheet1.Cells(K, 5)* Sheet1.Cells(K, 10))) * 12NextSheet1.Cells(1, 15) = "银行总额:" & Format(zong, "#,##0.0")Sheet1.Cells(2, 15) = Application.Text(Format(zong, "###0"), "[DBNum2]") '大写Sheet1.Cells(3, 15) = "本金：" & Application.Text(Format(ben, "###0"), "[DBNum2]") '大写Sheet1.Cells(4, 15) = "年收益：" & Application.Text(Format(nianli, "###0"), "[DBNum1]") & "[" & Format(nianli, "###0")& "]" '大写'图表设置r = ActiveCell.Rowc = ActiveCell.Column'Range("A1:C" & 5 & ", E1:G" & 5 & "")等价于Range("A1:C5, E1:G5")rn1 = Sheet6.Range("a65536").End(xlUp).RowIf rn1 >= 2 ThenActiveSheet.ChartObjects("图表1").ActivateActiveChart.SetSourceDataSource:=Sheet6.Range("A2:A" & rn1 & ", B2:B" & rn1 & "")Sheet1.Cells(r, c).Select'设置绘图区格式With Sheets(1).ChartObjects("图表 1") .Name.Left.Top.Height = 250.Width.Chart.ChartTypeEnd WithEnd IfWith Range("O3", "O4").HorizontalAlignment = xlRight.VerticalAlignment = xlCenter.WrapText = False.Orientation = 0.AddIndent = False.IndentLevel = 0.ShrinkToFit = False.ReadingOrder = xlContext.MergeCells = FalseEnd WithWith Range("O3").Font.Color = -16751104.TintAndShade = 0End WithWith Range("O4").Font.Color = -3368704.TintAndShade = 0End WithRange("O3", "O4").Font.Size = 9 End Sub界面“收支记录”“收支记录”中复制代码如下：Dim riDim r(0 To 1)Dim r1(0 To 1)Dim r2(0 To 1)Dim r3(0 To 1)Dim r10(0 To 1)Dim r11(0 To 1)Dim r12(0 To 1)Dim r13(0 To 1)Dim kongDim kong1Dim kong2Dim kong10Dim kong11Dim kong12Dim flag_shanDim flag_shan10Private Sub Calendar1_Click()ActiveCell = Calendar1Calendar1.Visible = FalseEnd SubPrivate SubWorksheet_SelectionChange(ByVal Target As Range)ri = ri + 1 'ri定义为鼠标点击次数rik = ri Mod 2 'rik为0或1rns = Range("B65536").End(xlUp).Row '收入最大行号rnz = Range("L65536").End(xlUp).Row '支出最大行号If rns >= rnz Thenrn = rnsElsern = rnzEnd Ifcns = Range("B2").End(xlToRight).Column '最大列号cnz = Range("L2").End(xlToRight).Column '最大列号'格式初始化With Range(Sheet2.Cells(3, 1),Sheet2.Cells(rn + 10, cnz)).Interior.Pattern = xlNone.TintAndShade = 0.PatternTintAndShade = 0End With'---------------With Sheet2.Range("A:N").Validation.Delete.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _:=xlBetween.IgnoreBlank = True.InCellDropdown = True.InputTitle = "".ErrorTitle = "".InputMessage = "".ErrorMessage = "".IMEMode = xlIMEModeNoControl.ShowInput = True.ShowError = TrueEnd With'收入项目列表更新rn7s =Sheet7.Range("A65536").End(xlUp).Rowf = "=收支项目!A2:A" & rn7s & ""With Range("B3").Validation.Delete.Add Type:=xlValidateList,AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=f.IgnoreBlank = True.InCellDropdown = True.InputTitle = "".ErrorTitle = "".InputMessage = "".ErrorMessage = "".IMEMode = xlIMEModeNoControl.ShowInput = True.ShowError = TrueEnd With'支出项目列表更新rn7z =Sheet7.Range("C65536").End(xlUp).Rowf = "=收支项目!C2:C" & rn7z & ""With Range("L3").Validation.Delete.Add Type:=xlValidateList,AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=f.IgnoreBlank = True.InCellDropdown = True.InputTitle = "".ErrorTitle = "".InputMessage = "".ErrorMessage = "".IMEMode = xlIMEModeNoControl.ShowInput = True.ShowError = TrueEnd With'收入账户列表更新rn4 =Sheet4.Range("e65536").End(xlUp).Rowf = "=基本信息!E5:E" & rn4 & ""With Range("D3").Validation.Delete.Add Type:=xlValidateList,AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=f.IgnoreBlank = True.InCellDropdown = True.InputTitle = "".ErrorTitle = "".InputMessage = "".ErrorMessage = "".IMEMode = xlIMEModeNoControl.ShowInput = True.ShowError = TrueEnd With'支出账户列表更新rn4 =Sheet4.Range("e65536").End(xlUp).Rowf = "=基本信息!E5:E" & rn4 & ""With Range("n3").Validation.Delete.Add Type:=xlValidateList,AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=f.IgnoreBlank = True.InCellDropdown = True.InputTitle = "".ErrorTitle = "".InputMessage = "".ErrorMessage = "".IMEMode = xlIMEModeNoControl.ShowInput = True.ShowError = TrueEnd WithFor Z = 2 To rn'收入项目列表更新rn7s =Sheet7.Range("A65536").End(xlUp).Rowf = "=收支项目!A2:A" & rn7s & ""With Range("B" & Z + 1).Validation.Delete.Add Type:=xlValidateList,AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=f.IgnoreBlank = True.InCellDropdown = True.InputTitle = "".ErrorTitle = "".InputMessage = "".ErrorMessage = "".IMEMode = xlIMEModeNoControl.ShowInput = True.ShowError = TrueEnd With'支出项目列表更新rn7z =Sheet7.Range("C65536").End(xlUp).Rowf = "=收支项目!C2:C" & rn7z & ""With Range("L" & Z + 1).Validation.Delete.Add Type:=xlValidateList,AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=f.IgnoreBlank = True.InCellDropdown = True.InputTitle = "".ErrorTitle = "".InputMessage = "".ErrorMessage = "".IMEMode = xlIMEModeNoControl.ShowInput = True.ShowError = TrueEnd With'收入账户列表更新rn4 =Sheet4.Range("e65536").End(xlUp).Rowf = "=基本信息!E5:E" & rn4 & ""With Range("D" & Z + 1).Validation.Delete.Add Type:=xlValidateList,AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=f.IgnoreBlank = True.InCellDropdown = True.InputTitle = "".ErrorTitle = "".InputMessage = "".ErrorMessage = "".IMEMode = xlIMEModeNoControl.ShowInput = True.ShowError = TrueEnd With'支出账户列表更新rn4 =Sheet4.Range("e65536").End(xlUp).Rowf = "=基本信息!E5:E" & rn4 & ""With Range("N" & Z + 1).Validation.Delete.Add Type:=xlValidateList,AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=f.IgnoreBlank = True.InCellDropdown = True.InputTitle = "".ErrorTitle = "".InputMessage = "".ErrorMessage = "".IMEMode = xlIMEModeNoControl.ShowInput = True.ShowError = TrueEnd WithOn Error Resume NextIf Target.Column = 1 And Target.Value <> "日期" And Target.Row > 2 And Target.Row <= rn + 1 ThenCalendar1.Visible = True '日历控件Calendar1.Left = Cells(Target.Row, 1).LeftCalendar1.Top = Cells(Target.Row + 1, 1).TopWith Calendar1 '当前日期.Year = Year(Now).Month = Month(Now).Day = Day(Now)End WithElseIf Target.Column = 11 AndTarget.Value <> "日期" And Target.Row > 2 And Target.Row <= rn + 1 ThenCalendar1.Visible = True '日历控件Calendar1.Left = Cells(Target.Row, 11).LeftCalendar1.Top = Cells(Target.Row + 1, 11).TopWith Calendar1 '当前日期.Year = Year(Now).Month = Month(Now).Day = Day(Now)End WithElseCalendar1.Visible = FalseEnd If'格式If Z Mod 2 = 1 Then '当前行数除以2的余数为1（奇数）If Sheet2.Cells(Z + 1, 1) <> "" Or Sheet2.Cells(Z + 1, 2) <> "" ThenWith Range(Sheet2.Cells(Z+ 1, 1), Sheet2.Cells(Z + 1, cns)).Interior.Pattern = xlSolid.PatternColorIndex =xlAutomatic.Color = 13421823.TintAndShade = 0.PatternTintAndShade= 0End WithEnd If。