Перебор ячеек в столбце 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 3.818 из 5
Похожие ответы