Di seguito vedremo un programma in Excel VBA che colora il valore massimo di a gamma dinamica.
Situazione:
Ogni volta che aggiungiamo un numero e facciamo clic sul pulsante di comando, vogliamo che Excel VBA colori il valore massimo di questi numeri.
Posiziona un pulsante di comando sul foglio di lavoro e aggiungi le seguenti righe di codice:
1. Innanzitutto, dichiariamo una variabile e due oggetti Range. Una variabile di tipo Double la chiamiamo massima. Chiamiamo gli oggetti Range rng e cell.
Dim massimo As Double, rng As Range, cella As Range
2. Aggiungiamo la linea che cambia il colore di sfondo di tutte le celle in "Nessun riempimento".
Cells.Interior.ColorIndex = 0
3. Inizializziamo rng con i numeri. Usiamo la proprietà CurrentRegion per questo. CurrentRegion è utile quando non conosciamo in anticipo i confini esatti di un intervallo.
Imposta rng = Range("A1").CurrentRegion
4. Inizializza massimo con il valore massimo dei numeri. Usiamo la funzione del foglio di lavoro Max per trovare il valore massimo.
massimo = WorksheetFunction.Max(rng)
5. Infine, coloriamo il valore massimo. Usiamo un For Each Next Loop.
Per ogni cella In rng
Se cell.Value = massimo Allora cell.Interior.ColorIndex = 22
Cella successiva
Nota: invece del numero ColorIndex 22 (rosso), puoi utilizzare qualsiasi numero ColorIndex.
6. Aggiungere un numero.
Risultato quando si fa clic sul pulsante di comando sul foglio:
