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

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

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

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

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

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», вы получите окно сообщения, как показано ниже.

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

Заметки:

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

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

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

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

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

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

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

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

• Как удалить всю строку, если ячейка содержит ноль в Excel?
• Как подсчитать ячейки с определенным текстом в выделении в Excel?

---

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

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

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

Больше информации... Скачать бесплатно... Покупка ... 

---

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

• Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
• Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
• Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

Больше информации... Скачать бесплатно... Покупка ...