Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/посчитать дни по количеству заполненных ячеек - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
посчитать дни по количеству заполненных ячеек
anna Дата: Понедельник, 12.10.2015, 15:25 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 108
Репутация: 0 ±
Замечаний: 0% ±

Здравствуйте, уважаемые профессионалы в области Эксель!!!
Подскажите, пожалуйста, возможно ли сделать так: оформлен месяц с 1 по 31 число. Выходные выделены красным и зеленым цветом, рабочие дни - обычным (черным). Можно ли в итоговую ячейку указать общее число - например, если в квадратике выделено красным и зеленым цветом 16 дней, то эту цифру (16) и указать в сводной ячейке?

Файл прилагается.

Спасибо большое!
К сообщению приложен файл: 0217209.xlsx (17.7 Kb)
 
Ответить
СообщениеЗдравствуйте, уважаемые профессионалы в области Эксель!!!
Подскажите, пожалуйста, возможно ли сделать так: оформлен месяц с 1 по 31 число. Выходные выделены красным и зеленым цветом, рабочие дни - обычным (черным). Можно ли в итоговую ячейку указать общее число - например, если в квадратике выделено красным и зеленым цветом 16 дней, то эту цифру (16) и указать в сводной ячейке?

Файл прилагается.

Спасибо большое!

Автор - anna
Дата добавления - 12.10.2015 в 15:25
pabchek Дата: Понедельник, 12.10.2015, 15:52 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 931
Репутация: 218 ±
Замечаний: 0% ±

Excel 2007
Наошибался, поправился, перезалил. Не по ТЗ, но функцию выполняет. Мож подойдет?
К сообщению приложен файл: 1101609.xlsx (19.7 Kb)


"Учиться, учиться и еще раз учиться!"
WM: R399923528092


Сообщение отредактировал pabchek - Понедельник, 12.10.2015, 16:04
 
Ответить
СообщениеНаошибался, поправился, перезалил. Не по ТЗ, но функцию выполняет. Мож подойдет?

Автор - pabchek
Дата добавления - 12.10.2015 в 15:52
miver Дата: Понедельник, 12.10.2015, 16:05 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 190
Репутация: 37 ±
Замечаний: 0% ±

Excel 2010
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
[/vba]
К сообщению приложен файл: 0217209.xlsm (24.1 Kb)


Сообщение отредактировал miver - Понедельник, 12.10.2015, 16:05
 
Ответить
Сообщение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
[/vba]

Автор - miver
Дата добавления - 12.10.2015 в 16:05
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!