2011-04-07 40 views
2

我有一個優秀的VBA宏,它不斷更新數據庫。如何在excel表單上顯示vba宏的狀態?

我使用ActiveX控件,在Excel表單上的「開始」按鈕觸發宏。

我想在表格的單元格中的一個顯示狀態爲「工作」,而它是正確

工作在某些錯誤,應該顯示的情況下,「停止工作」。

我該怎麼做?

回答

4

在按鈕的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 
+0

使用'Application.StatusBar',而不是一些隨機的細胞!否則,這是一個好方法。 – 2011-04-08 07:56:59

+2

我從來都不是'Application.StatusBar'的忠實粉絲,因爲我的用戶永遠不會期望在屏幕底部看到任何有意義的東西......我發現將狀態消息放在按鈕旁邊更明顯,我只是點了點頭。但是對於他們自己! – KyleNZ 2011-04-08 13:42:25

3

,或者您可以使用Application.StatusBar這是顯示更新的常用方法: Application.StatusBar = "Updating..."