[已解決]條件未達(dá)到，給出消息框，程序退出

hannanrenjie

今天在EXCEL財(cái)務(wù)系統(tǒng)中，錄入憑證，不小心將某個(gè)科目的發(fā)生數(shù)據(jù)錄錯(cuò)。
那么，此時(shí)保存憑證記錄，必定會(huì)給后續(xù)計(jì)算核對(duì)成錯(cuò)誤。重新逐筆核對(duì)，工作量就很大了。
怎么辦，在按鈕事件中加上，判斷借貸平衡。不平衡則提示，并退出程序。
由于年紀(jì)大了不好意思問人，就自己亂畫，一試居然還起作用，就是太起作用了--不管是否相等，它都給出一個(gè)“不平衡的消息，退出了---后面的程序也不執(zhí)行了。請(qǐng)老師幫助一下我這個(gè)老學(xué)生吧：
不平衡的時(shí)候，給個(gè)消息，確定后退出。平衡時(shí)，就復(fù)制粘貼數(shù)據(jù)到”憑證明細(xì)“表最后一行。
Sub 憑證提交新()
   Sheets("憑證錄入").Select
   ActiveSheet.Calculate  '計(jì)算工作表，便于設(shè)置為手動(dòng)計(jì)算表中，數(shù)據(jù)更新。
    If [M16] <> [I16] Then   '加個(gè)借貸平衡判斷，兩個(gè)單元格分別是會(huì)計(jì)憑證借方貸方合計(jì)。
      MsgBox "借貸不平衡，請(qǐng)檢查！"
      End
    End If
      Exit Sub ' 不平衡則退出程序。
       以下略。。。。
    Dim a As Long
    Set s = ActiveSheet.Range("A6:A15")
    For Each rg In s
        If rg = "" Then
            a = rg.Row - 1   '減一行后下面不粘貼空行。
            Exit For
        End If

Henry D. Sy

hannanrenjie 發(fā)表于 2017-7-29 13:55
剛才沒上傳附件，請(qǐng)問寫在哪里呢？

1. <font style="background-color: rgb(255, 255, 255);">Sub 憑證提交新()
   
2.     ' 憑證提交新，EXCEL精英網(wǎng)chart888網(wǎng)友幫助修改 http://www.excelpx.com/forum.php?mod=viewthread&tid=431463&page=1#pid4141379
   
3.     '
   
4.     Sheets("憑證錄入").Select
   
5.     ActiveSheet.Calculate  '計(jì)算工作表，便于設(shè)置為手動(dòng)計(jì)算表中，數(shù)據(jù)更新。
   
6.     If [M16] <> [O16] Then '加個(gè)借貸平衡判斷。
   
7.         MsgBox "借貸不平衡，請(qǐng)檢查！"
   
8.         Exit Sub
   
9.     End If
   
10.     Dim a As Long
    
11.     Set s = ActiveSheet.Range("A6:A15")
    
12.     For Each rg In s
    
13.         If rg = "" Then
    
14.             a = rg.Row - 1   '減一行后下面不粘貼空行。
    
15.             Exit For
    
16.         End If
    
17.     Next
    
18.     Range("A6:O" & a).Select
    
19.     Selection.Copy
    
20.     Sheets("憑證明細(xì)").Select
    
21.     Dim b As Long
    
22.     b = Sheets("憑證明細(xì)").[a65536].End(xlUp).Row + 1
    
23.     Sheets("憑證明細(xì)").Select
    
24.     Sheets("憑證明細(xì)").Cells(b, 1).Select
    
25.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    
26.         :=False, Transpose:=False
    
27.     ActiveSheet.Calculate  '計(jì)算工作表，便于設(shè)置為手動(dòng)計(jì)算表中，數(shù)據(jù)更新。
    
28.     Sheets("憑證錄入").Select
    
29.     ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True  '無(wú)密碼保護(hù)工作表，
    
30.    
    
31.     '    Exit Sub ' 不平衡則退出程序。
    
32. End Sub</font>

復(fù)制代碼

注意是O16,不是I16

Henry D. Sy

1. &nbsp; If [M16] <> [I16] Then&nbsp; &nbsp;'加個(gè)借貸平衡判斷，兩個(gè)單元格分別是會(huì)計(jì)憑證借方貸方合計(jì)。
   
2. &nbsp; &nbsp;&nbsp; &nbsp;MsgBox "借貸不平衡，請(qǐng)檢查！"
   
3. &nbsp; &nbsp;&nbsp; &nbsp;Exit Sub
   
4. &nbsp; &nbsp; End If

復(fù)制代碼

Henry D. Sy

1. If [M16] <> [I16] Then
   
2.         MsgBox "借貸不平衡，請(qǐng)檢查！"
   
3.         Exit Sub
   
4.     End If

復(fù)制代碼

tmtony

什么EXCEL財(cái)務(wù)系統(tǒng) ，上傳一個(gè)來(lái)瞧瞧？

hannanrenjie

Henry D. Sy 發(fā)表于 2017-7-29 13:41

剛才沒上傳附件，請(qǐng)問寫在哪里呢？

hannanrenjie

tmtony 發(fā)表于 2017-7-29 13:45
什么EXCEL財(cái)務(wù)系統(tǒng) ，上傳一個(gè)來(lái)瞧瞧？

是個(gè)簡(jiǎn)單的錄制憑證的小程序，與賬簿（在其他工作簿中）共同組成一個(gè)憑證錄入 ，報(bào)表生成，科目查詢，賬簿展現(xiàn)的需求。
既然被老師遇到，就麻煩拿出你的牛刀來(lái)吧
不平衡直接的退出，平衡不用提示，執(zhí)行完程序。不知道在哪里寫開始的IF中止的IF。

hannanrenjie

Henry D. Sy 發(fā)表于 2017-7-29 14:18
注意是O16,不是I16

還是版主細(xì)心，成功源于細(xì)節(jié)��！謝謝了！哪個(gè)地方評(píng)最優(yōu)答案?

Henry D. Sy

建議最后加上去掉復(fù)制模式

1. Application.CutCopyMode = False
   
2.     Range("O24").Select

復(fù)制代碼

Henry D. Sy

我的回復(fù)怎么被自動(dòng)刪掉了,
可能又是非法代碼!!