Ecel收支理财管理及财务知识分析系统.docxVIP

PAGE / NUMPAGES Excel收支管理系统 程序功能： 银行信息记录 存款利息计算 银行总资金汇总 银行年收益计算 收支记录 收入项目记录，增加到银行账户 支出项目记录，选择支出账户 可对每条记录进行修改，并与账户关联 收支项目管理，可增加或删除收支项目 本程序操作灵活，界面人性化，比如删除“银行记录”金额，可将本条记录信息全部删除（需要确认）；收支记录中信息输入完整，自动与银行账户信息关联；可自己添加银行并修改利率。 使用本程序可快速判别存款方式对收益的影响，比如5万存入工商银行： 整存整取两年，利息4400 整存整取一年，利息3561（两年后取） 现在银行利率也有差别，存不同银行收益相差多少也能方便了解。 界面“银行记录” “银行记录”中复制代码如下： Private Sub Calendar1_Click() ActiveCell = Calendar1 Calendar1.Visible = False End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim lv Dim zhuancun(1 To 100) 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 Range rn = 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) Then Sheet1.Cells(ActiveCell.Row, 1) = 中国银行 End If For y = 3 To rn If Sheet1.Cells(y, 1) Then Sheet4.Select 查找银行名称 Set rng = Sheet4.[B:B].Find(Sheet1.Cells(y, 1)) 定位银行 If Not rng Is Nothing Then rng.Font.ColorIndex = 3 颜色暂不设置 Application.Goto Reference:=rng.Address(, , xlR1C1) End If End If lv_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.R