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

Answer 2

或者您可以使用Application.StatusBar这是显示更新的常用方法： Application.StatusBar = "Updating..."

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

2 个答案: