Note: The other languages of the website are Google-translated. Back to English

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

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

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


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

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

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

2. в Microsoft Visual Basic для приложений окна, дважды щелкните имя листа (указанный диапазон существует в) на левой панели, чтобы открыть его Код: 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 for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (7)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
учитывая вышеизложенный вывод возникает вопрос.
мы получили всплывающее сообщение, когда D14 изменился, аналогичным образом мы можем получить идентификатор (данные той же строки столбца A) во всплывающем сообщении??
Этот комментарий был сведен к минимуму модератором на сайте
Учитывая приведенный выше пример. (Код VBA: всплывающее окно сообщения, если значение ячейки изменяется в пределах диапазона)

когда значение D14 изменилось, мы получаем всплывающее окно, аналогично тому, как получить идентификатор этого (столбец A той же строки (A14)).
Заранее спасибо, любой ответ ценен.
Этот комментарий был сведен к минимуму модератором на сайте
Привет всем и спасибо за VBA.

Мне просто было интересно, как изменить VBA в случае, если я хочу MsgBox, только если, например, значение ячейки B1 <= чем A1


Спасибо за твою помощь!!!
Этот комментарий был сведен к минимуму модератором на сайте
Добрый день,
Пожалуйста, попробуйте ниже код VBA:

Private Sub Worksheet_Change (ByVal Target As Range)
При ошибке GoTo ExitSub
Тусклый до тех пор
Dim Two As Long
Один = Диапазон ("A1"). Значение
Два = Диапазон ("B1"). Значение
Если Нет (Application.Intersect(Range("A1:B1"), Target) Is Nothing), то
Если (Один > Два) Тогда
MsgBox "Диапазон (""A1"")> Диапазон (""B1"")", vbInformation, "Kutools for Excel"
End If
End If
ExitSub:
End Sub
Этот комментарий был сведен к минимуму модератором на сайте
Привет всем и спасибо за помощь!!!!

Как я могу изменить VBA и сказать, что если диапазон B1: B50 меньше или равен диапазону A1: B50, то MsgBox......?????
Этот комментарий был сведен к минимуму модератором на сайте
Добрый день,
Вы имеете в виду общую сумму диапазона b1: b50?
Этот комментарий был сведен к минимуму модератором на сайте
Привет всем и спасибо за помощь!!!!

Как я могу изменить VBA, чтобы показать информацию о ячейке excel в MsgBox......?????
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL