Ecel理财 收支管理 代码.docxVIP

Excel收支管理系统

程序功能：

银行信息记录

存款利息计算

银行总资金汇总

银行年收益计算

收支记录

收入项目记录，增加到银行账户

支出项目记录，选择支出账户

可对每条记录进行修改，并与账户关联

收支项目管理，可增加或删除收支项目

本程序操作灵活，界面人性化，比如删除“银行记录”金额，可将本条记录信息全部删除（需要确认）；收支记录中信息输入完整，自动与银行账户信息关联；可自己添加银行并修改利率。

使用本程序可快速判别存款方式对收益的影响，比如5万存入工商银行：

整存整取两年，利息4400

整存整取一年，利息3561（两年后取）

现在银行利率也有差别，存不同银行收益相差多少也能方便了解。

界面“银行记录”

“银行记录”中复制代码如下：PrivateSubCalendar1_Click()ActiveCell=Calendar1Calendar1.Visible=False

EndSub

PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)Dimlv

Dimzhuancun(1To100)Dimlv_huo(1To1000)Dimlv_ding1_3(1To1000)Dimlv_ding1_6(1To1000)

Dimlv_ding1_12(1To1000)Dimlv_ding1_24(1To1000)Dimlv_ding1_36(1To1000)Dimlv_ding1_60(1To1000)Dimlv_ding2_12(1To1000)Dimlv_ding2_36(1To1000)Dimlv_ding2_60(1To1000)

DimrngAsRange

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)Sheet1.Cells(ActiveCell.Row,2)Then

Sheet1.Cells(ActiveCell.Row,1)=中国银行EndIf

Fory=3Torn

IfSheet1.Cells(y,1)ThenSheet4.Select

查找银行名称

Setrng=Sheet4.[B:B].Find(Sheet1.Cells(y,1))定位银行

IfNotrngIsNothingThen

rng.Font.ColorIndex=3 颜色暂不设置Application.GotoReference:=rng.Address(,,xlR1C1)

EndIfEndIf

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.Row+13,ActiveCell.Column+1)lv_ding2_36(y)=Sheet4.Cells(ActiveCell.Row+14,ActiveCell.Column+1)

= And

lv_ding2_60(y)=Sheet4.Cells(