【文章內(nèi)容簡(jiǎn)介】 End If 39?；钇诓豢紤]到期時(shí)間，按存入時(shí)間到當(dāng)前日期利息計(jì)算 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。未選擇存入時(shí)間 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(確認(rèn)刪除該項(xiàng)目？, 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。圖表設(shè)置r = c = 39。Range(A1:C amp。 5 amp。 , E1:G amp。 5 amp。 )等價(jià)于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。設(shè)置繪圖區(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界面“收支記錄”“收支記錄”中復(fù)制代碼如下：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定義為鼠標(biāo)點(diǎn)擊次數(shù)rik = ri Mod 2 39。rik為0或1rns = Range(B65536).End(xlUp).Row 39。收入最大行號(hào)rnz = Range(L65536).End(xlUp).Row 39。支出最大行號(hào)If rns = rnz Then rn = rnsElse rn = rnzEnd Ifs = Range(B2).End(xlToRight).Column 39。最大列號(hào)z = Range(L2).End(xlToRight).Column 39。最大列號(hào)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。收入項(xiàng)目列表更新 rn7s = (A65536).End(xlUp).Row f = =收支項(xiàng)目!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。支出項(xiàng)目列表更新 rn7z = (C65536).End(xlUp).Row f = =收支項(xiàng)目!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 = =基本信息!