CubeFields.AddSet メソッド (Excel)

新しい CubeField オブジェクトを CubeFields コレクションに追加します。 CubeField オブジェクトは、そのキューブの OLAP プロバイダーで定義されているセットに対応します。

構文

式。AddSet (名前、 キャプション)

式CubeFields オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
名前 必須 文字列型 (String) SETS スキーマ行セットで有効な名前を指定します。
Caption 必須 文字列型 (String) ピボットテーブル ビューに表示されるフィールドを表す文字列を指定します。

戻り値

CubeField

注釈

引数 Name に指定された名前のセットがない場合、AddSet メソッドは実行時エラーを返します。

例

この例では、Microsoft Excel は My Set というタイトルのセットを CubeField オブジェクトに追加しています。 この例では、アクティブなワークシートに OLAP ピボットテーブル レポートが存在し、[製品] というタイトルのフィールドが存在することを想定しています。

Sub UseAddSet() 
 
 Dim pvtOne As PivotTable 
 Dim strAdd As String 
 Dim strFormula As String 
 Dim cbfOne As CubeField 
 
 Set pvtOne = Sheet1.PivotTables(1) 
 
 strAdd = "[MySet]" 
 strFormula = "'{[Product].[All Products].[Food].children}'" 
 
 ' Establish connection with data source if necessary. 
 If Not pvtOne.PivotCache.IsConnected Then pvtOne.PivotCache.MakeConnection 
 
 ' Add a calculated member titled "[MySet]" 
 pvtOne.CalculatedMembers.Add Name:=strAdd, _ 
 Formula:=strFormula, Type:=xlCalculatedSet 
 
 ' Add a set to the CubeField object. 
 Set cbfOne = pvtOne.CubeFields.AddSet(Name:="[MySet]", _ 
 Caption:="My Set") 
 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。

  • Last updated on