首頁猿問請問如何在Excel...

請問如何在Excel VBA中強制屏幕更新

Kubernetes

幕布斯6054654 2020-01-05 08:00:05

我的Excel工具執(zhí)行的任務很長，我正在嘗試通過在狀態(tài)欄中或工作表中某些單元格中提供進度報告來對用戶友好，如下所示。但是屏幕不刷新，或在某個時候停止刷新（例如33％）。任務最終完成，但是進度欄沒有用。我該怎么做才能強制更新屏幕？For i=1 to imax ' imax is usually 30 or so fractionDone=cdbl(i)/cdbl(imax) Application.StatusBar = Format(fractionDone, "0%") & "done..." ' or, alternatively: ' statusRange.value = Format(fractionDone, "0%") & "done..." ' Some code.......Next i我正在使用Excel 2003。

查看完整描述

3 回答

溫溫醬

TA貢獻1752條經(jīng)驗獲得超4個贊

更改文本或格式后，有時工作表中的文本框不會更新，甚至DoEvent命令也無濟于事。

由于Excel中沒有命令以刷新用戶表單的方式刷新工作表，因此有必要使用技巧來強制Excel更新屏幕。

以下命令似乎可以解決問題：

- ActiveSheet.Calculate

- ActiveWindow.SmallScroll

- Application.WindowState = Application.WindowState

反對回復 2020-01-06

守著星空守著你

TA貢獻1799條經(jīng)驗獲得超8個贊

具體來說，如果您正在處理UserForm，則可以嘗試Repaint方法。如果您在表單中使用事件觸發(fā)器，則可能會遇到DoEvents問題。例如，函數(shù)運行時按下的任何鍵都將由DoEvents發(fā)送。鍵盤輸入將在屏幕更新之前進行處理，因此，如果要通過按住鍵盤上的箭頭鍵之一來更改電子表格上的單元格，則單元格更改事件將在主功能完成之前繼續(xù)觸發(fā)。

在某些情況下，不會刷新用戶窗體，因為DoEvents會觸發(fā)事件。但是，即使另一個事件緊接在前一個事件之后，Repaint也會更新UserForm，并且用戶將在屏幕上看到更改。

在UserForm代碼中，它很簡單：

Me.Repaint

反對回復 2020-01-06