Ugrás a tartalomra

Hogyan jelenjen meg az üzenetmező, ha a cella értéke egyenlő az X-szel az Excel-ben?

Az üzenetdoboz felbukkanása sokat segít, miközben megtalál bizonyos tartalmat a megadott tartományban. Például az A50: C1 tartományban 7 cellaértéket talál, és egy felugró üzenetdobozra van szüksége, amely megmondja, hogy létezik-e a cellaérték vagy sem. A következő két módszer segíthet.

Felbukkanó üzenetmező, ha a cella értéke egyenlő az „X” és a VBA kóddal
Könnyen felugrik az üzenetdoboz, ha a cella értéke „X” a Kutools for Excel segítségével


Felbukkanó üzenetmező, ha a cella értéke egyenlő az „X” és a VBA kóddal

A következő VBA-kód segíthet egy előugró üzenetmező létrehozásában, ha a bizonyos érték a megadott tartományban létezik. Kérjük, tegye a következőket.

1. A munkalapon ellenőriznie kell a megadott tartományban lévő értékeket, kattintson a jobb gombbal a lap nevére a lap fülsávjában, majd kattintson a gombra Kód megtekintése a jobb egérgombbal kattintva. Lásd a képernyőképet:

doc üzenet mező, ha az 1. cella értéke

2. Ban,-ben Microsoft Visual Basic for Applications ablakba másolja és illessze be a következő VBA kódot a Kód ablakba.

VBA kód: felugró üzenetmező, ha a cella értéke „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. nyomja meg más + Q gombok egyszerre a Microsoft Visual Basic for Applications ablakot, és térjen vissza a munkalapra.

Mostantól, amikor a cellák értékeit megváltoztatják az A1: C7 tartományban, és a cellák értéke megegyezik az „50” értékkel, akkor kap egy üzenetdobozt, az alábbi képernyőképen.

Ezenkívül egyszerűen kiválaszthatja azt a tartományt, ahol az üzenet mező megjelenik, ha a cella értéke létezik.

doc üzenet mező, ha az 1. cella értéke

Megjegyzések:

1. Ha a cella értéke nem felel meg a feltételeknek, az üzenetmező nem jelenik meg.
2. A fenti kódban megváltoztathatja a cellahivatkozást és értéket az igényeinek megfelelően.
3. Csak egy megfelelő cellahivatkozást tud megjeleníteni, ha több eredmény van.

Ha a cella értéke „X”-nek felel meg, akkor a Kutools for Excel alkalmazásban megjelenik az üzenetmező

Az Válassza a Specifikus cellák lehetőséget hasznossága Kutools az Excel számára segíthet a probléma megoldásában is. Kérjük, tegye a következőket.

Alkalmazás előtt Kutools az Excel számáraKérjük, először töltse le és telepítse.

1. Válassza ki azt a tartományt, amelyet meg szeretne találni, ha a cella értéke létezik, majd kattintson a gombra Kutools > választ > Válassza a Specifikus cellák lehetőséget

2. Ban,-ben Válassza a Specifikus cellák lehetőséget párbeszédpanelen válassza a ikont Sejt lehetőség a Kiválasztás típusa szakaszban, majd válassza a lehetőséget Egyenlő az elsőben Konkrét típus legördülő listából írja be a cella értékét a következő szövegmezőbe, végül kattintson a OK gombot.

doc üzenet mező, ha az 1. cella értéke

Ha a cella értéke a megadott tartományban létezik, akkor a következő üzenetmezőt kapja, kattintson a gombra OK gombra, a cella kiválasztásra kerül.

doc üzenet mező, ha az 1. cella értéke

Ellenkező esetben megkapja az üzenet mezőt, az alábbi képernyőképen.

doc üzenet mező, ha az 1. cella értéke

  Ha ingyenes (30 napos) próbaverziót szeretne kapni a segédprogramról, kattintson a letöltéshez, majd lépjen a művelet végrehajtására a fenti lépések szerint.


Könnyen felugrik az üzenetdoboz, ha a cella értéke „X” a Kutools for Excel segítségével


Kapcsolódó cikkek:

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
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