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 Ukázkové 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ší nástroje pro produktivitu v kanceláři
Rozšiřte své excelentní dovednosti pomocí Kutools for Excela 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...
Office Tab Přináší rozhraní s kartami do Office 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!
