MyTetra Share
Делитесь знаниями!
Фильтр по значению из ячейки()
30.01.2018
09:05
Текстовые метки: k_Фильтры сводной,
Раздел: VBA - Сводные

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.52
Яндекс индекс цитирования