Результат, зависящий от значения фильтра

@Бур · Регистрация: 28.02.2013

Author24 — интернет-сервис помощи студентам

Добрый день.
Помогите пожалуйста, с решением проблемы:
Имеется таблица, содержащая название модели, далее период отчетов, и списки атрибутов.
Задача:
В конце таблицы под каждым периодом, после ввода имени критерия, и выбором соответствующего значения в фильтрах прописывается сумма. (пример на листе "Условие").
На остальных листах сумма подсчитывается по тому же критерию.
Количество атрибутов может быть различным.

@IvanOK · 28.02.2013, 21:19

Сообщение от Бур

значения в фильтрах прописывается сумма.

Visual Basic

1	SumTemp = Application.WorksheetFunction.Subtotal(9, Range(Cells(9, 1), Cells(Rows.Count, 1).End(xlUp)))

попробуй использовать ето если подойдет.....

, что не понятно спрашывай

Добавлено через 47 секунд
Бур, еще возьми справку по

Сообщение от IvanOK

WorksheetFunction.Subtotal

toiai · 28.02.2013, 21:29

А сводной таблица подойдет?

Добавлено через 3 минуты
Можно и формулой используя функцию ПРОМЕЖУТОЧНЫЕ.ИТОГИ

toiai · 28.02.2013, 21:45

Посмотри на листе 1

@Бур · 01.03.2013, 13:26 **[ТС]**

Сводной таблицей не пойдет.
Требуется именно после ввода критерия на листе "условие" (например смартфон), и выбора значений фильтров (например ОС-windows, android, 3G- да) комбинацией клавиш (допустим ctrl+m) считалась сумма по всем отчетам и на всех листах.
Кроме того, этих критериев может быть много и соответственно атрибутов тоже.

Добавлено через 4 часа 21 минуту
Даже вопрос в том, как перенести значение фильтров на другой лист
Допустим, на листе "Условие" выставляем фильтры

Visual Basic

1
2
3

Sheets(1).Cells(1,11).AutoFilter Field:=11, Criteria1:="Да"
Sheets(1).Cells(1,12).AutoFilter Field:=12, Criteria1:=Array( _
        "Nokia OS", "Samsung OS", "Symbian", "Windows"), Operator:=xlFilterValues

Вопрос, в том, как получить значение выбранных фильтров, и скопировать их на оставшиеся листы.

Скрипт · 01.03.2013, 15:01

Бур, VBA-Excel-средств нет для получения результатов фильтров.
Нужно принять во внимание то, что является результатом фильтра. Результатом фильтра является то, что ненужные строки скрыты.

Поэтому нужно строки, которые не скрыты, переносить на другой лист.

Узнать скрыта строка или нет, можно с помощью:

свойства Hidden;
свойства Height. Если строка скрыта, то высота строки равна нулю.

Можно использовать вот такой инструмент, чтобы получить нескрытые строки:
Range.SpecialCells Method, параметр xlCellTypeVisible.

Только нужно аккуратно работать со SpecialCells, т.к. не всегда получается нужный результат. Чтобы всегда был нужный результат, нужно сначала произвести сохранение книги, а затем применить команду SpecialCells. Говорят, что можно вместо сохранения книги вызывать команду UsedRange (даже если вам эта команда и не нужна).

@Бур · 01.03.2013, 15:24 **[ТС]**

Скрипт, Большое спасибо, буду пробовать.

toiai 3218 / 967 / 223 Регистрация: 29.05.2010 Сообщений: 2,086
	28.02.2013, 21:29	3
	А сводной таблица подойдет? Добавлено через 3 минуты Можно и формулой используя функцию ПРОМЕЖУТОЧНЫЕ.ИТОГИ 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,518
	01.03.2013, 15:01	6
	Бур, VBA-Excel-средств нет для получения результатов фильтров. Нужно принять во внимание то, что является результатом фильтра. Результатом фильтра является то, что ненужные строки скрыты. Поэтому нужно строки, которые не скрыты, переносить на другой лист. Узнать скрыта строка или нет, можно с помощью: свойства Hidden; свойства Height. Если строка скрыта, то высота строки равна нулю. Можно использовать вот такой инструмент, чтобы получить нескрытые строки: Range.SpecialCells Method, параметр xlCellTypeVisible. Только нужно аккуратно работать со SpecialCells, т.к. не всегда получается нужный результат. Чтобы всегда был нужный результат, нужно сначала произвести сохранение книги, а затем применить команду SpecialCells. Говорят, что можно вместо сохранения книги вызывать команду UsedRange (даже если вам эта команда и не нужна). 1

@Бур 0 / 0 / 0 Регистрация: 28.02.2013 Сообщений: 11
	01.03.2013, 15:24 [ТС]	7
	Скрипт, Большое спасибо, буду пробовать. 0