Добрый день!
Требуется очистить ячейки в произвольном диапазоне (а то и во всём листе) по признаку цвета текста, цифр в ячейке.
Цикл работает, ячейки не чистятся, ошибка при Cell.ClearContents.
Вот что сообразил и вспомнил:
Элементарно прошу помочь в элементарном. Сто лет здесь не был.
Спасибо.
Требуется очистить ячейки в произвольном диапазоне (а то и во всём листе) по признаку цвета текста, цифр в ячейке.
Цикл работает, ячейки не чистятся, ошибка при Cell.ClearContents.
Вот что сообразил и вспомнил:
Код |
---|
Public Function SBC(DataRange As Range, ColorSample As Range) As Double Dim Sum As Double Application.Volatile True For Each Cell In DataRange If Cell.Font.Color = ColorSample.Font.Color Then ' Cell.ClearContents Sum = Sum + 1 End If Next Cell SBC = Sum End Function |
Элементарно прошу помочь в элементарном. Сто лет здесь не был.
Спасибо.