Профессиональные приемы работы в Microsoft Excel

Пожалуйста, войдите или зарегистрируйтесь.


Расширенный поиск  

Новости:

Подпишитесь на рассылку новых сообщений форума через службу рассылок: Subscribe.ru

Автор Тема: Функция и фильтр  (Прочитано 1182 раз)

0 Пользователей и 1 Гость просматривают эту тему.

jtn

  • Новичок
  • *
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 1
Функция и фильтр
« : 23.11.2009, 17:28:13 »

Добрый день!!!
Подскажите, пожалуйста. Есть своя простейшая функция, которая считает сумму ячеек с красным текстом.
Public Function SumColored(R As Range) As Double
    V = 0
    For Each C In R.Cells
       If C.Font.Color = RGB(255, 0, 0) Then V = V + C.Value2
    Next C
    SumColored = V
End Function
При применении фильтра, сумма остается та же. Как не учитывать ячейки, скрытые фильтром. Например аналог функции ПРОМЕЖУТОЧНЫЕ.ИТОГИ.
Спасибо!!!!
Записан

pucher

  • Пользователь
  • **
  • Уважение: +3/-0
  • Оффлайн Оффлайн
  • Сообщений: 33
Re: Функция и фильтр
« Ответ #1 : 23.11.2009, 21:49:43 »

jtn, перед тем как суммировать нужно проверять свойство hidden у свойства EntireRow для каждой яцейки в диапозоне. Соответственно если это свойство true, то это значит, что ячейка была скрыта при применении [url=http://msexcel.ru/content/view/27/2/]_автофильтр_[/url]а.
Ваш код можно поправить следующим образом:
If Not C.EntireRow.Hidden And C.Font.Color = RGB(255, 0, 0) Then V = V + C.Value2

Кстати, если не секрет, чем обусловлено при суммировании использование свойства Value2 , а не более очевидного свойства Value ?
Записан
 



Темы без ответов

09.08.2019 14:09 Макрос для заполнения таблиц через форму 4991
18.07.2019 16:02 Рассылка почты из Excel при помощи почтовой программы TheBAT! 4407
07.02.2019 01:36 Как удалить дубликаты из выпадающего связанного списка? 5964
03.03.2018 00:00 Подсчет отработанного времени, за исключением заранее определенных перерывов 3110
23.05.2017 11:20 Копирование данных из одной таблицы в умную таблицу по условию 4911
15.03.2017 15:45 автозамена картинок PowerPoint 3833
11.03.2017 13:43 Изменить нумерацию страниц 3761
07.02.2017 18:43 Блокировка ячеек по наступлению даты 2870
28.08.2016 19:29 Одинаковые заголовки после обновления оглавления 3374
07.08.2016 17:33 Определить нумерацию как элемент стиля 3587





Яндекс цитирования msexcel.ru Яндекс.Метрика

Страница сгенерирована за 0.091 секунд. Запросов: 87.