如何在每條警告消息後退出？

ActiveSheet.Unprotect 
Cells.CheckSpelling SpellLang:=2057 
If Range("F4").Value = 1 Then             
    MsgBox "MARKED UP BUDGET does not equal TOTAL! Please amend as required" 
    Application.Run "LATESTMEDIAPLANVERSION.xlsm!final"

我目前有兩段代碼產生警告框。但是目前這些彈出，但不從宏觀上彈出你..即我只是想確保該行：如何在每條警告消息後退出？

Application.Run......

，如果你不提示警告框只達到。什麼是正確的代碼？

來源

2013-02-11 user1717622

添加和'else' ...'結束if'圍繞'Application.Run'聲明？ – Floris 2013-02-11 13:18:03

你的代碼更改爲：

ActiveSheet.Unprotect 

Cells.CheckSpelling SpellLang:=2057 


If Range("F4").Value = 1 Then             

    MsgBox "MARKED UP BUDGET does not equal TOTAL! Please amend as required" 
    Exit Sub 

else 

    Application.Run "LATESTMEDIAPLANVERSION.xlsm!final" 

end if

來源

2013-02-11 13:19:01 Floris

這是給我的消息，但不是從宏彈出我..我需要的東西說：MsgBox「標記預算不等於總數！請根據需要修改」「退出宏」。 else application.run ... – user1717622 2013-02-11 13:25:57

誤解了你的問題 - 我以爲你只是不想要「Application.Run」行......我已經添加了'Exit Sub'。考慮清楚編輯你的問題？ – Floris 2013-02-11 13:27:11

是的，這是功能現在非常感謝！ – user1717622 2013-02-11 13:32:09

如何在每條警告消息後退出？

回答

相關問題