/ / Loop per visą stulpelį Excel VBA

Loop per visą stulpelį Excel VBA

Žemiau apžvelgsime programą Excel VBA tai kilpos per visą pirmąjį stulpelį ir spalvos visas vertes, kurios yra mažesnės už tam tikrą vertę.

"Loop Through The Entire Column" "Excel" VBA

"Loop Through The Entire Column" "Excel" VBA

Įdėkite komandų mygtuką į savo darbalapį ir pridėkite šias kodo eilutes:

1. Pirma, deklaruoti kintamąjį, pavadintą "I" tipo "Long". Čia mes naudojame ilgio tipo kintamąjį, nes ilgieji kintamieji yra didesni nei integer kintamieji.

Dim i As Long

2. Tada pridėkite kodo eilutę, kuri pakeičia visų stulpelių A lango spalvų šriftą.

Columns(1).Font.Color = vbBlack

3. Pridėkite kilpą.

For i = 1 To Rows.Count

Next i

Pastaba: "Excel 2003" darbalapiuose gali būti iki 65.536 eilučių ir iki 1.048.576 eilučių "Excel 2007" ar naujesnėse versijose. Nesvarbu, kokia versija naudojate, eilutė virš linijų per visas eilutes (atsisiunčiama "Excel" byla yra formatu "Excel 97-2003").

4. Toliau spalvos visas vertes, kurios yra mažesnės už įvestą į ląstelę D2 reikšmę. Tuščios ląstelės yra ignoruojamos. Įtraukite šias kodo eilutes į kilpą.

If Cells(i, 1).Value < Range("D2").Value And Not IsEmpty(Cells(i, 1).Value) Then
    Cells(i, 1).Font.Color = vbRed
End If

Rezultatas spustelėjus komandą ant lapo (tai gali užtrukti):

Loop per visą stulpelio rezultatą

Loop per visą stulpelio rezultatą

Taip pat perskaitykite: