V tomto článku vytvoríme makro na použitie podmieneného formátovania vo vybratej oblasti.
Ako ukážkové údaje sme na demonštráciu fungovania makra použili náhodné čísla.
Makro je možné vykonať kliknutím na tlačidlo „Nájsť maximum“ na hárku „Hlavné“.
Logické vysvetlenie
Vytvorili sme makro „ConditionalFormat“ na aplikovanie podmieneného formátovania na vybratú oblasť. Toto makro zvýrazní bunku vo fialovej farbe, ktorá obsahuje maximálnu hodnotu vo vybratej oblasti.
Pred spustením tohto makra si musíte vybrať oblasť, na ktorú chce použiť podmienené formátovanie.
Ako vzorku vybraných údajov sme napríklad vybrali rozsah buniek od B9 do F17.
Pri spustení makra po výbere vzorovej oblasti sa na vybratú oblasť použije podmienené formátovanie a bunka D16, ktorá obsahuje najvyššiu hodnotu (97), bude zvýraznená fialovou farbou.
Teraz vezmite ďalšiu vzorku. Ako druhú oblasť vzorky sme vybrali rozsah od bunky B10 do F13.
Po výbere druhej ukážkovej oblasti spustíte makro kliknutím na tlačidlo „Nájsť maximum“. Na vybranú oblasť bude aplikované podmienené formátovanie a bunka C11 bude zvýraznená fialovou farbou, pretože obsahuje maximálnu hodnotu (92) vo vybranej oblasti.
Po spustení makra pre dve rôzne vzorky sa na obidve použije podmienené formátovanie. V údajoch vzorky budú bunky C11 a D16 zvýraznené fialovou farbou, pretože predstavujú maximálne hodnoty v príslušných vzorkách.
Ak sa zmenia hodnoty v ktorejkoľvek zo vzoriek a jedna z novo vložených hodnôt je najvyššia hodnota, bunka s touto konkrétnou hodnotou sa zvýrazní.
Vysvetlenie kódu
Selection.FormatConditions.Delete
Vyššie uvedený kód sa používa na odstránenie akéhokoľvek podmieneného formátovania použitého na vybraté údaje.
Selection.FormatConditions.Add Typ: = xlExpression, Formula1: = _
"=" & Selection.Cells (1) .Address (False, False) & "= MAX (" & Selection.Address & ")"
Vyššie uvedený kód sa používa na pridanie nového podmieneného formátovania. Typ určuje, že výraz sa použije na použitie formátovania podmienky. Vzorec výrazu je definovaný vo vzorci 1.
Selekcia. Bunky (1). Adresa (falošná, falošná)
Vyššie uvedený kód slúži na odkazovanie na adresu prvej bunky vo výbere.
"=" & Selection.Cells (1) .Address (False, False) & "= MAX (" & Selection.Address & ")"
Vyššie uvedený kód slúži na porovnanie hodnoty prvej vybratej bunky s maximálnou hodnotou výberu.
Selection.FormatConditions (1) .Interior.ColorIndex = 39
Vyššie uvedený kód sa používa na priradenie fialovej farby k bunke, ktorá spĺňa podmienku formátovania.
Pri kódovaní postupujte podľa nižšie uvedených pokynov
Sub ConditionalFormat () S výberom „Vymazať akékoľvek predchádzajúce podmienené formátovanie .FormatConditions.Delete“ pridať podmienené formátovanie do vybratej bunky .FormatConditions.Add Typ: = xlExpression, Formula1: = _ "=" & Selection.Cells (1) .Address (False , False) & "= MAX (" & Selection.Address & ")" "Priradenie fialovej farby pre podmienené formátovanie .FormatConditions (1) .Interior.ColorIndex = 39 End with End Sub
Ak sa vám tento blog páčil, zdieľajte ho so svojimi priateľmi na Facebooku. Môžete nás tiež sledovať na Twitteri a Facebooku.
Budeme radi, ak sa nám ozvete, dajte nám vedieť, ako môžeme zlepšiť našu prácu a zlepšiť ju pre vás. Napíšte nám na emailovú stránku