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.
- Felugró üzenetdoboz, ha a cella értéke tartományon belül változik az Excelben
- Néha emlékeztetnie kell magát egy bizonyos munkalap egy tartományán belüli változásokra. Tehát egy felugró üzenetmező jót tesz Önnek, ha a cella értéke megváltozott egy bizonyos tartományban. Ebben a cikkben VBA módszerrel érheti el.
- Előugró üzenetdoboz, amikor az Excel bizonyos celláira kattint
- Ennek a cikknek a célja az üzenetmező felbukkanásának módja, amikor az Excel egy bizonyos cellájára kattint.
- 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.
A legjobb irodai termelékenységi eszközök
A Kutools for Excel megoldja a legtöbb problémát, és 80%-kal növeli a termelékenységet
- 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...
- 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!