Здравствуйте, уважаемые профессионалы в области Эксель!!! Подскажите, пожалуйста, возможно ли сделать так: оформлен месяц с 1 по 31 число. Выходные выделены красным и зеленым цветом, рабочие дни - обычным (черным). Можно ли в итоговую ячейку указать общее число - например, если в квадратике выделено красным и зеленым цветом 16 дней, то эту цифру (16) и указать в сводной ячейке?
Файл прилагается.
Спасибо большое!
Здравствуйте, уважаемые профессионалы в области Эксель!!! Подскажите, пожалуйста, возможно ли сделать так: оформлен месяц с 1 по 31 число. Выходные выделены красным и зеленым цветом, рабочие дни - обычным (черным). Можно ли в итоговую ячейку указать общее число - например, если в квадратике выделено красным и зеленым цветом 16 дней, то эту цифру (16) и указать в сводной ячейке?
Function GetBlackTxt(Aria As Range) As Integer Dim N As Integer, C As Range For Each C In Aria If C.Font.Color = 0 And Val(C) > 0 Then N = N + 1 Next C GetBlackTxt = N End Function
[/vba]
anna, Можно написать свою функцию см. вложение
Сам код, на всякий случай [vba]
Код
Function GetBlackTxt(Aria As Range) As Integer Dim N As Integer, C As Range For Each C In Aria If C.Font.Color = 0 And Val(C) > 0 Then N = N + 1 Next C GetBlackTxt = N End Function