问题描述
在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 (将#修改为@)