Ниже мы рассмотрим программу на Excel VBA тот проходит через весь первый столбец и раскрашивает все значения, которые ниже определенного значения.
Поместите командную кнопку на свой рабочий лист и добавьте следующие строки кода:
1. Сначала объявите переменную с именем i типа Long. Здесь мы используем переменную типа Long, потому что переменные типа Long имеют большую емкость, чем переменные типа Integer.
Тусклый я до тех пор, пока
2. Затем добавьте строку кода, которая изменяет цвет шрифта всех ячеек в столбце A на черный.
Столбцы (1) .Font.Color = vbBlack
3. Добавьте петлю.
Для i = 1 To Rows.Count
Далее я
Примечание: в Excel 2007 или более поздних версиях рабочие листы могут содержать до 1 048 576 строк. Независимо от того, какую версию вы используете, строка кода выше проходит по всем строкам.
4. Затем мы раскрашиваем все значения, которые ниже значения, введенного в ячейку D2. Пустые ячейки игнорируются. Добавьте в цикл следующие строки кода.
Если Cells (i, 1) .Value <Range ("D2"). Value, а не IsEmpty (Cells (i, 1) .Value), то
Ячейки (i, 1) .Font.Color = vbRed
Конец, если
Результат при нажатии кнопки команды на листе (это может занять некоторое время):
