Свойство PivotField.DatabaseSort (Excel)

Если задано значение True, ручное перемещение элементов в поле сводной таблицы разрешено. Возвращает значение ИСТИНА , если в поле нет элементов, расположенных вручную. Для чтения и записи, Boolean.

Синтаксис

выражение. DatabaseSort

выражение Переменная, представляющая объект PivotField .

Примечания

Свойство DatabaseSort возвращает значение False , если источником данных не является источник данных OLAP.

Это свойство возвращает значение True , если источником данных является OLAP и к полю не применены ни пользовательский порядок, ни автоматическая сортировка.

Присвоение свойству DatabaseSort значения True для сводной таблицы OLAP удалит все настройки порядка и автоматическую сортировку, примененные к этому полю (другими словами, сводная таблица вернется к поведению по умолчанию при установке подключения).

Если для свойства DatabaseSort задать значение False , порядок сортировки будет текущим порядком элементов, если автоматическая сортировка не применяется.

Если для свойства DatabaseSort задано значение True или False , будет выполнено обновление.

Присвоение свойству DatabaseSortзначения True для источника, отличного от OLAP, или поля данных OLAP вызывает ошибку во время выполнения.

Пример

В следующем примере указывается, является ли источник данных источником данных OLAP, и пользователь об этом уведомляется. В этом примере предполагается, что на активном листе существует сводная таблица OLAP.

Sub UseDatabaseSort() 
 
 Dim pvtTable As PivotTable 
 Dim pvtField As PivotField 
 
 Set pvtTable = ActiveSheet.PivotTables(1) 
 Set pvtField = pvtTable.PivotFields("[Product].[Product Family]") 
 
 ' Determine source type for the PivotTable report. 
 If pvtField.DatabaseSort = True Then 
 MsgBox "The source is OLAP; you can manually reorder items." 
 Else 
 MsgBox "The data source might not be OLAP." 
 End If 
 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.