Перебор ячеек в столбце exel - VBA
Формулировка задачи:
Добрый день, Товарищи!
Не совсем понимаю еще exel.
Задача, перебрать все строки (ячейки) в одном столбце и выполнить условие.
Вот условие, если в чейке сегодня, то закрасить всю строку красным.
Как перебрать весь столбец?
Поспешил, простите.
Решение задачи: «Перебор ячеек в столбце exel»
textual
Листинг программы
Private Sub Test() Application.ScreenUpdating = False Dim iCell As Range, tmp As Date: tmp = Date For Each iCell In Range(Cells(1, "Q"), Cells(Rows.Count, "Q").End(xlUp)) If iCell.Value = tmp Then iCell.EntireRow.Interior.Color = 255 'vbRed Next Application.ScreenUpdating = True End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д