Как открыть окно сообщения, если значение ячейки равно «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 Sub3. Нажмите другой + Q клавиши одновременно, чтобы закрыть Microsoft Visual Basic для приложений окно и вернитесь к рабочему листу.
С этого момента, когда значения ячеек изменяются в диапазоне A1: C7 и значение ячейки равно «50», вы получите окно сообщения, как показано ниже.
Кроме того, вы можете просто выбрать диапазон, чтобы отобразить окно сообщения, если значение ячейки существует.
Заметки:
Всплывающее окно сообщения, если значение ячейки равно «X» с Kutools for Excel
Ассоциация Выбрать определенные ячейки полезности Kutools for Excel также может помочь вам решить эту проблему. Пожалуйста, сделайте следующее.
Перед применением Kutools for Excel, Пожалуйста, сначала скачайте и установите.
1. Выберите диапазон, в котором вы хотите найти значение ячейки, и щелкните Кутулс > Выберите > Выбрать определенные ячейки.
2. в Выбрать определенные ячейки в диалоговом окне выберите Ячейка вариант в Тип выбора раздел, затем выберите Равно в первом Конкретный тип раскрывающийся список, введите значение ячейки в следующее текстовое поле и, наконец, щелкните значок OK .
Если значение ячейки существует в указанном диапазоне, вы получите следующее окно сообщения, щелкните значок OK кнопка, ячейка будет выделена.
В противном случае вы получите окно сообщения, как показано на скриншоте ниже.
Если вы хотите получить бесплатную (30-дневную) пробную версию этой утилиты, пожалуйста, нажмите, чтобы загрузить это, а затем перейдите к применению операции в соответствии с указанными выше шагами.
Легко всплывающее окно сообщения, если значение ячейки равно «X» с помощью Kutools for Excel
Статьи по теме:
- Как удалить всю строку, если ячейка содержит ноль в Excel?
- Как подсчитать ячейки с определенным текстом в выделении в Excel?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
