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

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

Иногда вам нужно напоминать себе об изменениях в пределах диапазона на определенном листе. Таким образом, всплывающее окно сообщения окажет вам услугу, если значение ячейки изменилось в определенном диапазоне. Вы можете добиться этого с помощью метода VBA в этой статье.

Всплывающее окно сообщения, если значение ячейки изменяется в диапазоне с кодом VBA


Всплывающее окно сообщения, если значение ячейки изменяется в диапазоне с кодом VBA

Следующий код VBA отобразит окно сообщения, если значение ячейки изменится в пределах указанного диапазона определенного рабочего листа. Пожалуйста, сделайте следующее.

1. Нажмите другой + F11 клавиши одновременно, чтобы открыть Microsoft Visual Basic для приложений окно.

2. в Microsoft Visual Basic для приложений окна, дважды щелкните имя листа (указанный диапазон существует в) на левой панели, чтобы открыть его Code window, затем скопируйте и вставьте в окно приведенный ниже код VBA.

Код VBA: всплывающее окно сообщения, если значение ячейки изменяется в пределах диапазона

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not (Application.Intersect(Range("A1:E19"), Target) Is Nothing) Then
        MsgBox "Cell " & Target.Address & " has changed.", vbInformation, "Kutools for Excel"
    End If
End Sub

Внимание: вы можете изменить указанный диапазон A1: E19 в коде на нужный вам диапазон.

3. Нажмите другой + Q ключи одновременно, чтобы закрыть Microsoft Visual Basic для приложений окно.

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

Лучшие инструменты для офисной работы

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...

Описание


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi everyone & thanks for help!!!!

How could I modify the VBA to show the excel cell informattion in MsgBox......?????
This comment was minimized by the moderator on the site
Hi everyone & thanks for help!!!!

How could I modify the VBA and say that if the Range B1:B50 is less than or equal to Range A1:B50 then MsgBox......?????
This comment was minimized by the moderator on the site
Good Day,
Do you mean the total sum of range b1:b50?
This comment was minimized by the moderator on the site
Hi everyone & thanks for the VBA.

I was just wondering how to modify the VBA in case that I want the MsgBox only if for example the cell value B1 is <= than A1


Thanks for your assistance!!!
This comment was minimized by the moderator on the site
Good Day,
Please try below VBA code:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ExitSub
Dim One As Long
Dim Two As Long
One = Range("A1").Value
Two = Range("B1").Value
If Not (Application.Intersect(Range("A1:B1"), Target) Is Nothing) Then
If (One > Two) Then
MsgBox "Range(""A1"") > Range(""B1"")", vbInformation, "Kutools for Excel"
End If
End If
ExitSub:
End Sub
This comment was minimized by the moderator on the site
Considering the above example.(VBA code: pop up message box if cell value changes within a range)

when the value of D14 has changed we get a pop up, in the similar way how to get the ID of that (column A of the same row (A14)).
Thanks in advance, any response is appreciable.
This comment was minimized by the moderator on the site
considering the above output there is a question.
we got a pop message when the D14 has changed, in the similar can way can we get the ID (data of the same row of the column A) in the pop up message??
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations