Нижче ми розглянемо програму в Excel VBA що проходить через весь перший стовпчик і забарвлює всі значення, менші за певне значення.
Помістіть команду на робочому аркуші та додайте такі рядки коду:
1. По -перше, оголосіть змінну під назвою i типу Long. Тут ми використовуємо змінну типу Long, тому що змінні Long мають більшу ємність, ніж цілі.
Dim i As Long
2. Далі додайте рядок коду, який змінює колір шрифту всіх клітинок у стовпці А на чорний.
Стовпці (1). Колір шрифту = vbЧорний
3. Додайте петлю.
Для i = 1 до рядків
Далі i
Примітка. На робочих аркушах у Excel 2007 або пізніших версіях може бути до 1048 576 рядків. Незалежно від того, яку версію ви використовуєте, рядок коду над циклом перебирає всі рядки.
4. Далі фарбуємо всі значення, які нижчі за значення, введене в комірку D2. Порожні клітини ігноруються. Додайте наступні рядки коду до циклу.
Якщо клітинки (i, 1). Значення <діапазон ("D2"). Значення, а не порожнє (клітинки (i, 1). Значення) Тоді
Клітинки (i, 1). Колір шрифту = vbRed
Закінчити Якщо
Результат, коли ви натискаєте кнопку команди на аркуші (це може зайняти деякий час):
