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

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

Синтаксис

expression. 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 и обратная связь.