Di seguito vedremo un programma in Excel VBA Quello scorre l'intera prima colonna e colora tutti i valori inferiori a un certo valore.
Posiziona un pulsante di comando sul foglio di lavoro e aggiungi le seguenti righe di codice:
1. Innanzitutto, dichiarare una variabile chiamata i di tipo Long. Usiamo una variabile di tipo Long qui perché le variabili Long hanno una capacità maggiore rispetto alle variabili Integer.
Dim I As Long
2. Quindi, aggiungi la riga di codice che cambia il colore del carattere di tutte le celle nella colonna A in nero.
Colonne(1).Font.Color = vbBlack
3. Aggiungi il ciclo.
Per i = 1 a righe.conteggio
Avanti io
Nota: i fogli di lavoro possono avere fino a 1.048.576 righe in Excel 2007 o versioni successive. Indipendentemente dalla versione che stai utilizzando, la riga di codice sopra scorre su tutte le righe.
4. Successivamente, coloriamo tutti i valori inferiori al valore inserito nella cella D2. Le celle vuote vengono ignorate. Aggiungi le seguenti righe di codice al ciclo.
If Cells(i, 1).Value < Range("D2").Value And Not IsEmpty(Cells(i, 1).Value) Then
Cells(i, 1).Font.Color = vbRed
Finisci se
Risultato quando si fa clic sul pulsante di comando sul foglio (l'operazione potrebbe richiedere del tempo):
