每页不同的状态栏消息

我使用以下基本命令来显示状态栏消息; 已经指定了快捷键“Ctrl + O”来显示用户表单。

Application.StatusBar = "<<<<< Ctrl + O to show options >>>>>" 

我有一个新的工作表，我想链接到另一个用户的forms。 有没有办法让当前的状态栏消息只显示在一个工作表（在这个例子中“所有数据”），并在另一个工作表上显示另一个状态栏消息？

Answer 1

只是一个除了你的答案。 而不是把代码放在每张表格中，而是在“Thisworkbook”模块/表格中编码，并使用类似于下面的内容

 Private Sub Workbook_SheetActivate(ByVal Sh As Object) If Sh.Name = "Sheet1" Then Application.StatusBar = "Hello World" ElseIf Sh.Name = "Sheet2" Then Application.StatusBar = "Hello World123" Else Application.StatusBar = False End If End Sub 

如果您想更改工作表名称，也可以在下面使用

 Private Sub Workbook_SheetActivate(ByVal Sh As Object) If Sh.Index = 1 Then Application.StatusBar = "Hello World" ElseIf Sh.Index = 2 Then Application.StatusBar = "Hello World123" Else Application.StatusBar = False End If End Sub 

Answer 2

我find了答案。 不知道这是否是最好的解决scheme，但它对我有用。 我为每个工作表添加了一个Private Sub Worksheet_Activate（）。 我不想在我添加的状态栏上显示消息…

 Application.StatusBar = False 

…我曾经想要一个我添加的信息;

 Application.StatusBar = 'your text here