MyTetra Share
Делитесь знаниями!
ManualUpdarte
01.09.2017
07:08
Раздел: VBA - Сводные

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

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