Jak vyskakovací okno se zprávou, pokud je buňka větší nebo menší než konkrétní hodnota v aplikaci Excel?
Pokud je buňka větší nebo menší než jiná buňka, musím vyskakovací okno se zprávou upozornit v aplikaci Excel. Jak vyřešit tento problém v aplikaci Excel? V tomto článku budu hovořit o některých kódech pro jeho řešení.
Rozbalte okno se zprávou, pokud je hodnota buňky ve sloupci větší nebo menší než v jiné buňce
Rozbalte okno se zprávou, pokud je hodnota buňky v buňce větší nebo menší než v jiné buňce
Rozbalte okno se zprávou, pokud je hodnota buňky ve sloupci větší nebo menší než v jiné buňce
Předpokládejme, že mám konkrétní číslo 100 v buňce A1, nyní, když je číslo zadané ve sloupci D větší než 100 v buňce A1, mělo by být vyskočeno okno se zprávou, které uživateli připomene.
Níže uvedený kód VBA vám může pomoci jej dokončit, proveďte následující kroky:
1. Přejděte na list, který chcete použít.
2. Klikněte pravým tlačítkem na kartu listu a vyberte Zobrazit kód z kontextové nabídky ve vyskakovacím okně Microsoft Visual Basic pro aplikace okno, zkopírujte a vložte následující kód do prázdného okna modulu, viz screenshot:
Kód VBA: vyskakovací okno se zprávou, pokud je hodnota buňky ve sloupci větší nebo menší než buňka
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
Pozor: Ve výše uvedeném kódu, Sheet1 je váš list, který chcete použít; A1 je hodnota buňky, se kterou chcete porovnat; D: D je sloupec, který chcete porovnat s buňkou A1.
![]() | ![]() | ![]() |
3. Poté uložte a zavřete okno s kódem, od nynějška se zobrazí okno se zprávou, pokud ve sloupci D zadáte číslo, které je větší než 100, viz screenshot:
Rozbalte okno se zprávou, pokud je hodnota buňky v buňce větší nebo menší než v jiné buňce
Pokud chcete, aby se okno zprávy objevilo, když je hodnota buňky větší nebo menší než jiná buňka, použijte následující kód:
1. Přejděte na list, který chcete použít.
2. Klikněte pravým tlačítkem na kartu listu a vyberte Zobrazit kód z kontextové nabídky ve vyskakovacím okně Microsoft Visual Basic pro aplikace okno, zkopírujte a vložte následující kód do prázdného okna modulu, viz screenshot:
Kód VBA: vyskakovací okno se zprávou, pokud je hodnota buňky větší nebo menší než buňka
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
Pozor: Ve výše uvedeném kódu, A1 si D1 jsou dvě buňky, se kterými chcete porovnat.
3. Poté uložte a zavřete okno kódu, při zadávání hodnoty, která je menší než hodnota v buňce A1, se zobrazí okno se zprávou, jak je znázorněno níže:
Více relativních článků v okně se zprávou:
- Při otevírání souboru aplikace Excel vytvořte vyskakovací okno se zprávou
- V určitých případech možná budete chtít, aby se vždy zobrazovalo vyskakovací okno se zprávou, které vám připomene, co musíte udělat jako první při otevření konkrétního sešitu, což vám pomůže nezapomenout na to nejdůležitější při každodenní práci. A v tomto článku budu mluvit o tom, jak vytvořit vyskakovací okno se zprávou při otevírání souboru aplikace Excel.
- Vyskakovací okno se zprávou, pokud se hodnota buňky změní v rozsahu v aplikaci Excel
- Někdy si musíte připomenout změny v rozsahu v určitém listu. Vyskakovací okno se zprávou vám udělá laskavost, pokud se hodnota buňky změnila v určitém rozsahu. Můžete toho dosáhnout pomocí metody VBA v tomto článku.
- Vyskakovací okno se zprávou při kliknutí na určitou buňku v aplikaci Excel
- Tento článek si klade za cíl ukázat vám metodu vyskakovacího okna se zprávou po kliknutí na určitou buňku v aplikaci Excel.
- Před spuštěním makra v aplikaci Excel vytvořte schránku Ano Ano
- V aplikaci Excel můžete makro přímo spustit stisknutím klávesy F5 nebo kliknutím na tlačítko Spustit v okně Microsoft Visual Basic pro aplikace. Někdy ale možná budete chtít vytvořit okno se zprávou, které se uživatele zeptá, jestli chce makro spustit. Pokud ano, pokračujte v spouštění kódu, pokud ne, ukončete běh kódu. V tomto článku budu hovořit o tom, jak vytvořit schránku zpráv ano ne před spuštěním makra v aplikaci Excel.
- Vytvořte časovač schránky zpráv, který po určité době automaticky zavře schránku zpráv
- Skript VBA můžete často používat k řešení problémů při používání sešitu aplikace Excel. Během spouštění skriptu se objeví vyskakovací okna. V některých případech byste chtěli, aby se některá určená okna zpráv po určité době zavřela automaticky, než aby byla zavřena ručně. V tomto článku vám ukážeme způsob vytvoření časovače schránky zpráv, který po určité době v aplikaci Excel automaticky zavře okno zpráv.
Nejlepší kancelářské nástroje produktivity
Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%
- Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
- Sloučit buňky / řádky / sloupce a uchovávání údajů; Rozdělit obsah buněk; Zkombinujte duplicitní řádky a součet / průměr... Zabraňte duplicitním buňkám; Porovnat rozsahy...
- Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
- Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
- Oblíbené a rychlé vkládání vzorců„Rozsahy, grafy a obrázky; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
- Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
- Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
- Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
- Seskupování kontingenčních tabulek podle číslo týdne, den v týdnu a další ... Zobrazit odemčené, zamčené buňky různými barvami; Zvýrazněte buňky, které mají vzorec / název...

- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
