Excelでセルの値に応じてメッセージをポップアップで表示したい場合、標準の数式だけでは実現できませんが、VBA（Visual Basic for Applications）を使うことで簡単に解決できます。この記事では、セルA3の結果に基づいてポップアップメッセージを表示する方法を解説します。
ExcelでのIF関数の使用
質問者が試したように、ExcelのIF関数（=IF(A1=A2,”OK”,”不一致”)）を使って、セルA1とA2が一致した場合に「OK」、一致しなかった場合に「不一致」と表示することができます。しかし、IF関数だけでは結果に応じたポップアップメッセージを表示することはできません。
VBAを使ってポップアップメッセージを表示する方法
ポップアップメッセージを表示するには、ExcelのVBAを使う必要があります。以下に、セルA3の結果に基づいてポップアップメッセージを表示する方法を説明します。
手順 1: VBAエディタを開く
まず、Excelを開き、Alt + F11を押してVBAエディタを開きます。次に、左側の「VBAProject（あなたのファイル名）」を右クリックし、「挿入」>「モジュール」を選択します。
手順 2: VBAコードを追加
以下のコードをモジュールに追加します。このコードは、セルA3の値が「OK」になったときにポップアップメッセージを表示します。
Sub CheckCellValue()
If Range("A3").Value = "OK" Then
MsgBox "登録可能になりました", vbInformation, "確認"
End If
End Sub手順 3: マクロを実行
コードを入力したら、Excelに戻り、Alt + F8で「マクロの実行」ウィンドウを開き、先ほど作成したマクロ（CheckCellValue）を選択して実行します。
自動的にポップアップを表示させる方法
マクロを手動で実行する代わりに、セルA3の値が変更されたときに自動的にポップアップを表示させることもできます。これを実現するには、ワークシートの「変更イベント」を使用します。
手順 4: 変更イベントの設定
以下のコードをワークシートのVBAに追加します。このコードはセルA3が変更されるたびに、ポップアップメッセージを表示します。
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A3")) Is Nothing Then
If Range("A3").Value = "OK" Then
MsgBox "登録可能になりました", vbInformation, "確認"
End If
End If
End Subまとめ
Excelでセルの結果に応じてポップアップメッセージを表示するには、VBAを使ってイベントを設定する必要があります。これにより、IF関数だけでは実現できない動作を簡単に自動化することができます。質問者の問題は、IF関数にVBAを組み合わせることで解決でき、手動での操作を最小限に抑えることが可能です。
コメント