Tento tutoriál ukáže, ako použiť VBA na zvýraznenie bunky alebo rozsahu buniek.
Podmienené formátovanie je jedným zo spôsobov zvýraznenia buniek v programe Excel. VBA môžeme použiť aj na zvýraznenie buniek.
Zvýraznite bunku
Na zvýraznenie bunky vo VBA môžeme použiť jednoduchý postup, ako je uvedené nižšie.
| 123 | Sub HighlightCell ()ActiveCell.Interior.Color = vbRedKoniec pod |
Zvýraznite rozsah buniek
Podobne môžeme vybrať rozsah buniek a zvýrazniť všetky bunky v rozsahu.
| 1234 | Rozsah zvýraznenia ()Rozsah („A1: A10“). VyberteSelection.Interior.Color = vbRedKoniec pod |
Zvýraznite bunky na základe hodnoty bunky
Ak chcete pridať podmienku na zvýraznenie bunky, môžeme použiť príkaz IF na zvýraznenie bunky, ak je hodnota bunky nad určitou hodnotou, v tomto prípade väčšou ako 10.
| 12345 | Sub HightlightCell_1Ak je hodnota ActiveCell.Value> 10, potomActiveCell.Interior.Color = vbRedKoniec AkKoniec pod |
Zvýraznite rozsah buniek na základe hodnoty bunky
Aby sme skontrolovali hodnoty v rozsahu buniek, museli by sme prejsť každou bunkou, zistiť jej hodnotu a potom bunku zodpovedajúcim spôsobom zvýrazniť. V nižšie uvedenom príklade najskôr zistíme, že hodnota uložená v rozsahu je číslo, a potom otestujeme, či je toto číslo väčšie ako 10.
| 12345678910 | PodzvýraznenieRozsahVeľkých buniek ()Dim rng As RangePre každý rozsah v rozsahu („A1: A10“)Ak je IsNumeric (rng.Value) PotomAk rng.Hodnota> 10 Potomrng.Interior.Color = vbRedKoniec AkKoniec AkĎalší rngKoniec pod |
Zvýraznite bunku s podmieneným formátovaním
Na zvýraznenie bunky môžeme tiež použiť VBA na použitie podmieneného formátovania na bunku. V nižšie uvedenom príklade bude podmienené formátovanie použité na každú bunku v rozsahu. Rovnako ako vo vyššie uvedenom príklade, najskôr vyskúšame, či má bunka číselnú hodnotu, a potom použijeme podmienené formátovanie.
| 12345678910 | Sub SetConditionalFormatting ()Dim rng As RangePre každý rozsah v rozsahu („A1: A10“)Ak je IsNumeric (rng.Value) Potomrng.FormatConditions.Add Typ: = xlCellValue, operátor: = xlGreater, Formula1: = "= 10"rng.FormatConditions (1) .Interior.Color = vbRedrng.FormatConditions (1) .StopIfTrue = FalseKoniec AkĎalší rngKoniec pod |
Keď sa výber zmení, zvýraznite bunku
Zvýraznenie bunky môžeme urobiť dynamickým, keď sa ukazovateľ bunky pohybuje v aktuálnom hárku pomocou udalosti Worksheet_Change. V nižšie uvedenom príklade budú odstránené všetky zvýraznenia v hárku (okrem tých, ktoré sa vykonávajú podmieneným formátovaním) a aktívna bunka bude zvýraznená červenou farbou (ColorIndex = 3).
| 1234 | Súkromný čiastkový pracovný hárok_Voľba výberu (ByVal Target As Range)ActiveSheet.Cells.Interior.ColorIndex = xlColorIndexNoneTarget.Interior.ColorIndex = 3Koniec pod |
