メッセージボックスの表示方法を教えて下さい。

質問

メッセージの表示マクロを御指導いただきたく御願い申し上げます。

●処理手順
　　１・ＡＧ7：ＡＧ３４に ・値を入力しています。
　　２・ＡＨ7：ＡＨ３４に ・ＡＧ7：ＡＧ３４の値でランクを数式で計算させ、表示しています。
　　３・問題がなければ確定ボタン（マクロボタン）で数式を削除し計算表示された値を値化しています。
　　４・並べ替えボタン（マクロボタン）で並べ替えをします。

●並べ替えボタンをクリックした時に次のような処理をしたいと考えておりますが
その処理のマクロを御指導いただきたくお願い致します。
　　１・確定処理がされ、数式は削除され値のみが表示されている時は、並べ替えを実行する。

　　２・確定が未処理で、数式も削除されないで、値が表示されている時は、次のようなメッセージを表示して確定処理をするように注意をしたい。
・メッセージ文言
確定処理がされていません。内容を確認の上、確定して下さい。

回答No.3

skyresort · ベストアンサー

if range("AH7").HasFormula = False then

これで「AH7が数式ではない時」になります。

お礼

ありがとうございました。

思い通りの処理が出来ました。

回答No.2

skyresort

>３・問題がなければ確定ボタン（マクロボタン）で数式を削除し計算表示された値を値化しています。

AG7：AG34の入力した値はそのままで、AH7:AH34の数式が削除され、空白セルになるということでしょうか？
その場合、削除前にはAH7:AH34の全てのセルに数式が入力されていて、削除後はAH7:AH34の全てのセルが空白になるということでしょうか？

解釈が正しいのであれば、
if range("AH7")<>"" then で良いと思います。

解釈が間違っているようでしたら、具体的な数値などがあるとわかりやすいです。

補足

skyresort様
お手数をお掛けします
１・ＡＧ7：ＡＧ３４に入力した値を参照して、ＡＨ7：ＡＨ３４に数式でランク付けしています。
２・ＡＨ７：ＡＨ３４にランク付けした順位を確定ボタンで、数式を削除し、ランク付けした順位を値のみ表示させています。
３・メッセージはＡＨ７：ＡＨ３４の数式が削除され、値のみになっていれば並べ替えに進み、もし数式も値（順位）も残っている場合は、メッセージを表示し、確定するよう注意を促す。という意味です。

故に、ＡＨ７：ＡＨ３４は空白でなく順位が表示されています。

尚、数式が削除されず（確定していない状態）残っているかどうかの判断はＡＨ７の状態だけで、判断していただいて結構です。

宜しくお願い致します。

回答No.1

skyresort

If (確定が未処理) Then
MsgBox ("確定処理がされていません。内容を確認の上、確定して下さい。")
Exit Sub
End If

(並べ替えのマクロ)
End sub

で良いと思います。

補足

skyresort 様
早速の御回答ありがとうございます。

＞If (確定が未処理) Then

●(確定が未処理) の記述方法がわかりません。
お手数を御掛け致しますが、再度御指導いただきたく御願い申し上げます。