excel收支理財(cái)管理及財(cái)務(wù)知識(shí)分析系統(tǒng)-資料下載頁(yè)
2025-06-22 16:16本頁(yè)面
【正文】 n zeng2 = 減少行 End IfEnd IfIf zeng2 = 減少行 Then flag_shan = 可刪除End If39。刪除收入記錄For j = 3 To rn + 1000 39。記錄被刪除項(xiàng)目信息 If (j, 1) And (j, 2) = And (j, 3) And (j, 4) Then If flag_shan = 可刪除 Then s2 = (j, 2) s3 = (j, 3) s4 = (j, 4) End If End If If (j, 2) = And (j, 3) amp。 (j, 4) Then sc = MsgBox(確認(rèn)刪除該項(xiàng)目？, vbYesNo, 提示) If sc = vbYes Then (j, 1) = (j, 3) = (j, 4) = 39。信息欄 (1, 1) = s2 amp。 [ amp。 s3 amp。 元]收入記錄已刪除， amp。 「 amp。 s4 amp。 」存款金額未發(fā)生變化。 flag_shan = 已刪除 End If End If Next39。收入增加到銀行記錄中，為活期If rik = 0 Then r(0) = Range(d65536).End(xlUp).Row 39。某次點(diǎn)擊賬戶最大行號(hào)End IfIf rik = 1 Then r(1) = Range(d65536).End(xlUp).Row 39。下一次點(diǎn)擊賬戶最大行號(hào)End If39。增加行、減少行判斷，用于增加銀行記錄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ào)End IfIf rik = 1 Then r3(1) = Range(c65536).End(xlUp).Row 39。下一次點(diǎn)擊收入金額最大行號(hào)End IfIf rik = 0 Then r1(0) = Range(a65536).End(xlUp).Row 39。某次點(diǎn)擊日期最大行號(hào)End IfIf rik = 1 Then r1(1) = Range(a65536).End(xlUp).Row 39。下一次點(diǎn)擊日期最大行號(hào)End IfIf r1(0) = r1(1) Then rn1 = r1(0) 39。rn1為收入新增行Else rn1 = r1(1)End If 39。收入前四列有空值，為銀行記錄增加必要條件If (rn1, 1) = Or (rn1, 2) = Or (rn1, 3) = Or (rn1, 4) = Then kong1 = 增加End If39。判斷是否增加銀行記錄If r3(0) r3(1) Then kong2 = 收入End Ifkong = kong1 amp。 kong239。說明：增加銀行記錄必須判斷金額與賬戶同時(shí)為新增行號(hào)，kong[金額新增]，zeng[賬戶新增]If kong = 增加收入 And zeng = 增加行 Then 39。收入項(xiàng)目有新增 If (rn1, 1) And (rn1, 2) And (rn1, 3) And (rn1, 4) Then rny = (B65536).End(xlUp).Row 39。銀行記錄最大行號(hào) 39。判斷是否已有銀行記錄 flag = 0 39。判斷標(biāo)志 For i = 1 To rny If (rn1, 4) = (i, 1) And (i, 3) = 活期 Then flag = 1 39。發(fā)現(xiàn)相同銀行記錄，只能發(fā)現(xiàn)一次 39?；钇诮痤~增加，之前本金+利息作為本金，再加上收入形成新銀行項(xiàng)目本金 (i, 2) = (i, 12) + (rn1, 3) (i, 4) = (rn1, 1) 39。信息欄 (1, 1) = 「 amp。 (rn1, 4) amp。 」 amp。 活期存款增加 amp。 (rn1, 3) Exit For End If Next 39。沒有銀行記錄 If flag = 0 Then (rny + 1, 1) = (rn1, 4) (rny + 1, 2) = (i, 12) + (rn1, 3) (rny + 1, 3) = 活期 (rny + 1, 4) = (rn1, 1) 39。信息欄 (1, 1) = 新增「 amp。 (rn1, 4) amp。 」 amp。 活期存款 amp。 (rn1, 3) End If kong = 清空 39。銀行記錄已增加，判斷條件清除 kong1 = kong2 = End IfEnd If39。39。支出If rik = 0 Then r12(0) = Range(L65536).End(xlUp).Row 39。某次點(diǎn)擊支出項(xiàng)目最大行號(hào)End IfIf rik = 1 Then r12(1) = Range(L65536).End(xlUp).Row 39。下一次點(diǎn)擊支出項(xiàng)目最大行號(hào)End If39。增加行、減少行判斷，用于記錄被刪除行信息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。刪除支出記錄For j = 3 To rn + 1000 39。記錄被刪除項(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。 (j, 14) Then sc = MsgBox(確認(rèn)刪除該項(xiàng)目？, vbYesNo, 提示) If sc = vbYes Then (j, 11) = (j, 13) = (j, 14) = 39。信息欄 (1, 1) = s2 amp。 [ amp。 s3 amp。 元]支出記錄已刪除， amp。 「 amp。 s4 amp。 」存款金額未發(fā)生變化。 flag_shan10 = 已刪除 End If End If Next39。支出增加到銀行記錄中，無銀行記錄？If rik = 0 Then r10(0) = Range(n65536).End(xlUp).Row 39。某次點(diǎn)擊支出賬戶最大行號(hào)End IfIf rik = 1 Then r10(1) = Range(n65536).End(xlUp).Row 39。下一次點(diǎn)擊支出賬戶最大行號(hào)End If39。增加行、減少行判斷，用于增加銀行記錄If rik = 0 Then If r10(0) r10(1) Then zeng10 = 增加行 End If If r10(0) r10(1) Then zeng10 = 減少行 End IfEnd IfIf rik = 1 Then If r10(1) r10(0) Then zeng10 = 增加行 End If If r10(1) r10(0) Then zeng10 = 減少行 End IfEnd IfIf rik = 0 Then r13(0) = Range(m65536).End(xlUp).Row 39。某次點(diǎn)擊支出金額最大行號(hào)End IfIf rik = 1 Then r13(1) = Range(m65536).End(xlUp).Row 39。下一次點(diǎn)擊支出金額最大行號(hào)End IfIf rik = 0 Then r11(0) = Range(k65536).End(xlUp).Row 39。某次點(diǎn)擊日期最大行號(hào)End IfIf rik = 1 Then r11(1) = Range(k65536).End(xlUp).Row 39。下一次點(diǎn)擊日期最大行號(hào)End IfIf r11(0) = r11(1) Then rn2 = r11(0) 39。rn1為支出新增行Else rn2 = r11(1)End If 39。支出前四列有空值，為銀行記錄增加必要條件If (rn2, 11) = Or (rn2, 12) = Or (rn2, 13) = Or (rn2, 14) = Then kong11 = 增加End If39。判斷是否增加銀行記錄If r13(0) r13(1) Then kong12 = 支出End Ifkong10 = kong11 amp。 kong1239。說明：增加銀行記錄必須判斷金額與賬戶同時(shí)為新增行號(hào)，kong[金額新增]，zeng[賬戶新增]If kong10 = 增加支出 And zeng10 = 增加行 Then 39。支出項(xiàng)目有新增 If (rn2, 11) And (rn2, 12) And (rn2, 13) And (rn2, 14) Then rny = (B65536).End(xlUp).Row 39。銀行記錄最大行號(hào) 39。判斷是否已有銀行記錄 flag = 0 39。判斷標(biāo)志 For i = 1 To rny If (rn2, 14) = (i, 1) And (i, 3) = 活期 Then flag = 1 39。發(fā)現(xiàn)相同銀行記錄，只能發(fā)現(xiàn)一次
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1