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

Author: Xiaoyang Last Modified: 2025-05-23

あるセルが別のセルより大きいまたは小さい場合、アラートのためにメッセージボックスを表示する必要があります。この問題を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より大きい数値を入力すると、メッセージボックスが表示されます。スクリーンショットをご覧ください：

pop up message box if cell greatern or less than a specific value

素晴らしい！Chrome、Edge、Firefox、SafariのようにExcelでEfficient Tabsを使用できます！
毎日50%の時間を節約し、数千回のマウスクリックを減らすことができます！

セル内の値が別のセルより大きいまたは小さい場合にメッセージボックスを表示する

セルの値が別のセルより大きいまたは小さい場合にメッセージボックスを表示したい場合は、以下のコードを適用してください：

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

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の値より小さい値を入力すると、下のスクリーンショットのようにメッセージボックスが表示されます：

pop up message box if cell greatern or less than another cell value