MyTetra Share
Делитесь знаниями!
ManualUpdarte
Время создания: 12.10.2019 20:12
Раздел: !Закладки - VBA - Excel - Сводные
Запись: xintrea/mytetra_db_adgaver_new/master/base/1504238924q13vc1aibb/text.html на raw.githubusercontent.com

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

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