/ / Лооп кроз целокупну колону у Екцелу ВБА

Лооп кроз целу колону у Екцелу ВБА

У наставку ћемо погледати програм Екцел ВБА то петље кроз целу прву колону и боје све вриједности које су ниже од одређене вриједности.

Лооп Тхроугх Ентире Цолумн у Екцел ВБА

Лооп Тхроугх Ентире Цолумн у Екцел ВБА

Поставите командно дугме на свој радни лист и додајте следеће линије кода:

1. Прво, декларишите променљиву која се зове и типа Лонг. Користимо варијаблу типа Лонг, јер Лонг променљиве имају већи капацитет од интегер варијабли.

Dim i As Long

2. Затим додајте линију кода која мења боју фонта свих ћелија у колони А до црне боје.

Columns(1).Font.Color = vbBlack

3. Додајте петљу.

For i = 1 To Rows.Count

Next i

Белешка: радни листови могу имати до 65.536 редова у Екцелу 2003. и до 1.048.576 редова у Екцелу 2007 или каснијим. Без обзира на коју верзију користите, линија кода изнад свих линија (датотека Екцел је у Екцел 97-2003 формату).

4. Следеће, ми боје све вриједности које су ниже од вриједности унете у ћелију Д2. Празне ћелије се игноришу. Додајте следеће линије кода у петљу.

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

Резултат када кликнете на командно дугме на листу (ово може потрајати):

Лооп Тхроугх Ентире Цолумн Ресулт

Лооп Тхроугх Ентире Цолумн Ресулт

Такође прочитајте: