excel - 更改状态栏的更新行为

Question

我在 VBScript 中编写了一个 Excel，使我的操作显示在 excel 工作表的左下角并且工作正常，但问题是相同的操作也显示在其他打开的 Excel 工作表中，但与我的操作正在执行的 Excel 工作表。

如何避免其他 Excel 工作表显示相同的操作？

Answer 1

问题是 StatusBar 是全局的，并不特定于每个工作簿。

但是，您可以使用Workbook_Activate和Workbook_Deactivate事件来避免该问题。将以下代码放入ThisWorkbook工作簿的模块中：

Private mVarOldStatusBar As Variant

Private Sub Workbook_Deactivate()
    mVarOldStatusBar = Application.StatusBar
    Application.StatusBar = False
End Sub

Private Sub Workbook_Activate()
    If mVarOldStatusBar <> "" Then _
        Application.StatusBar = mVarOldStatusBar
End Sub