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

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:

schránka se zprávou, pokud je hodnota buňky 1

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.

schránka se zprávou, pokud je hodnota buňky 1

Poznámky:

1. Pokud hodnota buňky nesplňuje kritéria, okno se zprávou se neobjeví.
2. Ve výše uvedeném kódu můžete podle potřeby změnit odkaz na buňku a hodnotu.
3. Může zobrazit pouze jeden odpovídající odkaz na buňku, pokud existuje více výsledků.

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ě.

Před aplikací Kutools pro Excel, Prosím nejprve si jej stáhněte a nainstalujte.

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 .

schránka se zprávou, pokud je hodnota buňky 1

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.

schránka se zprávou, pokud je hodnota buňky 1

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

schránka se zprávou, pokud je hodnota buňky 1

  Pokud chcete mít bezplatnou zkušební verzi (

30
-den) této utility, kliknutím jej stáhněte, a poté přejděte k použití operace podle výše uvedených kroků.

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


Související články:


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%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • 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 bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... 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ší ...
  • 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...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

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!
officetab dno
Komentáře (9)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Tento skript funguje dobře, když byla buňka zadána ručně. Ale když se pokusím zkopírovat celý řádek z druhého řádku a vložit jej na nový řádek, vyskakovací okno se stále objeví, i když buňka na novém řádku neobsahovala klíčové slovo. Nějaký způsob, jak se toho zbavit? Prosím o radu. dík
Tento komentář byl moderátorem webu minimalizován
Milé TANGO, děkujeme za Váš komentář! Aktualizovali jsme skript VBA, abychom se zbavili problému, který jste zmínili výše. Doufám, že vám nový kód usnadní práci. Pokud máte jakýkoli problém, neváhejte nás kontaktovat! Ještě jednou děkuji za váš komentář!
Tento komentář byl moderátorem webu minimalizován
prosím potřebuji vaši pomoc, dejte mi svou e-mailovou adresu Linda mine is mineralsuganda256@gmail.com
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
Omlouvám se, že odpovídám tak pozdě. Kontaktujte mě prosím na zxm@addin99.com.
Tento komentář byl moderátorem webu minimalizován
Existuje způsob, jak aktualizovat 2 hodnoty ve stejném rozsahu? ex "50" nebo "100"?
Tento komentář byl moderátorem webu minimalizován
Také jsem zkusil duplikovat tento kód a změnit na jiný rozsah, kde se moje data opakují, ale zdá se, že funkci "Pracovní list - změna" lze použít pouze jednou. Je to pravda?
Tento komentář byl moderátorem webu minimalizován
Existuje způsob, jak aktualizovat 2 hodnoty ve stejném rozsahu? ex "50" nebo "100"?
Tento komentář byl moderátorem webu minimalizován
Ahoj Rajeshi,
Níže uvedený kód vám může pomoci vyřešit problém, zkuste to prosím. Děkuji!

Soukromá dílčí tabulka_Změna (ByVal Target As Range)

„Aktualizace: 2020. 8. 21

Dim xCell As Range, Rg As Range

On Error Resume Next

Nastavit Rg = Application.Intersect(Target, Range("A1:C7"))

If Not Rg Is Nothing Then

Pro každý xCell v Rg

Pokud xCell.Value = "50" nebo xCell.Value = "100" Pak

MsgBox "host zadán do buňky" & xCell.Address, vbInformation, "Kutools for Excel"

Konec Sub

End If

další

End If

End Sub
Tento komentář byl moderátorem webu minimalizován
Ahoj Crystal, obě podmínky fungují. Děkuji mnohokrát DíkyRajesh
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í

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL