Jak vyskakovací okno se zprávou, pokud se hodnota buňky v aplikaci Excel rovná „X“?

Vyskakovací okno se zprávou hodně pomáhá při hledání určitého obsahu ve stanoveném rozsahu. Například nacházíte hodnotu buňky, která se rovná 50 v rozsahu A1: C7, a potřebujete vyskakovací okno se zprávou, které vám řekne, zda hodnota buňky existuje či nikoli. Následující dvě metody vám mohou pomoci.

Rozbalte okno se zprávou, pokud se hodnota buňky rovná „X“ s kódem VBA
Snadno vyskakovací okno se zprávou, pokud se hodnota buňky rovná „X“ pomocí Kutools pro Excel

Rozbalte okno se zprávou, pokud se hodnota buňky rovná „X“ s kódem VBA

Následující kód VBA vám pomůže vytvořit vyskakovací okno se zprávou, pokud v zadaném rozsahu existuje určitá hodnota. Postupujte prosím následovně.

1. V listu musíte zkontrolovat hodnoty ve specifikovaném rozsahu, kliknout pravým tlačítkem na název záložky v pruhu záložek listu a poté kliknout Zobrazit kód z nabídky pravého tlačítka myši. Viz screenshot:

2. V Microsoft Visual Basic pro aplikace zkopírujte a vložte následující kód VBA do okna Kód.

Kód VBA: vyskakovací okno se zprávou, pokud se hodnota buňky rovná „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. lis Další + Q současně zavřete Microsoft Visual Basic pro aplikace okno a vrátit se zpět do listu.

Od této chvíle, když se hodnoty buněk změní v rozsahu A1: C7 a hodnota buňky se bude rovnat „50“, zobrazí se okno se zprávou, jak je uvedeno níže.

Kromě toho můžete jen vybrat rozsah, aby se vyskakovalo okno se zprávou, pokud hodnota buňky existuje.

Poznámky:

Rozbalte okno se zprávou, pokud se hodnota buňky rovná „X“ s programem Kutools pro Excel

Projekt Vyberte konkrétní buňky užitečnost Kutools pro Excel vám také může pomoci tento problém vyřešit. Postupujte prosím následovně.

1. Vyberte rozsah, který chcete vyhledat, pokud existuje hodnota buňky, a klepněte na Kutools > vybrat > Vyberte konkrétní buňky. 

2. V Vyberte konkrétní buňky dialogové okno vyberte Buňka možnost v Typ výběru a vyberte rovná Zaprvé Specifický typ rozevírací seznam a do dalšího textového pole zadejte hodnotu buňky a nakonec klikněte na OK .

Pokud hodnota buňky existuje v zadaném rozsahu, zobrazí se následující okno se zprávou, klikněte na OK tlačítko, buňka bude vybrána.

V opačném případě se zobrazí okno se zprávou, jak je uvedeno níže.

Snadno vyskakovací okno se zprávou, pokud se hodnota buňky rovná „X“ pomocí Kutools pro Excel

Související články:

• Jak odstranit celý řádek, pokud buňka obsahuje nulu v aplikaci Excel?
• Jak počítat buňky se specifickým textem při výběru v aplikaci Excel?

Nejlepší nástroje pro produktivitu v kanceláři

🤖	Kutools AI asistent: Revoluční analýza dat založená na: Inteligentní provedení   |  Generovat kód  |  Vytvořte vlastní vzorce  |  Analyzujte data a generujte grafy  |  Vyvolejte funkce Kutools...
	Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
	Super vyhledávání: Více kritérií VLookup  |   VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
	Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
	Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
	Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar   |  Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky   |  Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
	Top 15 sad nástrojů:  12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

Čtěte více... Stažení zdarma...

---

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

• 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!

Čtěte více... Stažení zdarma...