MyTetra Share
Делитесь знаниями!
Pt_Пересчет_таблиц
Время создания: 12.10.2019 20:12
Раздел: !Закладки - VBA - Excel - Сводные
Запись: adgaver/mytetra_base_New/master/base/15047705181qy9pfyatq/text.html на raw.githubusercontent.com

'### Пересчет сводных таблиц

Function FnManualUpdatePt(ByVal strShName As String, _

ByVal bVal As Boolean) As Boolean

'strShName - имя листа

'bVal - включить\отключить


Dim oPt As PivotTable

On Error Resume Next

With ThisWorkbook.Sheets(strShName)

If .PivotTables.Count > 0 Then

For Each oPt In .PivotTables 'цикл по всем сводным таблицам

oPt.ManualUpdate = bVal

Next 'oPt

End If

End With

FnManualUpdatePt = True

End Function

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