エクセルを保存し終了する際にメッセージを入れたい

解決済

質問者：kamejiro
質問日時：2020/06/27 16:46
回答数：1件

いつもこのサイトではお世話になっております。

野球の試合結果を入力するエクセルシートがあります。

投打成績などを入力して普通に保存します。
試合結果に際して、入力必須項目をIF文などを使って、いくつかのセルに警告を出すように組み込んでありますが、担当者の入力漏れも時々あり、集計側の方で、改めて追加訂正入力することがあります。

複数の球場があり、入力担当者は様々です。集計側のチェック業務の効率化、ミスの削減などを考えて、せめて、保存するときに警告メッセージを組み込むことはできないでしょうか。

野球の集計表の全てを提示すると、細かくなりますので、例えば、

A1セルに日付を入力必須、B1に開始時刻入力必須、C1に終了時刻を必須、

A1セルが空白なら、A2セルに「？」
B1セルが空白なら、B2セルに「？」
C1セルが空白なら、C2セルに「？」　と表示するようにIF文を組み込んだとします。

A2、B2、C2のセルで一つでも「？」があると、警告メッセージ「未入力箇所あります」みたいな表示をさせたいです。

マクロのif命令で、Range("A2")が「？」ならば、MsgBoxで「未入力箇所あります」を出すようなマクロを作り、ボタン化（オブジェクトとマクロのリンク）させ、保存終了前に、ボタンをクリックし確認することなら分かりますが、「上書き保存」前にそのボタンのクリックを忘れると、その効果がありません。

「上書き保存」のタイミングで、A2が「？」なら、MsgBoxで「未入力箇所あります」のメッセージを表させる方法があれば教えてほしいです。