excel理财收支管理代码.docx

Excel收支管理系统 程序功能： 银行信息记录 a） 存款利息计算 b） 银行总资金汇总 c） 银行年收益计算 收支记录 a） 收入项目记录，增加到银行账户 b） 支出项目记录，选择支出账户 c） 可对每条记录进行修改，并与账户关联 d） 收支项目管理，可增加或删除收支项目 本程序操作灵活，界面人性化，比如删除“银行记录”金额，可将本条记录信息全部删 除（需要确认）；收支记录中信息输入完整，自动与银行账户信息关联；可自己添加银行并 修改利率。 使用本程序可快速判别存款方式对收益的影响，比如 5万存入工商银行： 整存整取两年，利息 4400 整存整取一年，利息 3561 （两年后取） * .~~a~~； i i- * .~~a~~； i i-~~ST it ■I 1 1 ItintlKTRr 科“p 1 1 m■小 wntlB 1 3 1 W | bm] fcTJW El LIE ■ P A 1 s mi i-i-H a： yni^-iiTi l.?r t iWrt 3]LL-Lj-t i.i fl.lJI 唱“音 KLM.3-4 和 n i.w IPlMMi 14. m*?rT xn ■in i. am ]FI T AU MW : ! t r ■ ■■ i.j f.2.? ?■工商寂行 恒丰银讦 年魅：三百厘十二［城］ IKS 4AIIA ■tM 剎整1 工耐輾斤 50.000 卷逝］ 2010 L1- 4 Mtn 201MM 543C0 400 工IM布 60.000 整rr整酝 如111 L1-5 2011 11=4 1 gum X661 现在银行利率也有差别，存不同银行收益相差多少也能方便了解。 界面“银行记录” 银行记录”中复制代码如下: Private Sub Cale ndar1_Click() ActiveCell = Cale ndar1 Cale ndar1.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, Active