Tento tutoriál předvede, jak pomocí VBA zvýraznit buňku nebo rozsah buněk.
Podmíněné formátování je jedním ze způsobů zvýraznění buněk v aplikaci Excel. Můžeme také použít VBA k provádění zvýraznění buněk.
Zvýrazněte buňku
Chcete -li zvýraznit buňku ve VBA, můžeme použít jednoduchý postup, jak je uvedeno níže.
| 123 | Sub HighlightCell ()ActiveCell.Interior.Color = vbRedEnd Sub |
Zvýrazněte rozsah buněk
Podobně můžeme vybrat rozsah buněk a zvýraznit všechny buňky v rozsahu.
| 1234 | Sub HighlightRange ()Rozsah („A1: A10“). VyberteSelection.Interior.Color = vbRedEnd Sub |
Zvýrazněte buňky na základě hodnoty buňky
Chcete -li přidat podmínku pro zvýraznění buňky, můžeme použít příkaz IF pro zvýraznění buňky, pokud je hodnota buňky nad určitou hodnotou, v tomto případě větší než 10.
| 12345 | Sub HightlightCell_1Pokud ActiveCell.Value> 10, pakActiveCell.Interior.Color = vbRedKonec IfEnd Sub |
Zvýrazněte rozsah buněk na základě hodnoty buňky
Abychom zkontrolovali hodnoty v rozsahu buněk, potřebovali bychom projít každou buňku, určit její hodnotu a podle toho buňku zvýraznit. V níže uvedeném příkladu nejprve zjistíme, že hodnota v rozsahu je číslo, a poté otestujeme, zda je toto číslo větší než 10.
| 12345678910 | Sub HighlightRangeOfCells ()Dim rng As RangePro každý rozsah v rozsahu („A1: A10“)If IsNumeric (rng.Value) ThenPokud rng. Hodnota> 10 Pakrng.Interior.Color = vbRedKonec IfKonec IfDalší rngEnd Sub |
Zvýrazněte buňku s podmíněným formátováním
Můžeme také použít VBA k použití podmíněného formátování na buňku pro zvýraznění buňky. V níže uvedeném příkladu bude na každou buňku v rozsahu použito podmíněné formátování. Stejně jako ve výše uvedeném příkladu nejprve otestujeme, zda buňka obsahuje číselnou hodnotu, a poté použijeme podmíněné formátování.
| 12345678910 | Dílčí sadaConditionalFormatting ()Dim rng As RangePro každý rozsah v rozsahu („A1: A10“)If IsNumeric (rng.Value) Thenrng.FormatConditions.Add Typ: = xlCellValue, Operátor: = xlGreater, Formula1: = "= 10"rng.FormatConditions (1) .Interior.Color = vbRedrng.FormatConditions (1) .StopIfTrue = FalseKonec IfDalší rngEnd Sub |
Když se výběr změní, zvýrazněte buňku
Zvýraznění buňky můžeme provést dynamicky, když se ukazatel buňky přesune v aktuálním listu pomocí události Worksheet_Change. V níže uvedeném příkladu budou odstraněna všechna zvýraznění v listu (kromě těch, která byla provedena podmíněným formátováním) a aktivní buňka bude zvýrazněna červeně (ColorIndex = 3).
| 1234 | Soukromý dílčí list_Volba výběru (cíl podle rozsahu jako rozsah)ActiveSheet.Cells.Interior.ColorIndex = xlColorIndexNoneTarget.Interior.ColorIndex = 3End Sub |
