在Excel中,如何在子例程结束之前获取OLAP请求的结果?
在Excel工作簿的工作表中,我用“工作表\更改”子项扫描单元格的更改 当这个单元格发生变化时,我调用子“OpenTempSheet”,它激活TCD中的一个单元格,并打开一个空白表,其中显示了该单元格内容的激活结果 问题是,当我需要调用另一个子系统进行处理时,结果仅在子系统完成时显示 你能帮我解决这个困难吗在Excel中,如何在子例程结束之前获取OLAP请求的结果?,excel,olap-cube,Excel,Olap Cube,在Excel工作簿的工作表中,我用“工作表\更改”子项扫描单元格的更改 当这个单元格发生变化时,我调用子“OpenTempSheet”,它激活TCD中的一个单元格,并打开一个空白表,其中显示了该单元格内容的激活结果 问题是,当我需要调用另一个子系统进行处理时,结果仅在子系统完成时显示 你能帮我解决这个困难吗 子工作表\u更改(ByVal目标作为范围) 将pvtTable设置为数据透视表 Set pvtTable=ActiveSheet.PivotTables(1) 如果不相交(目标,Me.Ran
子工作表\u更改(ByVal目标作为范围)
将pvtTable设置为数据透视表
Set pvtTable=ActiveSheet.PivotTables(1)
如果不相交(目标,Me.Range(“B13”))则为零
Application.EnableEvents=False
调用OpenTempSheet
Application.Wait(现在+时间值(“0:00:10”))
呼叫测试
Application.EnableEvents=True
如果结束
端接头
子OpenTempSheet()
Dim colNum为整数,rowNum为整数
'单击tcd的单元格
使用工作表(“PFX FAIT Par UATSE”)
colNum=Application.WorksheetFunction.Match(“NBContrreCoglobal”,.Rows(13),0)
rowNum=Application.WorksheetFunction.Match(“总计”和.Range(“B14”).Value、.Columns(2),0)
.Cells(rowNum,colNum).ShowDetail=True
以
端接头