Фильтр в сводной таблице, учитывая условие

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Фильтр в сводной таблице, учитывая условие - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Фильтр в сводной таблице, учитывая условие (Формулы/Formulas)

Фильтр в сводной таблице, учитывая условие

Gamid

Дата: Вторник, 15.12.2015, 22:12 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Здравствуйте!
Планировал, что указывая значение в инпутбоксе, фильтр в сводной выбирал только это значание.
Сейчас ситуация такая:какое я число не ввел, фильтр в сводной оставляет только последнее..
Друзья, подскажите пожалуйста, что я делаю неправильно (прикладываю файл)

К сообщению приложен файл: 9014273.xltm (15.1 Kb)

Ответить

krosav4ig

Дата: Вторник, 15.12.2015, 23:07 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 989 ±

Замечаний: 0% ±

Excel 2007,2010,2013

Gamid, для вопросов по VBA есть отдельная ветка
по теме - пробуйте так
[vba]

Код

Sub pt()
    Dim s As Variant
retry:
    s = InputBox("vvedi chislo")
    If Not IsDate(s) Then
        If MsgBox("Введены данные в неверном фогрмате." & vbLf & "Повторить?", _
                  vbExclamation Or vbYesNo, "Ошибка") = vbYes Then
            GoTo retry
        Else: Exit Sub
        End If
    End If
    s = CDate(Format(s, "MM DD YYYY"))
    With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Дата")
        .ClearAllFilters
        .PivotFilters.Add xlSpecificDate, , s
    End With
End Sub

[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Вторник, 15.12.2015, 23:56

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Фильтр в сводной таблице, учитывая условие (Формулы/Formulas)

Страница 1 из 1
1