True に設定すると、ピボットテーブル フィールド内のアイテムの位置を手動で変更できます。 フィールドに手動配置されたアイテムがない場合は True を返します。 値の取得と設定が可能なブール型 (Boolean) の値です。
構文
式。DatabaseSort
式PivotField オブジェクトを表す変数。
注釈
DatabaseSort プロパティは、データ ソースが OLAP データ ソースでない場合は False を返します。
このプロパティは、データ ソースが OLAP で、フィールドにユーザー設定の順序付けも自動並べ替えも適用されていない場合は、True を返します。
OLAP ピボットテーブルの DatabaseSort プロパティを true に設定すると、フィールドに適用されているユーザー設定の順序付けや自動並べ替えが削除されます (つまり、ピボットテーブルは接続が確立されたときの既定の動作に戻ります)。
DatabaseSort プロパティを False に設定すると、自動並べ替えが適用されていなければ、並べ替え順はアイテムの現在の順序になります。
DatabaseSort プロパティを True または False に設定すると、更新プログラムが発生します。
非 OLAP ソースまたは OLAP データ フィールドの場合、DatabaseSort プロパティを True に設定すると、実行時エラーが発生します。
例
次の使用例は、データ ソースが 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 のサポートおよびフィードバックを参照してください。