HypGetCellRangeForMbrCombination

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

HypGetCellRangeForMbrCombination (vtSheetName [in], ppvtDimNames [in], ppvtMbrNames [in], pvtCellIntersectionRange [out])

By Val vtSheetName As Variant

ByRef vtDimNames As Variant

ByRef vtMbrNames As Variant

ByRef vtCellIntersectionRange As Variant

vtSheetName: For future use. Currently the active sheet is used.

ppvtDimNames: Array of dimension names

ppvtMbrNames: Array of member names corresponding to the dimensions (in the same order)

pvtCellIntersectionRange: Range of the cell(s) on the grid

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

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 GetCellRangeForMbrCombination()

		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