Note: The other languages of the website are Google-translated. Back to English

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

Poznámka: 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

Poznámka: Ve výše uvedeném kódu, A1 a 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.
  • 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.


  • 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...
karta kte 201905
  • 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 omezuje stovky kliknutí myší každý den!
officetab dno
Komentáře (3)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
GRACIAS, COMO PUEDO HACER PARA AMPLIARLO A UN RANDO MAS GRANDE ES DECIR O15:O100 Y N15:N100
Tento komentář byl moderátorem webu minimalizován
Ve vašem příkladu VB výše se objeví vyskakovací okno se zprávou, pokud je buňka A1 menší než D1, což funguje dobře, ale jak to udělám, vytvořím také vyskakovací zprávu pro buňku A2 je menší než D2, A3 je menší než D3 a tak dále.
Tento komentář byl moderátorem webu minimalizován
Díky za to, fungovalo to skvěle! Ale chci vědět, jak to mohu udělat, aby to fungovalo, pokud buňka, kterou sleduji, závisí na buňce na jiném listu. Například A1 v Listu 1 změní hodnoty, pokud se změní buňka A3 v Listu 2. Mám něco takového a vyskakovací zpráva se neobjevila, pouze když jsem ručně změnil A1 na listu 1.

Díky!
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění