【正文】 判斷標(biāo)志 For i = 1 To rny If (rn2, 14) = (i, 1) And (i, 3) = 活期 Then flag = 1 39。銀行記錄最大行號(hào) 39。說(shuō)明：增加銀行記錄必須判斷金額與賬戶(hù)同時(shí)為新增行號(hào)，kong[金額新增]，zeng[賬戶(hù)新增]If kong10 = 增加支出 And zeng10 = 增加行 Then 39。判斷是否增加銀行記錄If r13(0) r13(1) Then kong12 = 支出End Ifkong10 = kong11 amp。rn1為支出新增行Else rn2 = r11(1)End If 39。某次點(diǎn)擊日期最大行號(hào)End IfIf rik = 1 Then r11(1) = Range(k65536).End(xlUp).Row 39。某次點(diǎn)擊支出金額最大行號(hào)End IfIf rik = 1 Then r13(1) = Range(m65536).End(xlUp).Row 39。下一次點(diǎn)擊支出賬戶(hù)最大行號(hào)End If39。支出增加到銀行記錄中，無(wú)銀行記錄？If rik = 0 Then r10(0) = Range(n65536).End(xlUp).Row 39。 」存款金額未發(fā)生變化。 「 amp。 s3 amp。信息欄 (1, 1) = s2 amp。記錄被刪除項(xiàng)目信息 If (j, 11) And (j, 12) = And (j, 13) And (j, 14) Then If flag_shan10 = 可刪除 Then s2 = (j, 12) s3 = (j, 13) s4 = (j, 14) End If End If If (j, 12) = And (j, 13) amp。增加行、減少行判斷，用于記錄被刪除行信息If rik = 0 Then If r12(0) r12(1) Then zeng12 = 增加行 End If If r12(0) r12(1) Then zeng12 = 減少行 End IfEnd IfIf rik = 1 Then If r12(1) r12(0) Then zeng12 = 增加行 End If If r12(1) r12(0) Then zeng12 = 減少行 End IfEnd IfIf zeng12 = 減少行 Then flag_shan10 = 可刪除End If39。某次點(diǎn)擊支出項(xiàng)目最大行號(hào)End IfIf rik = 1 Then r12(1) = Range(L65536).End(xlUp).Row 39。39。 (rn1, 3) End If kong = 清空 39。 」 amp。信息欄 (1, 1) = 新增「 amp。 (rn1, 3) Exit For End If Next 39。 」 amp。信息欄 (1, 1) = 「 amp。發(fā)現(xiàn)相同銀行記錄，只能發(fā)現(xiàn)一次 39。判斷是否已有銀行記錄 flag = 0 39。收入項(xiàng)目有新增 If (rn1, 1) And (rn1, 2) And (rn1, 3) And (rn1, 4) Then rny = (B65536).End(xlUp).Row 39。 kong239。收入前四列有空值，為銀行記錄增加必要條件If (rn1, 1) = Or (rn1, 2) = Or (rn1, 3) = Or (rn1, 4) = Then kong1 = 增加End If39。下一次點(diǎn)擊日期最大行號(hào)End IfIf r1(0) = r1(1) Then rn1 = r1(0) 39。下一次點(diǎn)擊收入金額最大行號(hào)End IfIf rik = 0 Then r1(0) = Range(a65536).End(xlUp).Row 39。增加行、減少行判斷，用于增加銀行記錄If rik = 0 Then If r(0) r(1) Then zeng = 增加行 End If If r(0) r(1) Then zeng = 減少行 End IfEnd IfIf rik = 1 Then If r(1) r(0) Then zeng = 增加行 End If If r(1) r(0) Then zeng = 減少行 End IfEnd IfIf rik = 0 Then r3(0) = Range(c65536).End(xlUp).Row 39。某次點(diǎn)擊賬戶(hù)最大行號(hào)End IfIf rik = 1 Then r(1) = Range(d65536).End(xlUp).Row 39。 flag_shan = 已刪除 End If End If Next39。 s4 amp。 元]收入記錄已刪除， amp。 [ amp。 (j, 4) Then sc = MsgBox(確認(rèn)刪除該項(xiàng)目？, vbYesNo, 提示) If sc = vbYes Then (j, 1) = (j, 3) = (j, 4) = 39。刪除收入記錄For j = 3 To rn + 1000 39。下一次點(diǎn)擊收入項(xiàng)目最大行號(hào)End If39。收入If rik = 0 Then r2(0) = Range(b65536).End(xlUp).Row 39。當(dāng)前行數(shù)除以2的余數(shù)為0（偶數(shù)） If (Z + 1, 1) Or (Z + 1, 2) Then With Range((Z + 1, 1), (Z + 1, s)).Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 10198015 .TintAndShade = 0 .PatternTintAndShade = 0 End With End If If (Z + 1, 11) Or (Z + 1, 12) Then With Range((Z + 1, 11), (Z + 1, z)).Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 10198015 .TintAndShade = 0 .PatternTintAndShade = 0 End With End If End If 39。格式 If Z Mod 2 = 1 Then 39。日歷控件 = Cells(, 11).Left = Cells( + 1, 11).Top With Calendar1 39。日歷控件 = Cells(, 1).Left = Cells( + 1, 1).Top With Calendar1 39。 With Range(N amp。支出賬戶(hù)列表更新 rn4 = (e65536).End(xlUp).Row f = =基本信息!E5:E amp。 With Range(D amp。收入賬戶(hù)列表更新 rn4 = (e65536).End(xlUp).Row f = =基本信息!E5:E amp。 With Range(L amp。支出項(xiàng)目列表更新 rn7z = (C65536).End(xlUp).Row f = =收支項(xiàng)目!C2:C amp。 With Range(B amp。收入項(xiàng)目列表更新 rn7s = (A65536).End(xlUp).Row f = =收支項(xiàng)目!A2:A amp。 rn4 amp。 With Range(D3).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。收入賬戶(hù)列表更新 rn4 = (e65536).End(xlUp).Row f = =基本信息!E5:E amp。 rn7z 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)目列表更新 rn7s = (A65536).End(xlUp).Row f = =收支項(xiàng)目!A2:A amp。格式初始化With Range((3, 1), (rn + 10, z)).Interior .Pattern = xlNone .TintAndShade = 0 .PatternTintAndShade = 0End With39。最大列號(hào)z = Range(L2).End(xlToRight).Column 39。收入最大行號(hào)rnz = Range(L65536).End(xlUp).Row 39。ri定義為鼠標(biāo)點(diǎn)擊次數(shù)rik = ri Mod 2 39。 ) (r, c).Select 39。 , B2:B amp。 )等價(jià)于Range(A1:C5, E1:G5)rn1 = (a65536).End(xlUp).RowIf rn1 = 2