Loop attraverso l’intero Colonna in Excel VBA
Di seguito vedremo un programma in Excel VBA che scorre tutta la prima colonna e colori tutti i valori che sono inferiori di un certo valore.
Posizionare un pulsante di comando nel foglio di lavoro e aggiungere le righe di codice che segue:
-
In primo luogo, dichiarare una variabile denominata i di tipo Long. Abbiamo utilizzare una variabile di tipo Long qui perché le variabili lunghi hanno una capacità maggiore di variabili intere.
Dim i As Long
-
Successivamente, aggiungere la riga di codice che cambia il colore del carattere di tutte le cellule nella colonna A al nero.
Columns(1).Font.Color = vbBlack
-
Aggiungere il ciclo.
For i = 1 To Rows.Count Next i
Nota: i fogli di lavoro possono avere fino a 1.048.576 righe in Excel 2007 o successivo.
Non importa quale versione si sta utilizzando, la linea di codice di cui sopra loop attraverso tutte le righe.
-
Successivamente, il colore di tutti i valori che sono inferiori al valore inserito nella cella D2. Le celle vuote vengono ignorate. Aggiungere le seguenti righe di codice al loop.
If Cells(i, 1).Value < Range("D2").Value And Not IsEmpty(Cells(i, 1).Value) Then
Cells(i, 1).Font.Color = vbRed
End If
Risultato quando si fa clic sul pulsante di comando sul foglio (l’operazione potrebbe richiedere un po ‘):
