Ta vadnica bo pokazala, kako z uporabo VBA označiti celico ali obseg celic.
Pogojno oblikovanje je eden od načinov označevanja celic v Excelu. Za označevanje celic lahko uporabimo tudi VBA.
Označite celico
Če želite označiti celico v VBA, lahko uporabimo preprost postopek, kot je prikazano spodaj.
| 123 | Sub HighlightCell ()ActiveCell.Interior.Color = vbRedEnd Sub |
Označite obseg celic
Podobno lahko izberemo obseg celic in označimo vse celice v obsegu.
| 1234 | Sub HighlightRange ()Razpon ("A1: A10"). IzberiteSelection.Interior.Color = vbRedEnd Sub |
Označite celice glede na vrednost celice
Če želimo dodati pogoj za označevanje celice, lahko z stavkom IF označimo celico, če je vrednost celice nad določeno vrednostjo, v tem primeru večjo od 10.
| 12345 | Sub HightlightCell_1Če je ActiveCell.Value> 10, potemActiveCell.Interior.Color = vbRedKonec ČeEnd Sub |
Označite obseg celic glede na vrednost celice
Če želimo preveriti vrednosti v obsegu celic, bi morali prečkati vsako celico, ugotoviti njeno vrednost in nato celico ustrezno označiti. V spodnjem primeru bomo najprej ugotovili, da je vrednost v obsegu številka, nato pa preizkusili, ali je to število večje od 10.
| 12345678910 | Sub HighlightRangeOfCells ()Dim rng As RangeZa vsak zvok v dosegu ("A1: A10")Če je IsNumeric (rng.Value) PotemČe je rng.Value> 10 Potemrng.Interior.Color = vbRedKonec ČeKonec ČeNaslednji rngEnd Sub |
Označite celico s pogojnim oblikovanjem
VBA lahko uporabimo tudi za pogojno oblikovanje celice, da označimo celico. V spodnjem primeru bo pogojno oblikovanje uporabljeno za vsako celico v obsegu. Tako kot v zgornjem primeru najprej preizkusimo, ali ima celica številsko vrednost, nato pa uporabimo pogojno oblikovanje.
| 12345678910 | PodnaborConditionalFormatting ()Dim rng As RangeZa vsak zvok v dosegu ("A1: A10")Če je IsNumeric (rng.Value) Potemrng.FormatConditions.Add Type: = xlCellValue, Operator: = xlGreater, Formula1: = "= 10"rng.FormatConditions (1) .Interior.Color = vbRedrng.FormatConditions (1) .StopIfTrue = FalseKonec ČeNaslednji rngEnd Sub |
Ko se izbira spremeni, označite celico
Označevanje celice lahko naredimo dinamično, ko se kazalec celice premakne na trenutnem delovnem listu z uporabo dogodka Worksheet_Change. V spodnjem primeru bodo vse označbe na listu odstranjene (razen tistih s pogojnim oblikovanjem), aktivna celica pa bo označena z rdečo barvo (ColorIndex = 3).
| 1234 | Zasebni pod -delovni list_SelectionChange (cilj ByVal kot obseg)ActiveSheet.Cells.Interior.ColorIndex = xlColorIndexNoneTarget.Interior.ColorIndex = 3End Sub |
