/ / Loop через цілу стовпець у Excel VBA

Створіть повну колонку в Excel VBA

Нижче ми розглянемо програму в Росії Excel VBA це цикли по всій першій колонці і колір всіх значень, нижчих за певне значення.

Цикл через цілу колонку в Excel VBA

Цикл через цілу колонку в Excel VBA

Помістіть на вашій робочій клавіші команду та додайте наступні кодові рядки:

1. По-перше, оголосити змінну з назвою i типу Long. Ми використовуємо змінну типу Long, оскільки довгі змінні мають більшу ємність, ніж цілі змінні.

Dim i As Long

2. Потім додайте рядок коду, який змінює колір шрифту всіх комірок у колонці A на чорний.

Columns(1).Font.Color = vbBlack

3. Додати цикл.

For i = 1 To Rows.Count

Next i

Примітка: робочі таблиці можуть мати до 65 536 рядків у Excel 2003 і до 1048 576 рядків у Excel 2007 або пізніших версіях. Незалежно від того, яку версію ви використовуєте, рядок коду над циклами по всіх рядках (завантажений файл Excel знаходиться у форматі Excel 97-2003).

4. Далі ми колір всі значення, нижчі від значення, введеного в клітинку D2. Пусті клітинки ігноруються. Додайте наступні кодові рядки до циклу.

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

Результат, коли ви натискаєте кнопку команди на аркуші (це може зайняти деякий час):

Цикл через результат у цілому стовпчику

Цикл через результат у цілому стовпчику

Також читайте: