Как да изскача прозорец със съобщение, ако стойността на клетката е равна на „X“ в Excel?
Изскачащото поле за съобщения помага много при намирането на определено съдържание в определен диапазон. Например, вие намирате стойност на клетка, която е равна на 50 в диапазон A1:C7, и имате нужда от изскачащ прозорец със съобщение, за да ви каже дали стойността на клетката съществува или не. Следните два метода могат да ви помогнат.
Изскачащо поле за съобщение, ако стойността на клетката е равна на „X“ с VBA код
Лесно изскачащо поле за съобщение, ако стойността на клетката е равна на „X“ с Kutools за 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 за Excel
- Изберете конкретни клетки полезност на Kutools за Excel също може да ви помогне да разрешите този проблем. Моля, направете следното.
Преди да кандидатствате Kutools за Excel, Моля те първо го изтеглете и инсталирайте.
1. Изберете диапазона, който искате да намерите, ако съществува стойност на клетката, след което щракнете Kutools > Изберете > Изберете конкретни клетки.
2. В Изберете конкретни клетки диалогов прозорец, изберете Клетка опция в Тип селекция раздел, след което изберете Равно на в първия Специфичен тип падащ списък и въведете стойността на клетката в следващото текстово поле и накрая щракнете върху OK бутон.
Ако стойността на клетката съществува в определен диапазон, ще получите следното съобщение, щракнете върху OK бутон клетката ще бъде избрана.
В противен случай ще получите полето за съобщение, както е показано на екранната снимка по-долу.
Ако искате да имате безплатен пробен период (30 дни) на тази помощна програма, моля, щракнете, за да го изтеглитеи след това преминете към прилагане на операцията съгласно горните стъпки.
Лесно изскачащо поле за съобщение, ако стойността на клетката е равна на „X“ с Kutools за Excel
Още по темата:
- Как да изтрия целия ред, ако клетката съдържа нула в Excel?
- Как да преброя клетки с конкретен текст в селекцията в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!