如何解决在Excel中,如何在子例程结束之前获取OLAP请求的结果?
在Excel工作簿的工作表中,我使用“ Worksheet_Change”子菜单扫描单元格的更改。
当此单元格发生变化时,我将其称为“ OpenTempSheet”,它会激活TCD中的一个单元格并打开空白页,并激活该单元格内容的结果。
问题在于,当我需要调用另一个子程序进行处理时,结果仅在子程序完成时显示。
能帮我解决这个困难吗?
Sub Worksheet_Change(ByVal Target As Range)
Dim pvtTable As Pivottable
Set pvtTable = ActiveSheet.Pivottables(1)
If Not Intersect(Target,Me.Range("B13")) Is nothing Then
Application.EnableEvents = False
Call OpenTempSheet
Application.Wait (Now + TimeValue("0:00:10"))
Call test
Application.EnableEvents = True
End If
End Sub
Sub OpenTempSheet()
Dim colNum As Integer,rowNum As Integer
'Click on the cell of a tcd
With Worksheets("PFX fait par UAT_SE")
colNum = Application.WorksheetFunction.Match("NbContreRecoGlobal",.Rows(13),0)
rowNum = Application.WorksheetFunction.Match("Total " & .Range("B14").Value,.Columns(2),0)
.Cells(rowNum,colNum).ShowDetail = True
End With
End Sub
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。