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

Вход

Регистрация

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

 

= Мир MS Excel/Посчитать количество дней, которые не выделены жирным - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Посчитать количество дней, которые не выделены жирным (Формулы/Formulas)
Посчитать количество дней, которые не выделены жирным
anna Дата: Пятница, 14.09.2018, 15:05 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 77
Репутация: 0 ±
Замечаний: 0% ±

Добрый день.

Подскажите, возможно ли посчитать количество дней по принципу (все дни невыделенные жирным и цветным)?
К сообщению приложен файл: 6428009.xlsx(21.6 Kb)
 
Ответить
СообщениеДобрый день.

Подскажите, возможно ли посчитать количество дней по принципу (все дни невыделенные жирным и цветным)?

Автор - anna
Дата добавления - 14.09.2018 в 15:05
Pelena Дата: Пятница, 14.09.2018, 17:34 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 13223
Репутация: 2909 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Здравствуйте.
Можно пользовательской функцией. Макросы должны быть разрешены
[vba]
Код
Function СчетЧерных(rng As Range)
    Application.Volatile
    Dim cl As Range
    For Each cl In rng
        If cl.Font.Color = 0 And cl.Font.Bold = False And cl <> "" Then СчетЧерных = СчетЧерных + 1
    Next cl
End Function
[/vba]
К сообщению приложен файл: 6428009.xlsm(27.3 Kb)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Можно пользовательской функцией. Макросы должны быть разрешены
[vba]
Код
Function СчетЧерных(rng As Range)
    Application.Volatile
    Dim cl As Range
    For Each cl In rng
        If cl.Font.Color = 0 And cl.Font.Bold = False And cl <> "" Then СчетЧерных = СчетЧерных + 1
    Next cl
End Function
[/vba]

Автор - Pelena
Дата добавления - 14.09.2018 в 17:34
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Посчитать количество дней, которые не выделены жирным (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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