HypGetCellRangeForMbrCombination

Oracle Smart View for OfficeのVBA関数、HypGetCellRangeForMbrCombinationについて説明します。

クラウド・データ・プロバイダ・タイプ: Oracle Essbase、Planning、Planning Modules、Financial Consolidation and Close、Tax Reporting

オンプレミス・データ・プロバイダ・タイプ: Oracle Essbase、Oracle Hyperion Planning、Oracle Hyperion Financial Management

説明

HypGetCellRangeForMbrCombination()は、選択したメンバーの組合せのセル範囲を取得します。

構文

HypGetCellRangeForMbrCombination (vtSheetName, vtDimNames, vtMbrNames, vtCellIntersectionRange)

By Val vtSheetName As Variant

ByRef vtDimNames As Variant

ByRef vtMbrNames As Variant

ByRef vtCellIntersectionRange As Variant

パラメータ

vtSheetName: 関数を実行するワークシートの名前。vtSheetNameがNullまたはEmptyの場合、アクティブなワークシートが使用されます。

vtDimNames: 入力変数。ディメンション名の配列

vtMbrNames: 入力変数。ディメンションに対応するメンバー名の配列(同じ順序)

vtCellIntersectionRange: 出力変数。グリッドのセルの範囲

戻り値

正常に終了した場合はSS_OKを戻し、それ以外の場合は該当するエラー・コードを戻します。

例

Public Declare Function HypGetCellRangeForMbrCombination Lib "HsAddin" (ByVal vtSheetName As Variant, ByRef vtDimNames() As Variant, ByRef vtMbrNames() As Variant, ByRef vtCellIntersectionRange As Variant) As Long
Sub Example_HypGetCellRangeForMbrCombination()

		Dim oRet As Long
		Dim oSheetName As String
		Dim oSheetDisp As Worksheet
		Dim vtDimNames(3) As Variant
		Dim vtMbrNames(3) As Variant
		Dim vtReturnCellRange As Variant
		Dim oRange As Range
	
		'oSheetName = Empty
		'Set oSheetDisp = Worksheets(oSheetName$)

		vtDimNames(0) = "Measures"
		vtDimNames(1) = "Market"
		vtDimNames(2) = "Year"
		vtDimNames(3) = "Product"
		'vtDimNames(4) = ""

		vtMbrNames(0) = "Sales"
		vtMbrNames(1) = "New York"
		vtMbrNames(2) = "Year"
		vtMbrNames(3) = " Product"
		'vtMbrNames(4) = ""

oRet = HypGetCellRangeForMbrCombination ("", vtDimNames, vtMbrNames, vtReturnCellRange)

If (oRet = 0) Then
    Set oRange = vtReturnCellRange
End If
End Sub