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