Перейти к основному содержанию

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

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

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

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


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

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

Здесь приведенный ниже код 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

Внимание: В приведенном выше коде 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

Внимание: В приведенном выше коде A1 и D1 - это две ячейки, с которыми вы хотите сравнить.

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


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

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

  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Разделить содержимое ячеек; Объедините повторяющиеся строки и сумму / среднее значение... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Избранные и быстро вставляйте формулы, Диапазоны, диаграммы и изображения; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Группировка сводной таблицы по номер недели, день недели и другое ... Показать разблокированные, заблокированные ячейки разными цветами; Выделите ячейки, у которых есть формула / имя...
вкладка kte 201905
  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
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