0 
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"

現在、警告ボックスを表示する 2 つのコードがあります。ただし、現時点では、これらはポップアップしますが、マクロからあなたを追い出すことはありません.. IE 私は次の行を確認したいだけです:

Application.Run......

警告ボックスを表示しない場合にのみ到達します。これの正しいコードは何ですか?.

4

1 に答える 1

0

コードを次のように変更します。

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-11T13:19:01.657 に答える