HypGetCellRangeForMbrCombination

Data provider types: Oracle Essbase, Oracle Hyperion Planning, Oracle Planning and Budgeting Cloud, Oracle Hyperion Financial Management

Description

HypGetCellRangeForMbrCombination() retrieves the cell range for the selected combination of members.

Syntax

HypGetCellRangeForMbrCombination (vtSheetName, vtDimNames, vtMbrNames, vtCellIntersectionRange)

By Val vtSheetName As Variant

ByRef vtDimNames As Variant

ByRef vtMbrNames As Variant

ByRef vtCellIntersectionRange As Variant

Parameters

vtSheetName: The name of worksheet on which to run the function. If vtSheetName is Null or Empty, the active worksheet is used.

vtDimNames: Input variable; the array of dimension names

vtMbrNames: Input variable; the array of member names corresponding to the dimensions (in the same order)

vtCellIntersectionRange: Output variable; the range of the cell(s) on the grid

Return Value

Returns SS_OK if successful; otherwise, the appropriate error code.

Example

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