Условное форматирование в vba

Posted by obzor under Basic, VBA, Софт

нужно проверить через код вба в 1 строке с 1 по 10 ячейки с данными на применено ли на каждую условное форматирование. если да то очистить ее от данных если нет то пропустить.

сама формула условного форматирования =деньнед( b1;2)>5 где b1 ячейка с датой.

мне в основном нужно условие допустим я выделяю программно ячейку 1 и проверяю подверглась ли она условному форматированию если да очищаем от данных если нет ничего не делаю перехожу к следующей ячейки

AleksandrH

Sub KOD()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    For i = 5 To 42
        For j = 6 To 37
            Debug.Print Cells(4, j).Value
            Debug.Print Weekday(Cells(4, j), 2)
            Debug.Print Cells(i, j).Value
             If Weekday(Cells(4, j), 2) > 5 Then Cells(i, j).Value = ""
        Next j
    Next i
    Application.Calculation = xlCalculationAutomatic
End Sub

тема на форуме

Похожие статьи

• Ping из VBA
• Progress bar или индикация выполнения макроса в Microsoft Office Excel
• Запретить ввод пробелов в ячейки Excel
• Массовое переименование label на форме
• Вынести часть текста из многострочной ячейки по условию (Excel)
• Копирование данных в Excel «отталкиваясь» от последней заполненой строки
• Вставка данных в Excel после последней заполненной ячейки
• Как в Excel посчитать количество дней, прошедших с заданного числа
• Копирование данных «отталкиваясь» от последней заполненной строки Excel
• Как вытащить URL адрес из формулы с гиперссылкой в Excel