Excel vba - 自动刷新 excel sheet 上的标签

Question

我正在尝试通过 vba 脚本自动更新直接位于 Excel sheet（不包含表单）中的标签。

我的 Excel sheet 包含大量文字和工作要做的步骤。每个步骤都有自己的按钮和标签。这就是为什么我决定在每个按钮调用其自己的功能后放置一个标签。

点击按钮后，函数被执行，标签在脚本执行过程中多次变化。尽管如此，我的标签在执行期间没有更新。它仅在最后（执行完成时）更新为最后定义的值。

我试过这几行：

DoEvents

或

Application.ScreenUpdating = True

但是没用。

这是我的脚本：

Private Sub ButtonExcelToWord_Click()

Me.Label.Caption = "Exécution du script..."

Application.ScreenUpdating = True
DoEvents

Me.Label.Caption = "Mise à jour..."

Application.ScreenUpdating = True
DoEvents

.......
End Sub

你能告诉我怎么做吗？如果不做表格就可以做到？

谢谢

Answer 1

你应该使用 StatusBar :) 这是例子。

Answer 2

写 DoEvents 两次就可以了：

Sub TestMe()
    
    Application.ScreenUpdating = True
    Dim i As Long
    For i = 1 To 5
        Me.Label1.Caption = i
        DoEvents
        DoEvents
        Application.Wait Now + #12:00:01 AM#
    Next i
    
End Sub

Excel vba - 自动刷新 excel sheet 上的标签

Excel vba - Refresh automatically a label on an excel sheet

excel

vba

label

refresh