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

{财务管理财务分析}收支理财管理及财务知识分析系统  Excel收支管理系统 程序功能： 银行信息记录 存款利息计算 银行总资金汇总 银行年收益计算 收支记录 收入项目记录，增加到银行账户 支出项目记录，选择支出账户 可对每条记录进行修改，并与账户关联 收支项目管理，可增加或删除收支项目 本程序操作灵活，界面人性化，比如删除“银行记录”金额，可将本条记录信息全部删除（需要确认）；收支记录中信息输入完整，自动与银行账户信息关联；可自己添加银行并修改利率。 使用本程序可快速判别存款方式对收益的影响，比如5万存入工商银行： 整存整取两年，利息4400 整存整取一年，利息3561（两年后取） 现在银行利率也有差别，存不同银行收益相差多少也能方便了解。 界面“银行记录” “银行记录”中复制代码如下： PrivateSubCalendar1_Click() ActiveCell=Calendar1 Calendar1.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最大列号 =False 数据初始化 IfSheet1.Cells(,1)=AndSheet1.Cells(,3)=AndSheet1.Cells(,2)Then Sheet1.Cells(,1)=中国银行 EndIf Fory=3Torn IfSheet1.Cells(y,1)Then Sheet4.Select 查找银行名称 Setrng=Sheet4.[B:B].Find(Sheet1.Cells(y,1)) 定位银行 IfNotrngIsNothingThen .ColorIndex=3颜色暂不设置 Reference:=(,,xlR1C1) EndIf EndIf lv_huo(y)=Sheet4.Cells(+3,+1) lv_ding1_3(y)=Sheet4.Cells(+6,+1) lv_ding1_6(y)=Sheet4.Cells(+7,+1) lv_ding1_12(y)=Sheet4.Cells(+8,+1) lv_ding1_24(y)=Sheet4.Cells(+9,+1) lv_ding1_36(y)=Sheet4.Cells(+10,+1) lv_ding1_60(y)=Sheet4.Cells(+11,+1) lv_ding2_12(y)=Sheet4.Cells(+13,+1) lv_ding2_36(y)=Sheet4.Cells(+14,+1) lv_ding2_60(y)=Sheet4.Cells(+15,+1) 返回sheet“银行项目” Sheet1.Select Next -------------- 格式初始化 WithRange(Sheet1.Cells(3,1),Sheet1.Cells(rn+30,cn)).Interior .Pattern=xlNone .TintAndShade=0 .PatternTintAndShade=0 EndWith --------------- 取消列表 WithSheet1.Range(A:A).Validation .Delete .AddType:=xlValidateInputOnly,AlertStyle:=xlValidAlertStop,Operator_ :=xlBetween .IgnoreBlank=True .InCellDropdown=True .InputTitle= .ErrorTitle= .InputMessage= .ErrorMessage= .IMEMode=xlIMEModeNoControl .ShowInput=True .ShowError=True EndWith WithSheet1.Range(C:C).Validation .Delete .Add