Ovaj će vodič pokazati kako koristiti VBA za označavanje ćelije ili raspona ćelija.
Uvjetno oblikovanje jedan je od načina isticanja ćelija u Excelu. Također možemo upotrijebiti VBA za izvođenje isticanja ćelija.
Označite ćeliju
Za označavanje ćelije u VBA -i možemo upotrijebiti jednostavan postupak kako je prikazano u nastavku.
| 123 | Sub HighlightCell ()ActiveCell.Interior.Color = vbRedKraj podm |
Označite raspon ćelija
Slično, možemo odabrati raspon ćelija i označiti sve ćelije u rasponu.
| 1234 | Sub HighlightRange ()Raspon ("A1: A10"). OdaberiteOdabir.Interijer.Boja = vbRedKraj podm |
Označite ćelije na temelju vrijednosti ćelije
Da bismo dodali uvjet za označavanje ćelije, možemo upotrijebiti izraz IF za označavanje ćelije ako je vrijednost ćelije iznad određene vrijednosti, u ovom slučaju veće od 10.
| 12345 | Sub HightlightCell_1Ako je ActiveCell.Value> 10 tadaActiveCell.Interior.Color = vbRedZavrši akoKraj podm |
Označite raspon ćelija na temelju vrijednosti ćelije
Da bismo provjerili vrijednosti u rasponu ćelija, morali bismo proći kroz svaku ćeliju, ustanoviti njezinu vrijednost, a zatim prema tome označiti ćeliju. U donjem primjeru prvo ćemo ustanoviti da je vrijednost koja se drži u rasponu broj, a zatim ćemo provjeriti je li taj broj veći od 10.
| 12345678910 | Sub HighlightRangeOfCells ()Dim rng As RangeZa svaki rng u rasponu ("A1: A10")Ako je IsNumeric (rng.Value) TadaAko je rng.Vrijednost> 10 Zatimrng.Interijer.Boja = vbRedZavrši akoZavrši akoSljedeći rngKraj podm |
Označite ćeliju uz uvjetno oblikovanje
Također možemo upotrijebiti VBA za primjenu uvjetnog oblikovanja na ćeliju za označavanje ćelije. U donjem primjeru uvjetno oblikovanje primijenit će se na svaku ćeliju u rasponu. Kao u gornjem primjeru, prvo testiramo ima li ćelija numeričku vrijednost, a zatim primjenjujemo uvjetno oblikovanje.
| 12345678910 | PodskupConditionalFormatting ()Dim rng As RangeZa svaki rng u rasponu ("A1: A10")Ako je IsNumeric (rng.Value) Tadarng.FormatConditions.Add Type: = xlCellValue, Operator: = xlGreater, Formula1: = "= 10"rng.FormatConditions (1) .Interiors.Color = vbRedrng.FormatConditions (1) .StopIfTrue = NetačnoZavrši akoSljedeći rngKraj podm |
Označite ćeliju kada se odabir promijeni
Isticanje ćelije možemo učiniti dinamičkim kada se pokazivač ćelije pomiče na trenutnom radnom listu pomoću događaja Worksheet_Change. U donjem primjeru uklonit će se sva isticanja na listu (osim onih koja su izvedena uvjetnim oblikovanjem), a aktivna ćelija će biti označena crvenom bojom (ColorIndex = 3).
| 1234 | Privatni podradni list_SelectionChange (ByVal cilj kao raspon)ActiveSheet.Cells.Interior.ColorIndex = xlColorIndexNoneTarget.Interior.ColorIndex = 3Kraj podm |
