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

Как открыть окно сообщения, если значение ячейки равно «X» в Excel?

Всплывающее окно сообщения очень помогает при поиске определенного контента в указанном диапазоне. Например, вы нашли значение ячейки, равное 50, в диапазоне A1: C7, и вам нужно, чтобы всплывающее окно сообщало вам, существует ли значение ячейки или нет. Вам могут помочь следующие два метода.

Всплывающее окно сообщения, если значение ячейки равно «X» с кодом VBA
Легко всплывающее окно сообщения, если значение ячейки равно «X» с помощью Kutools for Excel


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

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

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

окно сообщения документа, если значение ячейки 1

2. в Microsoft Visual Basic для приложений окна, скопируйте и вставьте следующий код VBA в окно кода.

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

Private Sub Worksheet_Change(ByVal Target As Range)
'Update: 2017/7/25
    Dim xCell As Range, Rg As Range
    On Error Resume Next
    Set Rg = Application.Intersect(Target, Range("A1:C7"))
    If Not Rg Is Nothing Then
        For Each xCell In Rg
            If xCell.Value = "50" Then
                MsgBox "guest entered into cell " & xCell.Address, vbInformation, "Kutools for Excel"
                Exit Sub
            End If
        Next
    End If
End Sub
Private Sub Worksheet_selectionChange(ByVal Target As Range)
    Dim xCell As Range, Rg As Range
    On Error Resume Next
    Set Rg = Application.Intersect(Target, Range("A1:C7"))
    If Not Rg Is Nothing Then
        For Each xCell In Rg
            If xCell.Value = "50" Then
                MsgBox "guest entered into cell " & xCell.Address, vbInformation, "Kutools for Excel"
                Exit Sub
            End If
        Next
    End If
End Sub

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

С этого момента, когда значения ячеек изменяются в диапазоне A1: C7 и значение ячейки равно «50», вы получите окно сообщения, как показано ниже.

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

окно сообщения документа, если значение ячейки 1

Заметки:

1. Если значение ячейки не соответствует критериям, окно сообщения не появится.
2. В приведенном выше коде вы можете изменить ссылку на ячейку и значение по своему усмотрению.
3. Он может отображать только одну соответствующую ссылку на ячейку при наличии нескольких результатов.

Всплывающее окно сообщения, если значение ячейки равно «X» с Kutools for Excel

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

Перед применением Kutools for Excel, Пожалуйста, сначала скачайте и установите.

1. Выберите диапазон, в котором вы хотите найти значение ячейки, и щелкните Кутулс > Выберите > Выбрать определенные ячейки

2. в Выбрать определенные ячейки в диалоговом окне выберите Ячейка вариант в Тип выбора раздел, затем выберите Равно в первом Конкретный тип раскрывающийся список, введите значение ячейки в следующее текстовое поле и, наконец, щелкните значок OK кнопку.

окно сообщения документа, если значение ячейки 1

Если значение ячейки существует в указанном диапазоне, вы получите следующее окно сообщения, щелкните значок OK кнопка, ячейка будет выделена.

окно сообщения документа, если значение ячейки 1

В противном случае вы получите окно сообщения, как показано на скриншоте ниже.

окно сообщения документа, если значение ячейки 1

  Если вы хотите получить бесплатную пробную версию (30-день) этой утилиты, пожалуйста, нажмите, чтобы загрузить это, а затем перейдите к применению операции в соответствии с указанными выше шагами.


Легко всплывающее окно сообщения, если значение ячейки равно «X» с помощью Kutools for Excel


Статьи по теме:


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

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

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

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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (9)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Этот скрипт отлично работает, когда ячейка была введена вручную. Но когда я пытаюсь скопировать всю строку из другой строки и вставить ее в новую строку, всплывающее окно все равно появится, даже если ячейка в новой строке не содержит ключевое слово. Любой способ избавиться от него? Пожалуйста посоветуй. Спасибо
Этот комментарий был сведен к минимуму модератором на сайте
Уважаемый ТАНГО, спасибо за ваш комментарий! Мы обновили скрипт VBA, чтобы избавиться от упомянутой выше проблемы. Надеюсь, новый код облегчит вашу работу. Если у вас есть какие-либо проблемы, пожалуйста, не стесняйтесь обращаться к нам! Еще раз спасибо за ваш комментарий!
Этот комментарий был сведен к минимуму модератором на сайте
пожалуйста, нужна ваша помощь, дайте мне свой адрес электронной почты. Линда, моя: minesuganda256@gmail.com
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте,
Извините, что отвечаю так поздно. Пожалуйста, свяжитесь со мной по адресу zxm@addin99.com.
Этот комментарий был сведен к минимуму модератором на сайте
Есть ли способ обновить 2 значения в одном диапазоне? например "50" или "100"?
Этот комментарий был сведен к минимуму модератором на сайте
Я также попытался продублировать этот код и перейти к другому диапазону, в котором мои данные повторяются, но, похоже, функцию «Рабочий лист - Изменить» можно использовать только один раз. Это правда?
Этот комментарий был сведен к минимуму модератором на сайте
Есть ли способ обновить 2 значения в одном диапазоне? например "50" или "100"?
Этот комментарий был сведен к минимуму модератором на сайте
Привет Раджеш,
Приведенный ниже код может помочь вам решить проблему, попробуйте. Благодарю вас!

Private Sub Worksheet_Change (ByVal Target As Range)

'Обновление: 2020/8/21

Dim xCell как диапазон, Rg как диапазон

On Error Resume Next

Установить Rg = Application.Intersect(Цель, Диапазон("A1:C7"))

Если не Rg ничто, то

Для каждой xCell в Rg

Если xCell.Value = "50" Или xCell.Value = "100" Тогда

MsgBox «гость вошел в ячейку» и xCell.Address, vbInformation, «Kutools for Excel»

Exit Sub

End If

Далее

End If

End Sub
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Кристалл. Оба условия работают. Большое спасибо Спасибо Раджеш
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

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

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