Прескочи на основното съдържание

Как да изскача прозорец със съобщение, когато щракнете върху определена клетка в Excel?

Автор: Силувия Последна промяна: 2016-07-26

Тази статия има за цел да ви покаже метода за изскачане на кутия за съобщения, когато щракнете върху определена клетка в Excel.

Изскачащо поле за съобщение, когато щракнете върху определена клетка с VBA код


стрелка син десен балон Изскачащо поле за съобщение, когато щракнете върху определена клетка с VBA код

Моля, направете следното, за да изскочи поле за съобщение, когато щракнете върху определена клетка в работния лист.

1. Shift, за да отворите работния лист с определена клетка, която трябва да покаже полето за съобщения, когато щракнете върху него. Щракнете с десния бутон върху раздела на листа и изберете Преглед на кода от менюто с десен бутон.

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 за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
  • Увеличава вашата производителност с 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