《(2020年){财务管理公司理财}理财收支管理代码》由会员分享，可在线阅读，更多相关《(2020年){财务管理公司理财}理财收支管理代码（67页珍藏版）》请在金锄头文库上搜索。
1、财务管理公司理财理财收支管理代码Excel收支管理系统程序功能：l 银行信息记录a) 存款利息计算b) 银行总资金汇总c) 银行年收益计算l 收支记录a) 收入项目记录，增加到银行账户b) 支出项目记录，选择支出账户c) 可对每条记录进行修改，并与账户关联d) 收支项目管理，可增加或删除收支项目本程序操作灵活，界面人性化，比如删除“银行记录”金额，可将本条记录信息全部删除（需要确认）；收支记录中信息输入完整，自动与银行账户信息关联；可自己添加银行并修改利率。使用本程序可快速判别存款方式对收益的影响，比如5万存入工商银行：1. 整存整取两年，利息44002. 整存整取一年，利息3561（两年后取
2、）现在银行利率也有差别，存不同银行收益相差多少也能方便了解。界面“银行记录”“银行记录”中复制代码如下：PrivateSubCalendar1_Click()ActiveCell=Calendar1Calendar1.Visible=FalseEndSubPrivateSubWorksheet_SelectionChange(ByValTargetAsRange)DimlvDimzhuancun(1To100)Dimlv_huo(1To1000)Dimlv_ding1_3(1To1000)Dimlv_ding1_6(1To1000)Dimlv_ding1_12(1To1000)Dimlv_di
3、ng1_24(1To1000)Dimlv_ding1_36(1To1000)Dimlv_ding1_60(1To1000)Dimlv_ding2_12(1To1000)Dimlv_ding2_36(1To1000)Dimlv_ding2_60(1To1000)DimrngAsRangern=Range(b65536).End(xlUp).Row最大行号cn=Range(b2).End(xlToRight).Column最大列号=False数据初始化IfSheet1.Cells(,1)=AndSheet1.Cells(,3)=AndSheet1.Cells(,2)ThenSheet1.Cells
4、(,1)=中国银行EndIfFory=3TornIfSheet1.Cells(y,1)ThenSheet4.Select查找银行名称Setrng=Sheet4.B:B.Find(Sheet1.Cells(y,1)定位银行IfNotrngIsNothingThen.ColorIndex=3颜色暂不设置Reference:=(,xlR1C1)EndIfEndIflv_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.Cel
5、ls(+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.SelectNext-格式初始化WithRange(Sheet1.Cells(3,1),Sheet1.Cells(rn+30
6、,cn).Interior.Pattern=xlNone.TintAndShade=0.PatternTintAndShade=0EndWith-取消列表WithSheet1.Range(A:A).Validation.Delete.AddType:=xlValidateInputOnly,AlertStyle:=xlValidAlertStop,Operator_:=xlBetween.IgnoreBlank=True.InCellDropdown=True.InputTitle=.ErrorTitle=.InputMessage=.ErrorMessage=.IMEMode=xlIMEMo
7、deNoControl.ShowInput=True.ShowError=TrueEndWithWithSheet1.Range(C:C).Validation.Delete.AddType:=xlValidateInputOnly,AlertStyle:=xlValidAlertStop,Operator_:=xlBetween.IgnoreBlank=True.InCellDropdown=True.InputTitle=.ErrorTitle=.InputMessage=.ErrorMessage=.IMEMode=xlIMEModeNoControl.ShowInput=True.Sh
8、owError=TrueEndWith银行列表更新rn4=Sheet4.Range(e65536).End(xlUp).Rowf=基本信息!E5:E&rn4&WithRange(A3).Validation.Delete.AddType:=xlValidateList,AlertStyle:=xlValidAlertStop,Operator:=_xlBetween,Formula1:=f.IgnoreBlank=True.InCellDropdown=True.InputTitle=.ErrorTitle=.InputMessage=.ErrorMessage=.IMEMode=xlIMEM
9、odeNoControl.ShowInput=True.ShowError=TrueEndWith项目列表WithRange(C3).Validation.Delete.AddType:=xlValidateList,AlertStyle:=xlValidAlertStop,Operator:=_xlBetween,Formula1:=活期,整存整取,整存零取,零存整取,存本取息,定活两便.IgnoreBlank=True.InCellDropdown=True.InputTitle=.ErrorTitle=.InputMessage=.ErrorMessage=.IMEMode=xlIMEM
10、odeNoControl.ShowInput=True.ShowError=TrueEndWithForZ=3Torn银行列表更新rn4=Sheet4.Range(e65536).End(xlUp).Rowf=基本信息!E5:E&rn4&WithRange(A&Z+1).Validation.Delete.AddType:=xlValidateList,AlertStyle:=xlValidAlertStop,Operator:=_xlBetween,Formula1:=f.IgnoreBlank=True.InCellDropdown=True.InputTitle=.ErrorTitle=
11、.InputMessage=.ErrorMessage=.IMEMode=xlIMEModeNoControl.ShowInput=True.ShowError=TrueEndWith项目列表WithRange(C&Z+1).Validation.Delete.AddType:=xlValidateList,AlertStyle:=xlValidAlertStop,Operator:=_xlBetween,Formula1:=活期,整存整取,整存零取,零存整取,存本取息,定活两便.IgnoreBlank=True.InCellDropdown=True.InputTitle=.ErrorTit
12、le=.InputMessage=.ErrorMessage=.IMEMode=xlIMEModeNoControl.ShowInput=True.ShowError=TrueEndWith-年利率IfSheet1.Cells(Z,3)=HuoOrSheet1.Cells(Z,3)=活期Thenlv=lv_huo(Z)Sheet1.Cells(Z,6)=lvEndIfIfSheet1.Cells(Z,3)=ZZOrSheet1.Cells(Z,3)=整存整取ThenIfSheet1.Cells(Z,5)=6AndSheet1.Cells(Z,5)=12AndSheet1.Cells(Z,5)=
13、24AndSheet1.Cells(Z,5)=36AndSheet1.Cells(Z,5)=60Thenlv=lv_ding1_60(Z)5年EndIfSheet1.Cells(Z,6)=lvEndIfIfSheet1.Cells(Z,3)=ZLLZBXOrSheet1.Cells(Z,3)=零存整取OrSheet1.Cells(Z,3)=整存零取OrSheet1.Cells(Z,3)=存本取息ThenIfSheet1.Cells(Z,5)=12AndSheet1.Cells(Z,5)=36AndSheet1.Cells(Z,5)=60Thenlv=lv_ding2_60(Z)5年EndIfSheet1.Cells(Z,6)=lvEndIfIfSheet1.Cells(Z,3)=定活两便ThenIfSheet1.Cells(Z,4)=AndSheet1.Cells(Z,5)=Thendh=MsgBox(未区
