Questo tutorial dimostrerà come utilizzare VBA per evidenziare una cella o un intervallo di celle.
La formattazione condizionale è un modo per evidenziare le celle in Excel. Possiamo anche usare VBA per eseguire l'evidenziazione delle celle.
Evidenzia una cella
Per evidenziare una cella in VBA, possiamo utilizzare la semplice procedura come mostrato di seguito.
| 123 | Sotto Evidenzia Cella()ActiveCell.Interior.Color = vbRedFine sottotitolo |
Evidenzia un intervallo di celle
Allo stesso modo, possiamo selezionare un intervallo di celle ed evidenziare tutte le celle nell'intervallo.
| 1234 | Sub HighlightRange()Intervallo ("A1: A10"). SelezionaSelection.Interior.Color = vbRedFine sottotitolo |
Evidenzia celle in base al valore della cella
Per aggiungere una condizione per evidenziare una cella, possiamo utilizzare un'istruzione IF per evidenziare la cella se il valore della cella è superiore a un certo valore, in questo caso maggiore di 10.
| 12345 | Sotto Evidenziazione Cell_1Se ActiveCell.Value > 10 alloraActiveCell.Interior.Color = vbRedFinisci seFine sottotitolo |
Evidenzia un intervallo di celle in base al valore della cella
Per controllare i valori in un intervallo di celle, dovremmo scorrere ogni cella, stabilirne il valore e quindi evidenziare la cella di conseguenza. Nell'esempio seguente, stabiliremo prima che il valore contenuto nell'intervallo sia un numero, quindi testeremo per vedere se quel numero è maggiore di 10.
| 12345678910 | Sub HighlightRangeOfCells()Dim rng come intervalloPer ogni anello nell'intervallo ("A1: A10")If IsNumeric(rng.Value) ThenSe rng.Value > 10 Allorarng.Interior.Color = vbRedFinisci seFinisci serng successivoFine sottotitolo |
Evidenzia una cella con formattazione condizionale
Possiamo anche usare VBA per applicare la formattazione condizionale a una cella per evidenziare la cella. Nell'esempio seguente, la formattazione condizionale verrà applicata a ciascuna cella dell'intervallo. Come nell'esempio sopra, testiamo prima che la cella contenga un valore numerico, quindi applichiamo la formattazione condizionale.
| 12345678910 | Sub SetConditionalFormatting()Dim rng come intervalloPer ogni anello nell'intervallo ("A1: A10")If IsNumeric(rng.Value) Thenrng.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, Formula1:="=10"rng.FormatConditions(1).Interior.Color = vbRedrng.FormatConditions(1).StopIfTrue = FalseFinisci serng successivoFine sottotitolo |
Evidenzia una cella quando la selezione cambia
Possiamo rendere dinamica l'evidenziazione di una cella quando il puntatore della cella si sposta nel foglio di lavoro corrente utilizzando l'evento Worksheet_Change. Nell'esempio seguente, tutte le evidenziazioni nel foglio verranno rimosse (tranne quelle eseguite dalla formattazione condizionale) e la cella attiva verrà evidenziata in rosso (ColorIndex = 3).
| 1234 | Foglio di lavoro secondario privato_SelectionChange (ByVal Target As Range)ActiveSheet.Cells.Interior.ColorIndex = xlColorIndexNoneTarget.Interior.ColorIndex = 3Fine sottotitolo |
