Перейти к основному содержанию

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

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

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


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

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

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

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

Код VBA: всплывающее окно сообщения при нажатии на определенную ячейку

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:B10")) Is Nothing Then _
        MsgBox "You have select cell " & Target.Address & vbCrLf & "Please input a number", vbInformation, "Kutools for Excel"
End Sub

Заметки:

1). В коде «A1: B10» означает, что окно сообщения будет появляться при нажатии на любую ячейку этого диапазона.

2). «Вы выбрали ячейку» и «Введите данные» - это отображаемое содержимое окна сообщения.

Пожалуйста, измените их по своему усмотрению.

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

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


стрелка синий правый пузырьСтатьи по теме:

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

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...

Описание


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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How can I enter more ranges? thank you very much
This comment was minimized by the moderator on the site
Hi,
Please apply the below code. Hope I can help. thank you for your comment.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xStrRg As String
xStrRg = "A1:B10,D1:F10" 'Add multiple ranges here and separate with comma
If Not Intersect(Target, Range(xStrRg)) Is Nothing Then _
MsgBox "You have select cell " & Target.Address & vbCrLf & "Please input a number", vbInformation, "Kutools for Excel"
End Sub
This comment was minimized by the moderator on the site
typo select vs selected in code. also maybe switch to vbNewLine rather than crlf
This comment was minimized by the moderator on the site
I have multiple cells I would like a pop up box for. Can you use this code for multiple boxes?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations