Ugrás a tartalomra

Hogyan jelenjen meg az üzenetmező, ha a cella nagyobb vagy kevesebb, mint az Excel egy adott értéke?

Ha egy cella nagyobb vagy kisebb, mint egy másik cella, akkor fel kell ugranom egy üzenetmezőt az Excel riasztásához. Hogyan lehet megoldani ezt a problémát az Excelben? Ebben a cikkben néhány kóddal fogok foglalkozni.

Nyissa meg az üzenetmezőt, ha az oszlop cellájának értéke nagyobb vagy kisebb, mint egy másik cella

Nyissa meg az üzenetmezőt, ha a cella értéke nagyobb vagy kisebb, mint egy másik cella


Nyissa meg az üzenetmezőt, ha az oszlop cellájának értéke nagyobb vagy kisebb, mint egy másik cella

Tegyük fel, hogy van egy konkrét 100-as számom az A1 cellában, most, amikor a D oszlopba beírt szám nagyobb, mint 100 az A1 cellában, ki kell ugrani egy üzenetmezőt, amely emlékezteti a felhasználót.

Itt az alábbi VBA-kód segíthet a befejezésében, kérjük, tegye a következőket:

1. Menjen a használni kívánt munkalapra.

2. Kattintson a jobb gombbal a lap fülre, és válassza a lehetőséget Kód megtekintése a helyi menüből, a kiugrottban Microsoft Visual Basic for Applications ablakba, kérjük, másolja és illessze be a következő kódot az üres Modul ablakba, lásd a képernyőképet:

VBA kód: bukkanjon fel egy üzenetmezőbe, ha az oszlop cellájának értéke nagyobb vagy kisebb, mint egy cella

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Dim xC As String
Dim xWSName As String
Dim xA As String
xC = "D:D"
xWSName = "Sheet1"
xA = "A1"
    If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
    If IsEmpty(Target) Then Exit Sub
    xNum = (Sheets(xWSName).Range(xA).Value)
    If (Target.Value) > (Sheets(xWSName).Range(xA).Value) Then
        MsgBox Prompt:="The entered number is greater than cell A1, please enter again! ", Title:="Kutools for Excel"
    End If
End Sub

Megjegyzések: A fenti kódban Sheet1 a használni kívánt munkalapod; A1 az a cellaérték, amellyel összehasonlítani kíván; D: D az oszlop, amelyet összehasonlítani kíván az A1 cellával.

3. Ezután mentse el és zárja be a kódablakot, mostantól egy üzenetdoboz jelenik meg, ha a D oszlopba 100-nál nagyobb számot ír be, lásd a képernyőképet:


Nyissa meg az üzenetmezőt, ha a cella értéke nagyobb vagy kisebb, mint egy másik cella

Ha azt szeretné, hogy megjelenjen egy üzenetmező, amikor egy cella értéke nagyobb vagy kisebb, mint egy másik cella, kérjük, alkalmazza az alábbi kódot:

1. Menjen a használni kívánt munkalapra.

2. Kattintson a jobb gombbal a lap fülre, és válassza a lehetőséget Kód megtekintése a helyi menüből, a kiugrottban Microsoft Visual Basic for Applications ablakba, kérjük, másolja és illessze be a következő kódot az üres Modul ablakba, lásd a képernyőképet:

VBA kód: bukkanjon fel egy üzenetmezőbe, ha a cella értéke nagyobb vagy kisebb, mint egy cella

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
On Error GoTo ExitSub
Dim One As Long
Dim Two As Long
One = Range("A1").Value
Two = Range("D1").Value
If Not (Application.Intersect(Range("A1:D1"), Target) Is Nothing) Then
If (One < Two) Then
MsgBox "The value in cell D1 cann't be greater than cell A1!", vbInformation, "Kutools for Excel"
End If
End If
ExitSub:
End Sub

Megjegyzések: A fenti kódban A1 és a D1 az a két cella, amelyekkel összehasonlítani szeretne.

3. Ezután mentse el és zárja be a kódablakot. Ha olyan értéket ad meg, amely kisebb, mint az A1 cellában szereplő érték, akkor egy üzenetmező jelenik meg, az alábbi képernyőképen:


Relatívabb előugró üzenetdoboz-cikkek:

  • Hozzon létre felugró üzenetdobozt egy Excel fájl megnyitásakor
  • Bizonyos esetekben érdemes lehet, hogy egy üzenetablak mindig felugró ablakban emlékeztesse Önt arra, hogy mit kell először tennie, amikor megnyit egy adott munkafüzetet. Ez segíthet abban, hogy ne felejtse el elvégezni a legfontosabb dolgot a mindennapi munkában. És ebben a cikkben arról fogok beszélni, hogyan lehet létrehozni egy felugró üzenetdobozt egy Excel fájl megnyitásakor.
  • Hozzon létre egy Igen Nem üzenetdobozt, mielőtt futtatna egy makrót az Excel programban
  • Az Excelben közvetlenül kiválthatja a makrót az F5 billentyű lenyomásával, vagy kattintson a Futtatás gombra a Microsoft Visual Basic for Applications ablakban. De néha érdemes létrehoznia egy üzenetdobozt, amely megkérdezi a felhasználót, hogy akarja-e futtatni a makrót. Ha igen, akkor folytassa a kód futtatását, ha nem, hagyja abba a kód futtatását. Ebben a cikkben arról fogok beszélni, hogyan lehet létrehozni egy igen nem üzenet mezőt, mielőtt egy makrót futtatna az Excelben.
  • Hozzon létre egy Üzenetdoboz időzítőt az üzenet doboz automatikus bezárásához bizonyos idő elteltével
  • Az Excel munkafüzet használata közben gyakran használhat VBA parancsfájlt problémák megoldására. És a szkript futtatása közben üzenetdobozok jelennek meg. Bizonyos esetekben azt szeretné, ha néhány megadott üzenetmező automatikusan bezárulna egy bizonyos idő után, nem pedig manuálisan. Ebben a cikkben megmutatjuk, hogyan hozhat létre egy üzenetdoboz időzítőt az üzenetdoboz automatikus bezárásához az Excel bizonyos idő után.

  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése és az adatok megőrzése; Osztott cellák tartalma; Kombinálja az ismétlődő sorokat és az Összeg / Átlagot... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kedvenc és gyorsan beszúrható képletek, Tartományok, diagramok és képek; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Pivot tábla csoportosítás hét száma, a hét napja és egyebek ... Mutassa a Feloldott, Zárt cellákat különböző színekkel; Jelölje ki azokat a cellákat, amelyeknek képlete / neve van...
kte lap 201905
  • 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!
officetab alja
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
could you help me combine multiple of these rules
This comment was minimized by the moderator on the site
is it possible to include the text from a specific cell in the content of the alert message box?
This comment was minimized by the moderator on the site
Thanks for this, it worked great! But I want to know how can I make this work if the cell that I'm monitoring depends on a cell on another Sheet. For example A1 in Sheet 1 changes values if cell A3 in Sheet 2 changes. I have something like this and the pop up message didn't come up, only when manually changed the A1 on Sheet 1.

Thanks!
This comment was minimized by the moderator on the site
In your VB example above a Pop Up Message Box occurs If Cell A1 is Less than D1 which works well however how do I make it also create a Pop up message for cell A2 is Less than D2, A3 is Less than D3 and so on.
This comment was minimized by the moderator on the site
GRACIAS, COMO PUEDO HACER PARA AMPLIARLO A UN RANDO MAS GRANDE ES DECIR O15:O100 Y N15:N100
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations