选项明确


     昏暗的epm作为新的FPMXLClient.EPMAddInAutomation


     私人子Worksheet_BeforeDoubleClick（ByVal目标为范围，取消为布尔值）


     昏暗的strCellDoubleClickAdr作为字符串


     昏暗的strCellMemberListAdr作为字符串


     昏暗的wshCurrent作为工作表


     Dim strConnName作为字符串


     Dim strDimName作为字符串


     Dim strDimMembers作为字符串


     Dim strDimMembersArr（）作为字符串


     Dim strFinalDimMembersArr（）作为字符串


     Dim strFinalDimMembersWDescArr（）作为字符串


     Dim strDimMembersWDesc作为字符串


     昏暗lngMaxMemberNum只要长


     调光温度只要


     strCellDoubleClickAdr =" $ E $ 9"


     如果Target.Address（True，True，xlA1，False）= strCellDoubleClickAdr然后


         取消=正确


         设置wshCurrent = ThisWorkbook.ActiveSheet


         strCellMemberListAdr =" $ A $ 12"


         strConnName = epm.GetActiveConnection（ActiveSheet）


         strDimName =" SOC_DIV_PARCEIRA"




         strDimMembers = epm.OpenMemberSelector（strConnName，strDimName，""）
 


         strDimMembers =左（strDimMembers，Len（strDimMembers）-1）


         strDimMembersArr =拆分（strDimMembers，";"）


         lngMaxMemberNum = UBound（strDimMembersArr）


         ReDim strFinalDimMembersArr（0至lngMaxMemberNum）


         ReDim strFinalDimMembersWDescArr（0到lngMaxMemberNum）
      


         对于lngTemp = 0到lngMaxMemberNum


         strFinalDimMembersArr（lngTemp）= Mid（strDimMembersArr（lngTemp），InStrRev（strDimMembersArr（lngTemp），" ["）+ 1，Len（strDimMembersArr（lngTemp））-InStrRev（strDimMembersArr ["]，" 1


         strFinalDimMembersWDescArr（lngTemp）= strFinalDimMembersArr（lngTemp）＆"-"＆epm.GetMemberCaption（strConnName，strDimMembersArr（lngTemp））


         下一个lngTemp


         strDimMembers = Join（strFinalDimMembersArr，"，"）


         strDimMembersWDesc = Join（strFinalDimMembersWDescArr，"，"）


         Target.Value = strDimMembersWDesc


         wshCurrent.Range（strCellMemberListAdr）.Value = strDimMembers


     万一
   
     结束子