如何解决等待完成RefreshALL以继续以下事件
我有一个问题,如果有人有兴趣帮助我,我会很高兴的。
我有一个宏来刷新我的所有工作表并返回到确定的单元格。但是我想等待更新(因为它是外部数据,有时需要一段时间才能完成更新),然后继续步骤如下...
我在想也许是布尔函数,但是我不知道该怎么做(我的意思是写代码)。也许还有其他更好的解决方案...
谢谢!
我使用以下代码(忽略葡萄牙语中的表名):
'
' AtualizarTudo Macro
' Atualiza Base de Dados e Ordena Pelo melhor ajuste de posição
'
'
ActiveWorkbook.RefreshAll
Sheets("Controle").Select
ActiveWorkbook.Worksheets("Controle").ListObjects("Controle_Principal").Sort. _
SortFields.Clear
ActiveWorkbook.Worksheets("Controle").ListObjects("Controle_Principal").Sort. _
SortFields.Add Key:=Range("Controle_Principal[[#All],[Defasagem]]"),SortOn _
:=xlSortOnValues,Order:=xlDescending,DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Controle").ListObjects("Controle_Principal"). _
Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。