MyTetra Share
Делитесь знаниями!
Фильтр по значению из ячейки()
Время создания: 12.10.2019 20:12
Текстовые метки: Фильтр сводной
Раздел: !Закладки - VBA - Excel - Сводные
Запись: xintrea/mytetra_db_adgaver_new/master/base/1515761037iv60ofefvl/text.html на raw.githubusercontent.com

Sub minus_den()

'Stop

'ActiveWorkbook.RefreshAll

Cells(1, 1).value = Cells(1, 1).value - 1

Фильтр_сводной

End Sub

Sub plus_den()


'Stop

'ActiveWorkbook.RefreshAll

Cells(1, 1).value = Cells(1, 1).value + 1

Фильтр_сводной

End Sub



Sub Фильтр_сводной()

Dim oPt As PivotTable

Dim oPf As PivotField

Dim strPfName As String

Dim strVal As String


Set oPt = ActiveSheet.PivotTables(1)


strPfName = "Год"

If ActiveSheet.Name = "Борисов (TTS-TOL)" Then strPfName = strPfName & "_Decl"

strVal = Cells(6, 19).value

Set oPf = oPt.PageFields(strPfName)

фильтр = FnФильтр_сводной(oPf, strVal)


strPfName = ("Неделя")

If ActiveSheet.Name = "Борисов (TTS-TOL)" Then strPfName = strPfName & "_Decl"

strVal = Cells(7, 19).value

Set oPf = oPt.PageFields(strPfName)

фильтр = FnФильтр_сводной(oPf, strVal)

End Sub


Function FnФильтр_сводной(ByVal oPf As PivotField, _

ByVal strVal As String) As Boolean


EventsChange False

Err.Clear


With oPf

.ClearAllFilters

.CurrentPage = strVal

End With

If Len(Err.Description) = 0 Then FnФильтр_сводной = True


EventsChange True


End Function



Так же в этом разделе:
 
MyTetra Share v.0.59
Яндекс индекс цитирования