Jak spustit makro na základě hodnoty buňky v aplikaci Excel?
Předpokládejme, že v mém sešitu mám více kódů maker a teď chci tyto kódy spustit na základě hodnoty buňky. V tomto článku budu hovořit o několika situacích, které můžete při používání aplikace Excel utrpět při každodenní práci.
Spusťte nebo spusťte makro, pokud se hodnota buňky rovná konkrétnímu textu s kódem VBA
Spusťte nebo spusťte makro, pokud je hodnota buňky větší nebo menší než konkrétní hodnota s kódem VBA
Například pokud je hodnota v buňce A1 mezi 10 a 50, spusťte makro1 a pokud je hodnota větší než 50, spusťte makro2. K vyřešení této úlohy v aplikaci Excel použijte následující kód VBA.
1. Klikněte pravým tlačítkem na kartu listu, kterou chcete spustit na základě hodnoty buňky, 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, pokud je hodnota buňky větší nebo menší než:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Cells.Count > 1 Then Exit Sub
If IsNumeric(Target) And Target.Address = "$A$1" Then
Select Case Target.Value
Case 10 To 50: Macro1
Case Is > 50: Macro2
End Select
End If
End Sub
Poznámka: Ve výše uvedeném kódu:
A1 je buňka, která obsahuje konkrétní hodnotu, na které chcete spustit makro;
Případ 10 až 50: Makro: to znamená, že pokud je hodnota mezi 10 a 50, spusťte Macro1;
Případ je> 50: Makro2: to znamená, že pokud je hodnota větší než 50, spusťte Macro2.
Změňte prosím tyto názvy maker a kritéria podle svých potřeb a můžete také přidat další kritéria podle Pouzdro skripty.
2. Poté uložte a zavřete toto okno s kódem, nyní, když je hodnota, kterou zadáte, mezi 10 a 50 v buňce A1, spustí se makro 1, pokud je zadaná hodnota větší než 50, provede se makro 2.
Spusťte nebo spusťte makro, pokud se hodnota buňky rovná konkrétnímu textu s kódem VBA
Chcete-li například spustit makro na základě konkrétního textu v buňce, spustit makro1, pokud je zadán text „Odstranit“, a spustit makro2, pokud je zadán text „Vložit“. Následující kód vám může udělat laskavost.
1. Klikněte pravým tlačítkem na list, který chcete provést na základě hodnoty buňky, a poté zvolte 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: Spusťte makro, pokud je hodnota buňky konkrétní text
Sub worksheet_change(ByVal target As Range)
Set target = Range("A1")
If target.Value = "Delete" Then
Call Macro1
End If
If target.Value = "Insert" Then
Call Macro2
End If
End Sub
Poznámka: Ve výše uvedeném kódu „Vymazat"A"Vložit„Jsou texty buněk, na kterých chcete spouštět makra, a Macro1 a Macro2 jsou makra, která chcete spustit na základě textu. Změňte je prosím podle svých potřeb.
2. Poté tento kód uložte a zavřete okno. Nyní, když v buňce A1 zadáte text „Odstranit“, spustí se makro1, pokud se zadá text „Vložit“, provede se makro2.
Související články:
Jak spustit makro při změně hodnoty buňky v aplikaci Excel?
Jak spustit makro automaticky před tiskem v aplikaci Excel?
Jak spustit makro na základě hodnoty vybrané z rozevíracího seznamu 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.

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!



















