Salt la conținutul principal

Cum să pop-up caseta de mesaj dacă valoarea celulei este egală cu „X” în Excel?

Popping-ul casetei de mesaje ajută foarte mult la găsirea anumitor conținuturi în intervalul specificat. De exemplu, găsiți o valoare a celulei care este egală cu 50 într-un interval A1: C7 și aveți nevoie de o casetă de mesaj care să vă afișeze dacă valoarea celulei există sau nu. Următoarele două metode vă pot ajuta.

Caseta de mesaj pop-up dacă valoarea celulei este egală cu „X” cu codul VBA
Pop-up cu ușurință casetă de mesaj dacă valoarea celulei este egală cu „X” cu Kutools pentru Excel


Caseta de mesaj pop-up dacă valoarea celulei este egală cu „X” cu codul VBA

Următorul cod VBA vă poate ajuta să creați o casetă de mesaj pop-up atunci când valoarea anumită există în intervalul specificat. Vă rugăm să faceți următoarele.

1. În foaia de lucru trebuie să verificați valorile din intervalul specificat, faceți clic dreapta pe numele filei din bara de file a foii, apoi faceți clic pe Afișați codul din meniul cu clic dreapta. Vedeți captura de ecran:

caseta de mesaj doc dacă valoarea celulei 1

2. În Microsoft Visual Basic pentru aplicații fereastră, copiați și lipiți următorul cod VBA în fereastra Cod.

Cod VBA: caseta de mesaj pop-up dacă valoarea celulei este egală cu „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. presa Alt + Q tastele simultan pentru a închide Microsoft Visual Basic pentru aplicații fereastră și reveniți la foaia de lucru.

De acum înainte, când valorile celulei sunt modificate în intervalul A1: C7 și există o valoare a celulei egală cu „50”, veți primi o casetă de mesaj așa cum este prezentată mai jos.

În plus, puteți selecta doar intervalul pentru a afișa caseta de mesaj dacă există valoarea celulei.

caseta de mesaj doc dacă valoarea celulei 1

notițe:

1. Dacă valoarea celulei nu îndeplinește criteriile, caseta de mesaj nu va apărea.
2. În codul de mai sus, puteți modifica referința și valoarea celulei în funcție de nevoile dvs.
3. Poate afișa o referință de celulă potrivită numai atunci când există mai multe rezultate.

Caseta de mesaj pop-up dacă valoarea celulei este egală cu „X” cu Kutools pentru Excel

Selectați celule specifice utilitatea Kutools pentru Excel vă poate ajuta, de asemenea, să rezolvați această problemă. Vă rugăm să faceți următoarele.

Înainte de a aplica Kutools pentru Excel, Vă rugăm să descărcați-l și instalați-l mai întâi.

1. Selectați intervalul în care doriți să găsiți dacă există valoarea celulei, apoi faceți clic pe Kutools > Selectați > Selectați celule specifice

2. În Selectați celule specifice caseta de dialog, selectați Celulă opțiune în Tipul de selecție , apoi selectați este egală cu in primul Tipul specific lista derulantă și tastați valoarea celulei în următoarea casetă de text și apoi faceți clic pe OK butonul.

caseta de mesaj doc dacă valoarea celulei 1

Dacă valoarea celulei există în intervalul specificat, veți primi următoarea casetă de mesaj, faceți clic pe OK butonul, celula va fi selectată.

caseta de mesaj doc dacă valoarea celulei 1

În caz contrar, veți primi caseta de mesaj așa cum este prezentată mai jos.

caseta de mesaj doc dacă valoarea celulei 1

  Dacă doriți să aveți o perioadă de încercare gratuită (30 de zile) a acestui utilitar, vă rugăm să faceți clic pentru a-l descărca, și apoi mergeți pentru a aplica operația conform pașilor de mai sus.


Pop-up cu ușurință casetă de mesaj dacă valoarea celulei este egală cu „X” cu Kutools pentru Excel


Legate de articole:

Cele mai bune instrumente de productivitate de birou

Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

fila kte 201905


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
Comments (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Is there a way to update for 2 values in the same range? ex "50" or "100" ?
This comment was minimized by the moderator on the site
Hi Rajesh,
The below code can help you solve the problem, please have a try. Thank you!

Private Sub Worksheet_Change(ByVal Target As Range)

'Update: 2020/8/21

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" Or xCell.Value = "100" Then

MsgBox "guest entered into cell " & xCell.Address, vbInformation, "Kutools for Excel"

Exit Sub

End If

Next

End If

End Sub
This comment was minimized by the moderator on the site
Hi Crystal, Both conditions are working . Thank you so much ThanksRajesh
This comment was minimized by the moderator on the site
Is there a way to update for 2 values in the same range? ex "50" or "100" ?
This comment was minimized by the moderator on the site
I also tried duplicating this code, and changing to a different range where my data is repeated, but it appears the "Worksheet - Change" function can only be used once. Is this true?
This comment was minimized by the moderator on the site
This script works fine when the cell was enter manually. But when I try to copy the whole line from the other line and paste it to the new line, the pop up window will still come up even the cell on the new line didn't contain the key word. Any way to get rid of it? Please advice. Thanks
This comment was minimized by the moderator on the site
Dear TANGO, Thank you for your comment! We have updated the VBA script to get rid of the problem you mentioned above. Hope the new code can ease your work. If you have any problem, please do hesitate to contact us! Thanks again for your comment!
This comment was minimized by the moderator on the site
please need your help give me your email address Linda mine is
This comment was minimized by the moderator on the site
Hi,
Sorry for replying so late. Please contact me at .
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations