/ / Passa attraverso l'intera colonna in VBA di Excel

Passa attraverso l'intera colonna in VBA di Excel

Di seguito vedremo un programma in Excel VBA quello scorre attraverso l'intera prima colonna e colora tutti i valori che sono inferiori a un certo valore.

Passa attraverso l'intera colonna in VBA di Excel

Passa attraverso l'intera colonna in VBA di Excel

Inserire un pulsante di comando nel foglio di lavoro e aggiungere le seguenti linee di codice:

1. In primo luogo, dichiara una variabile chiamata i di tipo Long. Usiamo una variabile di tipo Long qui perché le variabili Long hanno una capacità maggiore delle variabili Integer.

Dim i As Long

2. Successivamente, aggiungi la riga di codice che cambia il colore del carattere di tutte le celle nella colonna A in nero.

Columns(1).Font.Color = vbBlack

3. Aggiungi il ciclo.

For i = 1 To Rows.Count

Next i

Nota: i fogli di lavoro possono contenere fino a 65.536 righe in Excel 2003 e fino a 1.048.576 righe in Excel 2007 o versioni successive. Indipendentemente dalla versione utilizzata, la riga di codice sopra scorre in tutte le righe (il file Excel scaricabile è in formato Excel 97-2003).

4. Successivamente, coloriamo tutti i valori inferiori al valore inserito nella cella D2. Le celle vuote vengono ignorate. Aggiungere le seguenti linee 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
End If

Risultato quando si fa clic sul pulsante di comando sul foglio (potrebbe richiedere un po 'di tempo):

Loop Through Through Column Result

Loop Through Through Column Result

Leggi anche: