CubeFields.AddSet メソッド (Excel)

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

構文

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

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

パラメーター

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

戻り値

CubeField

注釈

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

例

この例では、Microsoft Excel によって、My Set というタイトルのセットが CubeField オブジェクトに追加されます。 この例では、作業中のワークシートに OLAP ピボットテーブル レポートが存在し、Product というタイトルのフィールドが存在することを前提としています。

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 のサポートおよびフィードバックを参照してください。