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

Jak spustit makro na základě hodnoty vybrané z rozevíracího seznamu v aplikaci Excel?

Spouštění maker kliknutím na příkazové tlačítko je v aplikaci Excel běžným úkolem, ale pokusili jste se někdy spustit kódy maker na základě hodnoty vybrané z rozevíracího seznamu? To znamená, že když vyberete jednu položku z rozevíracího seznamu, konkrétní makro se spustí najednou. Tento článek představí užitečný kód pro řešení této úlohy.

Spusťte makro na základě hodnoty vybrané z rozevíracího seznamu s kódem VBA


šipka modrá pravá bublina Spusťte makro na základě hodnoty vybrané z rozevíracího seznamu s kódem VBA

Neexistuje žádný přímý způsob, jak tento úkol dokončit, ale následující kód VBA vám může pomoci, udělejte to takto:

1. Nejprve podle potřeby vytvořte rozevírací seznam, viz screenshot:

makro pro spuštění dokumentu z rozevíracího seznamu 1

2. Poté klepněte pravým tlačítkem na kartu list obsahující rozevírací seznam, který chcete použít, a poté vyberte Zobrazit kód z kontextového menu a v otevřeném Microsoft Visual Basic pro aplikace okno, zkopírujte a vložte následující kód do prázdného modulu:

Kód VBA: Spustit makro na základě hodnoty vybrané z rozevíracího seznamu:

Private Sub Worksheet_Change(ByVal Target As Range)
	If Not Intersect(Target, Range("E1")) Is Nothing Then
	    Select Case Range("E1")
	        Case "Insert Blank rows": Macro1
	        Case "Hide All Sheets": Macro2
            Case "Convert to Date": Macro3
	    End Select
	End If
	End Sub

makro pro spuštění dokumentu z rozevíracího seznamu 2

Poznámka: Ve výše uvedeném kódu, E1 je buňka obsahuje rozevírací seznam, změňte názvy maker a hodnoty rozevíracího seznamu podle svých potřeb.

3. A poté uložte a zavřete toto okno s kódem, nyní, když vyberete z rozevíracího seznamu položku Vložit prázdné řádky, spustí se Makro1 atd.…


Související články:

Jak spustit makro při změně hodnoty buňky v aplikaci Excel?

Jak spustit makro na základě hodnoty buňky v aplikaci Excel?

Jak spustit makro automaticky před tiskem v aplikaci Excel?

Jak spustit makro kliknutím na hypertextové odkazy v aplikaci Excel?

Jak spustit makro při výběru listu ze sešitu?


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 (6)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
efectivamente funciona pero quiero aplicarlo en varias celdas, que variable debo cambiar?
Tento komentář byl moderátorem webu minimalizován
Existuje způsob, jak k tomu v Accessu použít kód VBA? dík
Tento komentář byl moderátorem webu minimalizován
Dobrý den!

Aplicarlo me sale un error de compilación: La declaración del procedimiento no coincided con la deskripción del evento o el procedimiento que tiene el mismo nombre. Co jsi řekl? que debo cambiar/arreglar? Gracias
Tento komentář byl moderátorem webu minimalizován
Dobré ráno. Byli byste schopni udělat makro z rozbalovací nabídky pro další: Chcete-li spustit makro a uložit samostatné listy pro každou položku z rozbalovací nabídky? Ve vašem případě by to mělo vypadat takto:
1. Spustíte makro a poté máte oddělený list s hodnotami pro "Vložit prázdné řádky" uložený v určené složce
2. Oddělený list s hodnotami pro "Skrýt všechny listy:" uložený v určené složce
3. Samostatný list s hodnotami pro „Převést na datum“ uložený v určené složce.
4. Makro je nyní hotovo


Především jsem schopen toto vše nastavit kromě toho, že makro automaticky změní výběr z rozbalovací nabídky?


Díky


Ivan
Tento komentář byl moderátorem webu minimalizován


PRVNÍ KÓD FUNGUJE PERFEKTNĚSoukromá dílčí tabulka_Změna (ByVal Target As Range)
If Not Intersect(Target, Range("D1")) is Nothing Then
Vyberte rozsah případu ("D1")
         Případ "0.5": Polovina
         Případ "1": Jeden
         Případ "1.25": OneTwentyFive
Konec Vybrat
End If
End Sub
DRUHÝ KÓD NEFUNGUJE (opravte prosím níže)
Změna privátní podskupiny (ByVal Target As Range)
If Not Intersect(Target, Range("D2")) is Nothing Then
Vyberte rozsah případu ("D2")
         Případ "9.53": devět bodů pět pět tři
Konec Vybrat
End If
End Sub
Tento komentář byl moderátorem webu minimalizován
A co jeśli potrzebuję aby po uruchomieniu makra wszystkie listy rozwijane ustawiły się na jeden z wyborów z listů? W sumie odwrotnie do tego co jest w poście. Czy istnieje na to łatwiejszy sposób?
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