Dim n As Integer
Dim m As Integer
For n = 1 To Sheets.Count
    For m = 1 To Sheets(n).PivotTables.Count
        if Sheets(n).PivotTables(m).MDX <> "" then ... ' CUBE
            else ... ' NOT cube
        endif
    Next m

Sub uu()
Dim w As Worksheet, p As PivotTable
  On Error Resume Next
  For Each w In ActiveWorkbook.Worksheets
    For Each p In w.PivotTables
      If p.MDX = "" Then
        ' NOT cube - сюда будет передано управление в случае ошибки
      Else
        ' CUBE
      End If
    Next
  Next
End Sub

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы