/ / Hurok az egész oszlopban az Excel VBA-ban

Húzza át az egész oszlopot az Excel VBA-ban

Az alábbiakban egy programot nézünk be Excel VBA hogy hurkolja át az egész első oszlopot és minden értéket alacsonyabb, mint egy bizonyos érték.

Húzza át az egész oszlopot az Excel VBA-ban

Húzza át az egész oszlopot az Excel VBA-ban

Helyezzen egy parancsgombot a munkalapra, és adja hozzá a következő kódsorokat:

1. Először írja le a hosszú típusú i nevű változót. Hosszú változót használunk itt, mert a hosszú változók nagyobb kapacitással rendelkeznek, mint az Integer változók.

Dim i As Long

2. Ezután adja hozzá azt a kódsorozatot, amely az A oszlopban lévő összes cella betűszínét fekete színre változtatja.

Columns(1).Font.Color = vbBlack

3. Adja hozzá a hurkot.

For i = 1 To Rows.Count

Next i

Jegyzet: a munkalapok legfeljebb 65.536 sorát tartalmazhatják az Excel 2003-ban és az Excel 2007-ben vagy újabb verzióban akár 1.048.576 sor is. Függetlenül attól, hogy melyik verziót használja, a fenti kódsorozat minden soron keresztül történik (a letölthető Excel fájl Excel 97-2003 formátumban van).

4. Ezután színt adunk minden olyan értéknek, amely alacsonyabb, mint a D2 cellába beírt érték. Az üres cellákat figyelmen kívül hagyja. Adja hozzá a következő kódsorokat a hurokhoz.

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

Eredmény, ha rákattint a lapon található parancs gombra (ez eltarthat egy ideig):

Hurok az egész oszlop eredményén keresztül

Hurok az egész oszlop eredményén keresztül

Szintén olvasható: