【文章內(nèi)容簡介】 End If 39?；钇诓豢紤]到期時間，按存入時間到當前日期利息計算 If (Z, 3) = 活期 Then tian = Date (Z, 4) nian1 = Int(tian / 365) 39。年數(shù) yue1 = (Z, 5) 12 * nian 39。月數(shù) (Z, 7) = (Z, 2) + (Z, 2) * lv / 100 * (tian / 365) (Z, 9) = (Z, 7) (Z, 2) (Z, 5) = (Z, 6) = lv (Z, 8) = (Z, 10) = (Z, 11) = (Z, 12) = (Z, 7) (Z, 13) = (Z, 9) End If 39。未選擇存入時間 If (Z, 4) = Then (Z, 9) = (Z, 10) = (Z, 11) = (Z, 13) = (Z, 7) = (Z, 2) (Z, 12) = (Z, 2) End If 39。到期提示 If (Z, 8) (1, 1) Then With (Z, 8).Font .Color = 65281 .TintAndShade = 0 End With Else With (Z, 8).Font .ThemeColor = xlThemeColorLight1 .TintAndShade = 0 End With End If If (Z, 11) (1, 1) Then With (Z, 11).Font .Color = 65281 .TintAndShade = 0 End With Else With (Z, 11).Font .ThemeColor = xlThemeColorLight1 .TintAndShade = 0 End With End IfNext39。For j = 3 To rn + 1000 If (j, 2) = And (j, 3) Then sc = MsgBox(確認刪除該項目？, vbYesNo, 提示) If sc = vbYes Then (j, 1) = (j, 3) = (j, 4) = (j, 5) = (j, 6) = (j, 7) = (j, 8) = (j, 9) = (j, 10) = (j, 11) = (j, 12) = (j, 13) = (j, 14) = End If Rows(j).Delete End IfNext39。圖表數(shù)據(jù)處理39。圖表1，餅圖，顯示各銀行資金分布(A:B).Clear(1, 1) = 圖表1zong = 0ben = 0nianli = 0For K = 3 To rn rn1 = (a65536).End(xlUp).Row If rn1 2 Then rn1 = 2 End If flag = 0 For k1 = 3 To rn1 If (K, 1) = (k1, 1) Then flag = flag + 1 (k1, 2) = (k1, 2) + (K, 12) End If Next If flag = 0 Then (rn1 + 1, 1) = (K, 1) (rn1 + 1, 2) = (K, 12) End If zong = zong + (K, 12) ben = ben + (K, 2) nianli = nianli + ((K, 13) / ((K, 5) + (K, 5) * (K, 10))) * 12Next(1, 15) = 銀行總額: amp。 Format(zong, ,)(2, 15) = (Format(zong, 0), [DBNum2]) 39。大寫(3, 15) = 本金： amp。 (Format(ben, 0), [DBNum2]) 39。大寫(4, 15) = 年收益： amp。 (Format(nianli, 0), [DBNum1]) amp。 [ amp。 Format(nianli, 0) amp。 ] 39。大寫39。圖表設置r = c = 39。Range(A1:C amp。 5 amp。 , E1:G amp。 5 amp。 )等價于Range(A1:C5, E1:G5)rn1 = (a65536).End(xlUp).RowIf rn1 = 2 Then (圖表 1).Activate Source:=(A2:A amp。 rn1 amp。 , B2:B amp。 rn1 amp。 ) (r, c).Select 39。設置繪圖區(qū)格式 With Sheets(1).ChartObjects(圖表 1) .Name .Left .Top .Height = 250 .Width . End WithEnd IfWith Range(O3, O4) .HorizontalAlignment = xlRight .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With With Range(O3).Font .Color = 16751104 .TintAndShade = 0 End With With Range(O4).Font .Color = 3368704 .TintAndShade = 0 End With Range(O3, O4). = 9End Sub界面“收支記錄”“收支記錄”中復制代碼如下：Dim riDim r(0 To 1)Dim r1(0 To 1)Dim r2(0 To 1)Dim r3(0 To 1)Dim r10(0 To 1)Dim r11(0 To 1)Dim r12(0 To 1)Dim r13(0 To 1)Dim kongDim kong1Dim kong2Dim kong10Dim kong11Dim kong12Dim flag_shanDim flag_shan10Private Sub Calendar1_Click()ActiveCell = Calendar1 = FalseEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)ri = ri + 1 39。ri定義為鼠標點擊次數(shù)rik = ri Mod 2 39。rik為0或1rns = Range(B65536).End(xlUp).Row 39。收入最大行號rnz = Range(L65536).End(xlUp).Row 39。支出最大行號If rns = rnz Then rn = rnsElse rn = rnzEnd Ifs = Range(B2).End(xlToRight).Column 39。最大列號z = Range(L2).End(xlToRight).Column 39。最大列號39。格式初始化With Range((3, 1), (rn + 10, z)).Interior .Pattern = xlNone .TintAndShade = 0 .PatternTintAndShade = 0End With39。With (A:N).Validation .Delete .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _ :=xlBetween .IgnoreBlank = True .InCellDropdown = True .InputTitle = .ErrorTitle = .InputMessage = .ErrorMessage = .IMEMode = xlIMEModeNoControl .ShowInput = True .ShowError = True End With 39。收入項目列表更新 rn7s = (A65536).End(xlUp).Row f = =收支項目!A2:A amp。 rn7s amp。 With Range(B3).Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=f .IgnoreBlank = True .InCellDropdown = True .InputTitle = .ErrorTitle = .InputMessage = .ErrorMessage = .IMEMode = xlIMEModeNoControl .ShowInput = True .ShowError = True End With 39。支出項目列表更新 rn7z = (C65536).End(xlUp).Row f = =收支項目!C2:C amp。 rn7z amp。 With Range(L3).Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=f .IgnoreBlank = True .InCellDropdown = True .InputTitle = .ErrorTitle = .InputMessage = .ErrorMessage = .IMEMode = xlIMEModeNoControl .ShowInput = True .ShowError = True End With 39。收入賬戶列表更新 rn4 = (e65536).End(xlUp).Row f = =基本信息!