Excel VBAで特定の条件でポップアップを表示する方法

Excel VBAを使って、C列に特定の言葉（例えば「アルミ」や「鉄」）が入力されている場合に、ポップアップメッセージを表示する方法を解説します。複数の条件で適切なポップアップメッセージを表示し、⚠️の警告マークも含める方法についても紹介します。

Excel VBAでポップアップを表示する基本的なコード

Excel VBAを使って特定のセルに入力された内容に基づいてポップアップメッセージを表示するには、まず対象の列（この場合C列）の内容をチェックし、その条件に応じたメッセージを表示します。

以下のコードをVBAエディタに追加することで、C列に「アルミ」または「鉄」が入力されているときにポップアップを表示することができます。

Sub ShowMessageBasedOnCondition() 
 Dim cell As Range 
 For Each cell In Range("C1:C100") 
 If cell.Value = "アルミ" Then 
 MsgBox "⚠️ アルミは○○に記載してください", vbExclamation, "注意" 
 ElseIf cell.Value = "鉄" Then 
 MsgBox "⚠️ 鉄は○○に記載してください", vbExclamation, "注意" 
 End If 
 Next cell 
End Sub

このコードでは、C1からC100の範囲で「アルミ」や「鉄」が入力されているセルを検索し、条件に応じたメッセージを表示します。

条件を複数設定する方法

複数の条件を設定したい場合、If文の中でElseIfを使用して複数の条件を組み合わせることができます。例えば、「アルミ」と「鉄」以外の条件でもポップアップを表示したい場合、次のように追加できます。

ElseIf cell.Value = "銅" Then 
 MsgBox "⚠️ 銅は○○に記載してください", vbExclamation, "注意"

これにより、条件に該当する場合、対応するポップアップが表示されます。

ポップアップのカスタマイズ：⚠️マークを含める

ポップアップに⚠️の警告マークを含めるには、vbExclamationの定数を使用します。これにより、メッセージボックスに警告アイコンが表示されます。上記のコードでも既に使用しており、メッセージが視覚的に強調されます。

さらに、ポップアップのタイトル（「注意」など）も指定できるため、用途に応じてタイトルもカスタマイズすることが可能です。

まとめ：条件に応じたポップアップメッセージの表示方法

Excel VBAを使用すれば、特定の条件に基づいてポップアップメッセージを表示することが簡単にできます。これにより、データ入力時の注意喚起やガイドを効率的に行うことができ、作業のミスを防ぐことができます。複数の条件に基づくメッセージ表示や、警告アイコンの追加も可能で、さらに便利に活用できます。