Excel でセルの値が特定の値より大きい、または小さい場合にメッセージボックスを表示させるにはどうすればよいですか？

あるセルの値が他のセルと比較して大きかったり小さかったりする場合、Excel でメッセージボックスをアラートとして表示したいと考えていませんか？本記事では、この課題を解決するためのいくつかのコードをご紹介します。

列内のセル値が他のセルより大きいか小さい場合にメッセージボックスをポップアップする

セル内の値が他のセルより大きいか小さい場合にメッセージボックスをポップアップする

---

列内のセル値が他のセルより大きいか小さい場合にメッセージボックスをポップアップする

たとえば、セル A1 に特定の数値100 が入力されているとします。このとき、列 D に入力された数値がセル A1 の値（100）を超えた場合、ユーザーに通知するメッセージボックスを表示したいとします。

次の手順に従えば、以下の VBA コードでこれを実現できます。

1．使用したいワークシートに移動します。

2．シートの見出しを右クリックし、コンテキストメニューからコードの表示を選択してください。表示されたMicrosoft Visual Basic for Applicationsウィンドウで、以下のコードを空のモジュールウィンドウにコピー＆ペーストします（下記スクリーンショット参照）。

VBA コード：列内のセル値が特定のセルと比較して大きいか小さい場合にメッセージボックスをポップアップする

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Dim xC As String
Dim xWSName As String
Dim xA As String
xC = "D:D"
xWSName = "Sheet1"
xA = "A1"
    If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
    If IsEmpty(Target) Then Exit Sub
    xNum = (Sheets(xWSName).Range(xA).Value)
    If (Target.Value) > (Sheets(xWSName).Range(xA).Value) Then
        MsgBox Prompt:="The entered number is greater than cell A1, please enter again! ", Title:="Kutools for Excel"
    End If
End Sub

注：上記コードにおいて、Sheet1は使用するワークシートを指します。A1は比較対象のセル値、D:Dはセル A1 と比較する列です。

3．その後、コードウィンドウを保存して閉じます。これ以降、列 D に100 より大きい数値を入力すると、メッセージボックスがポップアップします（下記スクリーンショット参照）。

---

---

セル内の値が他のセルより大きいか小さい場合にメッセージボックスをポップアップする

セルの値が他のセルよりも大きいか小さい場合にメッセージボックスを表示したい場合は、以下のコードをご利用ください。

1．使用したいワークシートに移動します。

2．シート見出しを右クリックし、コンテキストメニューからコードの表示を選択します。表示されたMicrosoft Visual Basic for Applicationsウィンドウに、以下のコードを空のモジュールウィンドウにコピー＆ペーストしてください（下記スクリーンショット参照）。

VBA コード：セル値が他のセルより大きいか小さい場合にメッセージボックスをポップアップする

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
On Error GoTo ExitSub
Dim One As Long
Dim Two As Long
One = Range("A1").Value
Two = Range("D1").Value
If Not (Application.Intersect(Range("A1:D1"), Target) Is Nothing) Then
If (One < Two) Then
MsgBox "The value in cell D1 cann't be greater than cell A1!", vbInformation, "Kutools for Excel"
End If
End If
ExitSub:
End Sub

注：上記のコードでは、A1およびD1が比較対象の2 つのセルです。

3．その後、コードウィンドウを保存して閉じます。セル A1 の値より小さい値を入力すると、以下のようにメッセージボックスがポップアップします（下記スクリーンショット参照）。

---

関連するポップアップメッセージボックスの記事をさらに読む：