HypGetCellRangeForMbrCombination
Describes the Oracle Smart View for Office VBA function, HypGetCellRangeForMbrCombination.
Cloud data provider types: Oracle Analytics Cloud - Essbase, Planning, Planning Modules, Financial Consolidation and Close, Tax Reporting
On-premises data provider types: Oracle Essbase, Oracle Hyperion Planning, 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