Как настроить всплывающее окно с сообщением, если значение ячейки превышает или оказывается ниже заданного в Excel?

Если значение одной ячейки больше или меньше значения другой ячейки, как настроить в Excel автоматическое появление всплывающего окна с предупреждением? В этой статье я покажу несколько готовых фрагментов кода для решения этой задачи.

Всплывающее окно с сообщением, если значение ячейки в столбце больше или меньше значения другой ячейки

Всплывающее окно с сообщением, если значение ячейки больше или меньше значения другой ячейки

---

Всплывающее окно с сообщением, если значение ячейки в столбце больше или меньше значения другой ячейки

Допустим, в ячейке A1 указано конкретное число — 100. Как только значение, введённое в столбце D, превысит это число (значение ячейки A1), должно появиться всплывающее окно с напоминанием для пользователя.

Приведённый ниже код 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 — это две ячейки, которые вы хотите сравнить между собой.

3. Сохраните и закройте окно кода. После ввода значения, меньшего, чем в ячейке A1, появится всплывающее окно с сообщением, как показано на скриншоте ниже:

---

Другие статьи по теме всплывающих окон с сообщениями: