V tomto článku vytvoříme makro pro použití podmíněného formátování ve vybrané oblasti.
K ukázce fungování makra jsme použili náhodná čísla jako ukázková data.
Makro lze spustit kliknutím na tlačítko „Najít maximum“ na listu „Hlavní“.
Logické vysvětlení
Vytvořili jsme makro „ConditionalFormat“, které použije podmíněné formátování na vybranou oblast. Toto makro zvýrazní buňku ve fialové barvě, která obsahuje maximální hodnotu ve vybrané oblasti.
Před spuštěním tohoto makra je třeba vybrat oblast, na kterou chce použít podmíněné formátování.
Jako vzorek vybraných dat jsme například vybrali rozsah buněk od B9 do F17.
Při spuštění makra po výběru ukázkové oblasti se na vybranou oblast použije podmíněné formátování a buňka D16, která obsahuje nejvyšší hodnotu (97), bude zvýrazněna fialovou barvou.
Nyní si vezměte další vzorek. Jako druhou oblast vzorku jsme vybrali rozsah od buňky B10 do F13.
Po výběru druhé ukázkové oblasti spustíte makro kliknutím na tlačítko „Najít maximum“. Na vybranou oblast bude aplikováno podmíněné formátování a buňka C11 bude zvýrazněna fialovou barvou, protože obsahuje maximální hodnotu (92) ve vybrané oblasti.
Po spuštění makra pro dva různé vzorky se na oba použije podmíněné formátování. V datech vzorku budou buňky C11 a D16 zvýrazněny fialovou barvou, protože představují maximální hodnoty v příslušných vzorcích.
Pokud se změní hodnoty v kterémkoli ze vzorků a jedna z nově vložených hodnot je nejvyšší, pak bude buňka s touto konkrétní hodnotou zvýrazněna.
Vysvětlení kódu
Selection.FormatConditions.Delete
Výše uvedený kód slouží k odstranění jakéhokoli podmíněného formátování aplikovaného na vybraná data.
Selection.FormatConditions.Add Typ: = xlExpression, Formula1: = _
"=" & Selection.Cells (1) .Address (False, False) & "= MAX (" & Selection.Address & ")"
Výše uvedený kód se používá k přidání nového podmíněného formátování. Typ určuje, že se výraz použije k použití formátování podmínky. Vzorec výrazu je definován ve vzorci 1.
Selection.Cells (1) .Address (False, False)
Výše uvedený kód slouží k odkazování na adresu první buňky ve výběru.
"=" & Selection.Cells (1) .Address (False, False) & "= MAX (" & Selection.Address & ")"
Výše uvedený kód slouží k porovnání hodnoty první vybrané buňky s maximální hodnotou výběru.
Selection.FormatConditions (1) .Interior.ColorIndex = 39
Výše uvedený kód se používá k přiřazení fialové barvy buňce, která splňuje podmínku formátování.
Pro kód prosím postupujte níže
Sub ConditionalFormat () S výběrem 'Odstranit jakékoli předchozí podmíněné formátování .FormatConditions.Delete' přidat podmíněné formátování do vybrané buňky .FormatConditions.Add Typ: = xlExpression, Formula1: = _ "=" & Selection.Cells (1) .Address (False , False) & "= MAX (" & Selection.Address & ")" 'Přiřazení fialové barvy pro podmíněné formátování .FormatConditions (1) .Interior.ColorIndex = 39 End With End Sub
Pokud se vám tento blog líbil, sdílejte ho se svými přáteli na Facebooku. Také nás můžete sledovat na Twitteru a Facebooku.
Rádi bychom od vás slyšeli, dejte nám vědět, jak můžeme zlepšit naši práci a zlepšit ji pro vás. Napište nám na e -mail