Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как в Excel подсчитать ячейки по цвету текста? / 4 сообщений из 4, страница 1 из 1
26.01.2007, 10:06:43
    #34284153
USB2
USB2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Excel подсчитать ячейки по цвету текста?
Есть строка из 10-ти ячеек, надо подсчитать, сколько из них выделены красным цветом. Пробовал формулами, не получилось. Кто подскажет?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.01.2007, 16:46:27
    #34293649
andMegaM
andMegaM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Excel подсчитать ячейки по цвету текста?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Sub CEL3()

Dim rr As Integer
Dim chislo As Integer
Dim ishod As Integer
 
ishod =  0 
For I =  1  To ActiveCell.SpecialCells(xlLastCell).Row
 
    chislo =  0 
    For rr =  1  To  10 
      If Cells(I, rr).Font.ColorIndex =  3  Then chislo = chislo +  1 
    Next rr
    
    MsgBox "Кол-во красных ячеек в  " & I & " строке  =  " & chislo
  
 ishod = ishod + chislo
  
Next I
    
MsgBox "Общее кол-во красных ячеек = " & ishod

End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.01.2007, 19:02:51
    #34294109
KL (XL)
KL (XL)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Excel подсчитать ячейки по цвету текста?
см. тут:

http://www.cpearson.com/excel/colors.htm

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.01.2007, 23:26:40
    #34294481
Ivan33
Ivan33
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Excel подсчитать ячейки по цвету текста?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как в Excel подсчитать ячейки по цвету текста? / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 306ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2183535]:
 0ms
get settings:
 6ms
get forum list:
 14ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 38ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 27ms
get tp. blocked users:
 1ms
others: 207ms
total:  306ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]