对不起，问题还不清楚！

1。 解释所需的逻辑！ "多项选择过滤器"-???? 提供逐步的用户操作和预期结果！

2。 切勿使用"插入文件"附加图像

3。 使用"插入代码"发布代码-无法从屏幕截图中复制代码！ 提供完整的代码。

还有什么？

代码以不可读的形式显示，每行代码之间都有空行！

 strCellMemberListAdr 

是空的！ 其余代码看起来还可以。

从简单的代码开始，然后尝试重现此问题...

只需测试以下代码在我的计算机上的运行情况就完全正常：

显式选项

 昏暗的epm作为新的FPMXLClient.EPMAddInAutomation

 私人子Worksheet_BeforeDoubleClick（ByVal目标为范围，取消为布尔值）
 Dim strDimMembers作为字符串
 昏暗的strConn作为字符串

 如果Target.Address（True，True，xlA1，False）=" $ A $ 1"然后
     取消=正确
     strConn = epm.GetActiveConnection（ActiveSheet）
     strDimMembers = epm.OpenMemberSelector（strConn，" CATEGORY"，""）
     MsgBox strDimMembers
 万一
    
 结束

我无法重现该错误...您必须进行更多调查...可能 与防病毒软件或其他一些奇怪的东西发生冲突！

"我应该如何附加图像？" 简单：

选项明确


     昏暗的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


     万一
   
     结束子




 
 

我正在使用Excel 2016 32位：