vba - 如何在Excel工作表上显示vba宏的状态？

Question

我有一个 Excel VBA 宏，它可以连续更新数据库。

我使用 ActiveX 控件、Excel 工作表上的“开始”按钮触发宏。

我想在电子表格的一个单元格正常工作时将其状态显示为“工作”

如果出现错误，它应该显示“停止工作”。

我怎样才能做到这一点？

Answer 1

将其放入按钮的 OnClick 方法中:

Public Sub CommandButton1_Click()
    On Error GoTo ErrorHandler

    Dim msgRange As Range
    ' change this to the cell you want to update
    Set msgRange = ThisWorkbook.Sheets("Sheet1").Range("A1")
    msgRange.Value = "Working"

    ' your code goes here

    msgRange.Value = "Completed"
    Set msgRange = Nothing
    Exit Sub
    ErrorHandler:
        msgRange.Value = "Stopped working: " & Err.Description
        Set msgRange = Nothing
End Sub