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ę.
Į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.
2. Tada pridėkite kodo eilutę, kuri pakeičia visų stulpelių A lango spalvų šriftą.
3. Pridėkite kilpą.
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ą.
Cells(i, 1).Font.Color = vbRed
End If
Rezultatas spustelėjus komandą ant lapo (tai gali užtrukti):