Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Как в Excel посчитать количество ячеек выделенных определенным шрифтом?
 
#1
25.08.2011 06:17:35
Как в Excel посчитать количество ячеек выделенных определенным шрифтом?    
 
Мне надо подсчитать количество ячеек в столбце, значения в которых выделены жирным шрифтом.  
 
понятно что формула будет такая:  
 
=СЧЁТЕСЛИ(диапазон;"шрифт жирный")  
 
а как критерий "шрифт жирный" описать - туплю.
 
 
 
#2
25.08.2011 07:02:17
В 2003-м - никак. Только если в отдельном столбце признак проставить, а уже потом воспользоваться =СЧЁТЕСЛИ(диапазон;"признак").  
Или писать свою функцию. Что-то было в примерах на этут тему, только не по шрифту, а по заливке ячейки. И в 2010-м, говорят, что-то есть.
 
 
 
#3
25.08.2011 07:32:58
Понятно, значит встроенных функций нет.  
 
Помогите свою написать.
 
 
 
#4
25.08.2011 07:53:19
Function Func(rRng As Range)  
Dim cell As Range  
For Each cel In rRng  
If cell.Font.Bold = True Then Func = Func + 1  
Next  
End Function
 
 
 
#5
25.08.2011 07:53:20
http://www.planetaexcel.ru/forum.php?thread_id=8934  
 
"... всё уже написано до нас!" :О)
 
 
 
#6
25.08.2011 08:14:28
Расшифруйте пожалуйста для тупого, как применить эту функцию?
 
 
 
#7
26.08.2011 04:52:27
А какой синтаксис у функции будет?  
=Func(диапазон) приводит к ошибке в 3й строке.
 
 
 
#8
26.08.2011 05:11:28
Нашел, там  cel на cell надо поменять.  
 
Всё работает спасибо.
 
 
 
#9
13.06.2012 14:29:16
Добрый день, знатоки.    
Столкнулась с такой же необходимостью:  
-подсчет непустых ячеек с определенной заливкой;  
 
Пошла по простому пути - изменила шрифт в таких ячейках (благо, объемы пока позволяют) и стала гуглить на предмет готовых макросов.    
Нашла данную тему, но поскольку не сильна в написании, не очень понимаю, как все это "запустить". :) Помогите, пожалуйста.  
 
Также посмотрела вот эту тему - http://www.planetaexcel.ru/forum.php?thread_id=8934  
Вот среди них нашла "Count_CellColor", она похожа на то, что мне нужно. Но только бы со шрифтом такое сделать.    
Или, в идеале, подсчет кол-ва непустых ячеек с определнной заливкой.    
Спасибо заранее за помощь.
 
 
 
#10
13.06.2012 15:39:41
Удивительно, но я разобралась. :)    
Теперь бы где-нибудь все-таки найти ф-ю, считающую кол-во заполненных ячеек определенного цвета.
 
 
 
#11
13.06.2012 16:08:37
Спасибо, попробую.
 
 
 
#12
19.10.2012 00:37:27
А если нужно, чтобы значения жирных ячеек были равными 11?  
 
Function Func(rRng As Range)  
Dim cell As Range  
For Each cel In rRng  
If cell.Font.Bold = True Then Func = Func + 1  
Next  
End Function
 
 
 
#13
19.10.2012 02:22:52
Если нужно обязательно функцией.  
На всякий случай 11 пишем в соседнюю ячейку.  
Sub www()  
If ActiveCell.Font.Bold = True Then ActiveCell.Offset(0, 1) = Func()  
End Sub  
 
Function Func()  
Func = 11  
End Function  
 
P.S. Выдвигайте меня на Нобелевскую премию. Я написал самую короткую функцию :) :) :)
 
 
 
#14
19.10.2012 22:37:18
Оригинально! :)  
Только я наверное, не так выразилась....Мне нужно чтобы из жирных ячеек в произвольно выделенном диапазоне считалось количество только тех ячеек, которые соответствуют определенному критерию (Например  = 11, либо от 0 до 11, либо равные "УВОЛЕН")  
 
Вот...:)
 
 
 
#15
22.10.2012 03:53:55
...
 
 
 
Страницы: 1
Читают тему
Наверх