|
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail | |||||||
| Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
||||
 |
|
|
Опции темы | Поиск в этой теме |
22.06.2014, 19:05
|
#1 |
|
Пользователь
Регистрация: 05.01.2011
Сообщений: 32
|
подсчет закрашенных ячеек в массиве
Здравствуйте. Кто поможет заменить одной формулой подсчет закрашенных ячеек в столбце (I3:I1000) в макросе
Sub Podshet() ' Активирует подсчет закрашенных ячеек Range("I3").Select ActiveCell.FormulaR1C1 = "=SumByColor2(RC[-6]:RC[-2],R[-2]C[-8])" Range("I4").Select ActiveCell.FormulaR1C1 = "=SumByColor2(RC[-6]:RC[-2],R[-2]C[-8])" Range("I5").Select ActiveCell.FormulaR1C1 = "=SumByColor2(RC[-6]:RC[-2],R[-2]C[-8])" Range("I6").Select ActiveCell.FormulaR1C1 = "=SumByColor2(RC[-6]:RC[-2],R[-2]C[-8])" Range("I7").Select ActiveCell.FormulaR1C1 = "=SumByColor2(RC[-6]:RC[-2],R[-2]C[-8])" Range("I8").Select и т.д. до Range("I1000") Range("A1").Select End Sub С уважением Ирек |
|
|
|
22.06.2014, 19:48
|
#2 |
|
Форумчанин
Регистрация: 23.01.2010
Сообщений: 261
|
Здравствуйте.
Код:
|
|
|
|
|
22.06.2014, 22:02
|
#3 |
|
Пользователь
Регистрация: 05.01.2011
Сообщений: 32
|
Спасибо.Сработало, Я вроде что-то подобное делал с выделением (I3:I1000), но у меня не пошло.
|
|
|
|
|
Похожие темы
|
||||
| Тема | Автор | Раздел | Ответов | Последнее сообщение |
| Подсчет пустых ячеек | Easyway | Microsoft Office Excel | 2 | 20.07.2012 01:05 |
| подсчет ячеек | olka1081989 | Microsoft Office Excel | 3 | 26.05.2010 15:46 |
| подсчет элементов в массиве | счастливая | Помощь студентам | 1 | 17.05.2010 19:11 |
| Формула для определения количества закрашенных ячеек | catano | Microsoft Office Excel | 2 | 07.08.2009 16:49 |
| подсчет заполненных ячеек | extremobile | Microsoft Office Excel | 2 | 28.05.2009 17:26 |
