Перейти к содержимому

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

Author: Xiaoyang Last Modified: 2025-08-07

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

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

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

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

Предположим, у меня есть конкретное число 100 в ячейке A1, теперь, когда число, введенное в столбец D, больше 100 в ячейке 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.

click View Code from right click menu arrow right paste the vba code into the module

3. Затем сохраните и закройте окно кода, с этого момента всплывающее окно сообщения будет появляться, если вы введете число в столбец D, которое больше 100, см. скриншот:

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

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

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

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, появится всплывающее окно сообщения, как показано на скриншоте ниже:

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

Больше статей о всплывающих окнах сообщений:

  • Создание всплывающего окна сообщения при открытии файла Excel
  • В некоторых случаях вам может понадобиться всплывающее окно сообщения, которое всегда напоминает вам, что нужно сделать в первую очередь при открытии определенной книги. Это поможет вам не забыть выполнить самое важное дело в вашей повседневной работе. В этой статье я расскажу, как создать всплывающее окно сообщения при открытии файла Excel.
  • Создание окна сообщения «Да/Нет» перед запуском макроса в Excel
  • В Excel вы можете напрямую запустить макрос, нажав клавишу F5 или кнопку Запуск в окне Microsoft Visual Basic for Applications. Но иногда вы можете захотеть создать окно сообщения, которое спросит пользователя, хочет ли он запустить макрос. Если да, продолжайте выполнение кода, если нет, остановите выполнение кода. В этой статье я расскажу, как создать окно сообщения «Да/Нет» перед запуском макроса в Excel.
  • Создание таймера окна сообщения для автоматического закрытия окна сообщения после определенного времени
  • Вы можете часто использовать сценарий VBA для решения проблем при использовании книги Excel. И во время выполнения сценария будут появляться всплывающие окна сообщений. В некоторых случаях вы хотели бы, чтобы некоторые определенные окна сообщений закрывались автоматически через определенное время, а не вручную. В этой статье мы покажем вам метод создания таймера окна сообщения для автоматического закрытия окна сообщения после определенного времени в Excel.

Лучшие инструменты для повышения производительности Office

Kutools для Excel решает большинство ваших проблем и увеличивает вашу продуктивность на 80%

  • Супер строка формул (легкое редактирование нескольких строк текста и формул); Режим чтения (удобное чтение и редактирование большого количества ячеек); Вставка в отфильтрованный диапазон...
  • Объединение ячеек/строк/столбцов с сохранением данных; Разделение содержимого ячеек; Объединение дублирующихся строк с подсчетом суммы/среднего значения... Предотвращение дублирования ячеек; Сравнение диапазонов...
  • Выбор дублирующихся или уникальных строк; Выбор пустых строк (все ячейки пустые); Супер поиск и нечеткий поиск во многих книгах; Случайный выбор...
  • Точное копирование нескольких ячеек без изменения ссылок на формулы; Автоматическое создание ссылок на несколько листов; Вставка маркеров, флажков и многое другое...
  • Избранные и быстрая вставка формул, диапазонов, диаграмм и изображений; Шифрование ячеек с паролем; Создание списка рассылки и отправка электронных писем...
  • Извлечение текста, добавление текста, удаление по позиции, удаление пробелов; Создание и печать статистики страниц; Преобразование между содержимым ячеек и комментариями...
  • Супер фильтр (сохранение и применение схем фильтрации к другим листам); Расширенная сортировка по месяцу/неделе/дню, частоте и другим параметрам; Специальный фильтр по жирному шрифту, курсиву...
  • Объединение книг и листов; Объединение таблиц на основе ключевых столбцов; Разделение данных на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Группировка сводной таблицы по номеру недели, дню недели и другим параметрам... Отображение разблокированных, заблокированных ячеек разными цветами; Выделение ячеек, содержащих формулы/имена...
kte tab 201905
  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Открывайте и создавайте несколько документов в новых вкладках одного окна, а не в новых окнах.
  • Увеличивает вашу продуктивность на 50% и экономит сотни кликов мышью каждый день!
officetab bottom