Hoppa till huvudinnehåll

Hur dyker upp meddelanderutan om cellvärdet är lika med "X" i Excel?

Att poppa upp meddelanderutan hjälper mycket när du hittar ett visst innehåll inom angivet intervall. Till exempel hittar du cellvärde som motsvarar 50 i ett område A1: C7, och du behöver en meddelandefält som dyker upp för att berätta om cellvärdet finns eller inte. Följande två metoder kan hjälpa dig.

Pop up meddelanderuta om cellvärdet är lika med “X” med VBA-kod
Öppna meddelandefältet enkelt om cellvärdet är lika med “X” med Kutools för Excel


Pop up meddelanderuta om cellvärdet är lika med “X” med VBA-kod

Följande VBA-kod kan hjälpa till att skapa en popup-meddelandefält när det specifika värdet finns i angivet intervall. Gör så här.

1. I kalkylbladet måste du kontrollera värden inom angivet intervall, högerklicka på fliknamnet i flikfältet och klicka sedan på Visa kod från högerklickmenyn. Se skärmdump:

meddelandefält för doc om cellvärde 1

2. I Microsoft Visual Basic för applikationer fönster, kopiera och klistra in följande VBA-kod i kodfönstret.

VBA-kod: popup-meddelandefält om cellvärdet är lika med "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. Tryck andra + Q samtidigt för att stänga Microsoft Visual Basic för applikationer och gå tillbaka till kalkylbladet.

Från och med nu, när cellvärdena ändras i intervallet A1: C7 och det finns cellvärde som är lika med "50", får du en meddelandefält som visas nedan.

Dessutom kan du bara välja det intervall som ska visas i meddelandefältet om cellvärdet finns.

meddelandefält för doc om cellvärde 1

Anmärkningar:

1. Om cellvärdet inte uppfyller kriterierna dyker meddelandefältet inte upp.
2. I ovanstående kod kan du ändra cellreferensen och värdet efter ditt behov.
3. Det kan bara visa en matchande cellreferens när det finns flera resultat.

Pop up meddelanderuta om cellvärdet är lika med "X" med Kutools för Excel

Smakämnen Välj specifika celler nytta av Kutools för Excel kan också hjälpa dig att lösa detta problem. Gör så här.

Innan du ansöker Kutools för ExcelBer ladda ner och installera det först.

1. Välj det område du vill hitta om det finns ett cellvärde och klicka sedan på Kutools > Välja > Välj specifika celler

2. I Välj specifika celler dialogrutan väljer du Cell alternativet i Urvalstyp avsnittet och välj sedan lika i den första Specifik typ listrutan och skriv cellvärdet i nästa textruta och klicka slutligen på OK knapp.

meddelandefält för doc om cellvärde 1

Om cellvärdet finns i angivet intervall får du följande meddelandefält, klicka på OK knappen, kommer cellen att väljas.

meddelandefält för doc om cellvärde 1

Annars får du meddelandefältet som visas nedan.

meddelandefält för doc om cellvärde 1

  Om du vill ha en gratis provperiod (30 dagar) av det här verktyget, klicka för att ladda ner den, och gå sedan till för att tillämpa operationen enligt ovanstående steg.


Öppna meddelandefältet enkelt om cellvärdet är lika med “X” med Kutools för Excel


Relaterade artiklar:

Bästa kontorsproduktivitetsverktyg

🤖 Kutools AI Aide: Revolutionera dataanalys baserat på: Intelligent utförande   |  Generera kod  |  Skapa anpassade formler  |  Analysera data och generera diagram  |  Anropa Kutools funktioner.
Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50+ Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

Beskrivning


Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
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