質問: 1 then msgbox "ok" endif end 以上の場合に『ok』メッセージが表示されるものと理解していますが、表示されずに終了してしまいます。
回答: 次のように、デバッグ用のコードを入れて実行とたらどうなります。 range("x1") = range("a2") '****** range("a1").value = 1 range("x2") = range("a2") '****** calculate range("x3") = range("a2") '****** if range("a2").value = 1 then msgbox "ok" endif range("x4") = range("a2") '****** end xはあいてる列に書き換えてください。