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

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.Ro