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

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

Po kliknutí na určitou buňku s kódem VBA se zobrazí okno se zprávou

Karta Office Povolte úpravy a procházení na kartách v Office a vaše práce bude mnohem jednodušší ...
Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%
  • Znovu použít cokoli: Přidejte do svých oblíbených nejpoužívanější nebo nejsložitější vzorce, grafy a cokoli jiného a rychle je v budoucnu znovu použijte.
  • Více než 20 textových funkcí: Extrahovat číslo z textového řetězce; Extrahovat nebo odebrat část textů; Převádějte čísla a měny na anglická slova.
  • Sloučit nástroje: Více sešitů a listů do jednoho; Sloučit více buněk / řádků / sloupců bez ztráty dat; Sloučit duplicitní řádky a součet.
  • Rozdělené nástroje: Rozdělit data do více listů na základě hodnoty; Jeden sešit pro více souborů Excel, PDF nebo CSV; Jeden sloupec na více sloupců.
  • Vložit přeskakování Skryté / filtrované řádky; Count And Sum podle barvy pozadí; Posílejte hromadně osobní e-maily více příjemcům.
  • Super filtr: Vytvořte pokročilá schémata filtrů a použijte je na jakékoli listy; Typ podle týdne, dne, frekvence a dalších; Filtr tučně, vzorce, komentovat ...
  • Více než 300 výkonných funkcí; Funguje s Office 2007-2019 a 365; Podporuje všechny jazyky; Snadné nasazení ve vašem podniku nebo organizaci.

šipka modrá pravá bublina Po kliknutí na určitou buňku s kódem VBA se zobrazí okno se zprávou


Při rozbalování okna se zprávou při kliknutí na určitou buňku v listu postupujte následovně.

1. Stisknutím klávesy Shift otevřete list s určitou buňkou, kterou potřebujete k zobrazení pole se zprávou po kliknutí. Klikněte pravým tlačítkem na kartu listu a vyberte Zobrazit kód z nabídky pravého tlačítka myši.

2. V Microsoft Visual Basic pro aplikace zkopírujte a vložte níže uvedený kód VBA do okna Kód.

Kód VBA: Pop-up okno se zprávou po kliknutí na určitou buňku

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:B10")) Is Nothing Then _
        MsgBox "You have select cell " & Target.Address & vbCrLf & "Please input a number", vbInformation, "Kutools for Excel"
End Sub

Poznámky:

1). V kódu „A1: B10“ znamená, že se po kliknutí na kteroukoli buňku tohoto rozsahu vyskočí okno se zprávou.

2). „Vybrali jste buňku“ a „Zadejte prosím data“ jsou zobrazeným obsahem pole se zprávou.

Změňte je prosím podle potřeby.

3. zmáčkni Další + Q současně zavřete Microsoft Visual Basic pro aplikace okno.

Od této chvíle se po kliknutí na libovolnou buňku rozsahu A1: B10 zobrazí okno se zprávou, jak je uvedeno níže.


šipka modrá pravá bublinaSouvisejí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-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní 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 omezuje stovky kliknutí myší každý den!
officetab dno
Komentáře (4)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Mám více buněk, pro které bych chtěl vyskakovací okno. Můžete tento kód použít pro více krabic?
Tento komentář byl moderátorem webu minimalizován
překlep vybrat vs vybrané v kódu. také možná přepnout na vbNewLine spíše než crlf
Tento komentář byl moderátorem webu minimalizován
Jak mohu zadat více rozsahů? Děkuji mnohokrát
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
Použijte prosím níže uvedený kód. Doufám, že pomůžu. Děkuji za váš komentář.

Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Dim xStrRg As String
xStrRg = "A1:B10,D1:F10" 'Sem přidejte více rozsahů a oddělte je čárkou
If Not Intersect(Target, Range(xStrRg)) Is Nothing Then _
MsgBox "Vybrali jste buňku" & Target.Address & vbCrLf & "Zadejte číslo", vbInformation, "Kutools for Excel"
End Sub
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í