メインコンテンツへスキップ

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

セルが別のセルよりも大きいか小さい場合、Excelで警告するメッセージボックスをポップアップする必要があります。 Excelでこの問題を解決するにはどうすればよいですか? この記事では、それを処理するためのいくつかのコードについて説明します。

列のセル値が別のセルより大きいか小さい場合は、メッセージボックスをポップアップします

セル内のセル値が別のセルよりも大きいか小さい場合は、メッセージボックスをポップアップします


列のセル値が別のセルより大きいか小さい場合は、メッセージボックスをポップアップします

セルA100に特定の数値1があるとすると、列Dに入力された数値がセルA100の1より大きい場合、ユーザーに通知するメッセージボックスが表示されます。

ここで、以下のVBAコードは、それを完了するのに役立ちます。次の手順を実行してください。

1。 使用するワークシートに移動します。

2。 シートタブを右クリックして、 コードを表示 コンテキストメニューから、ポップアウトで アプリケーション向け Microsoft Visual Basic ウィンドウの場合は、次のコードをコピーして空白のモジュールウィンドウに貼り付けてください。スクリーンショットを参照してください。

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

Note:上記のコードでは、 Sheet1 使用するワークシートです。 A1 比較するセル値です。 D:D セルA1と比較する列です。

3。 次に、コードウィンドウを保存して閉じます。これ以降、列Dに100より大きい数値を入力すると、メッセージボックスが表示されます。スクリーンショットを参照してください。


セル内のセル値が別のセルよりも大きいか小さい場合は、メッセージボックスをポップアップします

セルの値が別のセルよりも大きいまたは小さいときにメッセージボックスをポップアウトする場合は、次のコードを適用してください。

1。 使用するワークシートに移動します。

2。 シートタブを右クリックして、 コードを表示 コンテキストメニューから、ポップアウトで アプリケーション向け Microsoft Visual Basic ウィンドウの場合は、次のコードをコピーして空白のモジュールウィンドウに貼り付けてください。スクリーンショットを参照してください。

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

Note:上記のコードでは、 A1 & D1 比較したいXNUMXつのセルです。

3。 次に、コードウィンドウを保存して閉じます。セルA1の値よりも小さい値を入力すると、次のスクリーンショットのようにメッセージボックスがポップアップ表示されます。


より相対的なポップアップメッセージボックスの記事:

  • Excelファイルを開くときにポップアップメッセージボックスを作成する
  • 場合によっては、特定のブックを開いたときに最初に何をする必要があるかを通知するメッセージボックスを常にポップアップ表示する必要があります。これにより、日常業務で最も重要なことを忘れないようにすることができます。 そしてこの記事では、Excelファイルを開くときにポップアップメッセージボックスを作成する方法について説明します。
  • Excelでマクロを実行する前にはいいいえメッセージボックスを作成する
  • Excelでは、F5キーを押すか、Microsoft Visual Basic for Applicationsウィンドウの[実行]ボタンをクリックして、マクロを直接トリガーできます。 ただし、マクロを実行するかどうかをユーザーに尋ねるメッセージボックスを作成したい場合があります。 はいの場合はコードの実行を続行し、いいえの場合はコードの実行を停止します。 この記事では、Excelでマクロを実行する前にyesnoメッセージボックスを作成する方法について説明します。
  • メッセージボックスタイマーを作成して、一定時間後にメッセージボックスを自動的に閉じる
  • Excelブックを使用しているときに、VBAスクリプトを頻繁に使用して問題を解決できます。 また、スクリプトの実行中にメッセージボックスがポップアップ表示されます。 場合によっては、指定したメッセージボックスを手動で閉じるのではなく、特定の時間が経過すると自動的に閉じるようにします。 この記事では、Excelで一定時間後にメッセージボックスを自動的に閉じるメッセージボックスタイマーを作成する方法を紹介します。

  • スーパーフォーミュラバー (複数行のテキストと数式を簡単に編集できます); 読書レイアウト (多数のセルを簡単に読み取って編集する); フィルター範囲に貼り付け...
  • セル/行/列をマージする およびデータの保持。 分割セルコンテンツ; 重複する行と合計/平均を組み合わせる...重複セルを防止します。 範囲を比較する...
  • [複製]または[一意]を選択します 行; 空白行を選択 (すべてのセルは空です); スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
  • 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
  • お気に入りの数式をすばやく挿入する、範囲、チャート、写真; セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
  • スーパーフィルター (フィルタースキームを保存して他のシートに適用します); 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
  • ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
  • ピボットテーブルのグループ化 週番号、曜日など... ロック解除された、ロックされたセルを表示する さまざまな色で; 式/名前を持つセルを強調表示する...
kteタブ201905
  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
officetab下部
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
could you help me combine multiple of these rules
This comment was minimized by the moderator on the site
is it possible to include the text from a specific cell in the content of the alert message box?
This comment was minimized by the moderator on the site
Thanks for this, it worked great! But I want to know how can I make this work if the cell that I'm monitoring depends on a cell on another Sheet. For example A1 in Sheet 1 changes values if cell A3 in Sheet 2 changes. I have something like this and the pop up message didn't come up, only when manually changed the A1 on Sheet 1.

Thanks!
This comment was minimized by the moderator on the site
In your VB example above a Pop Up Message Box occurs If Cell A1 is Less than D1 which works well however how do I make it also create a Pop up message for cell A2 is Less than D2, A3 is Less than D3 and so on.
This comment was minimized by the moderator on the site
GRACIAS, COMO PUEDO HACER PARA AMPLIARLO A UN RANDO MAS GRANDE ES DECIR O15:O100 Y N15:N100
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations