xcel理财收支管理代码.docxVIP

下载本文档

1
0
约3.62万字
约 27页
2022-09-10 发布于四川
举报
版权申诉

xcel理财收支管理代码.docx

1、本文档共27页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
8、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

Excel收支管理系统程序功能： ? 银行信息记录a）存款利息计算 b）银行总资金汇总c）银行年收益计算 ? 收支记录a）收入工程记录，增加到银行账户 b）支出工程记录，选择支出账户c）可对每条记录进行修改，并与账户关联 d）收支工程管理，可增加或删除收支工程本程序操作灵活，界面人性化，比方删除“银行记录”金额，可将本条记录信息全部删除（需要确认）；收支记录中信息输入完整，自动与银行账户信息关联；可自己添加银行并修改利率。使用本程序可快速判别存款方式对收益的影响，比方5万存入工商银行： .整存整取两年，利息4400.整存整取一年，利息3561 （两年后取）银行（单位）金截工程存入日期时间年利率到期日期约转次数转存当期总截利息工商银行 50, 000 整存整取 2010-11-4 24个月 4.4 2012-11-4 54,400 4,400 工商银行 50, 000 整存整取 2010-11-4 12个月 3.5 2011-11-41 2012-11-4 53, 561 3, 561 现在银行利率也有差异，存不同银行收益相差多少也能方便了解。界面“银行记录” “银行记录”中复制代码如下: Private Sub Calendarl_Click()ActiveCell = Calendarl Calendarl.Visible = FalseSheetl.Cells(Z, H).FormulaRlCl = _ ,,=DATE(YEAR(RC[-7]),MONTH(RC[-7])+RC[-6]*(RC[-l]+l),DAY(RC[-7])),,1 一转存到期日日期 End If If zhuan 1 ThenSheetl.Cells(Z, 10) =,,H Sheetl.Cells(Z, 11) =,H,Sheetl.Cells(Z, 12) = Sheetl.Cells(Z, 7) Sheetl.Cells(Z, 13) = Sheetl.Cells(Z, 9) ElseSheetl.Cells(Z, 12) = zhuancun(zhuan)一当前总额 Sheetl.Cells(Z, 13) = Sheetl.Cells(Z, 12) - Sheetl.Cells(Z, 2)当前利息 End If格式 If Z Mod 2 = IThen当前行数除以2的余数为1 (奇数)With Range(Sheetl.Cells(Z, 1), Sheetl.Cells(Z, 14)).Interior .Pattern = xISolid.PatternColorlndex = xIAutomatic .Color =TintAndShade = 0 .PatternTintAndShade = 0End With ElselfZ Mod 2= OThen当前行数除以2的余数为0 (偶数)With Range(Sheetl.Cells(Z, 1), Sheetl.66118(4 14)).Interior .Pattern = xISolid.PatternColorlndex = xIAutomatic .Color =TintAndShade = 0 .PatternTintAndShade = 0End With End If ’未选择银行不计利率 IfSheetl.CellsfZ, 1) = Thenlv= 0 Sheetl.Cells(Z, 6) = ,H,Sheetl.Cells(Z, 7) = HH Sheetl.Cells(Z, 9) = ,H, End If 活期不考虑到期时间，按存入时间到当前日期利息计算 IfSheetl.CellsfZ, 3)= 活期” Thentian = Date - Sheetl.Cells(Z, 4) nianl = lnt(tian / 365)年数yuel = Sheetl.Cells(Z, 5) -12 * nian 月数 Sheetl.Cells(Z, 7) = Sheetl.Cells(Z, 2) + Sheetl.Cells(乙 2) * lv/100 * (tian / 365)Sheetl.Cells(Z, 9) = Sheetl.Cells(Z, 7) - SheetLCells(乙 2) Sheetl.Cells(Z, 5)=Sheetl.Cells(Z, 6) = lv Sheetl.Cells(Z, 8) = ,H,Sheetl.Cells(Z, 10) =,,H Sheetl.Cells(Zz 11) =,,HSheetl.Cells(Z, 12) = Sheetl.Cells(Z, 7)