多開Excel檔案, 如何使StatusBar只在所屬檔案顯示

excel vba 狀態列

jasonh 2019-03-12 11:18:42 ‧ 937 瀏覽

同時開多個Excel檔案, 每一檔案均有多個工作表
其中有2個檔案, 於某一工作表有設定StatusBar(狀態列顯示)
如A檔案顯示"ABC", B檔案顯示"123"
希望
A檔案切換工作表會顯示"ABC"
B檔案切換工作表會顯示"123"
當再切換A檔案狀態列, 卻顯示"123"
當開其他Excel檔案時,也會顯示最近顯示的狀態列"123"
請問應如何更改目前所寫的程式
A檔案
Private Sub Worksheet_Activate()
Application.StatusBar = " AAA "
End Sub
B檔案
Private Sub Worksheet_Activate()
Application.StatusBar = " 123 "
End Sub
希望 AB檔案互相切換時
A檔案內, 不論如何切換工作表, 都只會顯示"ABC"
B檔案內, 不論如何切換工作表, 都只會顯示"123"
切換其他Excel檔案, 都不顯示狀態列(顯示default狀態列)

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

1 個回答

paicheng0111

iT邦大師 5 級 ‧ 2019-03-13 08:43:40

最佳解答

其中有2個檔案, 於某一工作表有設定StatusBar(狀態列顯示)

請刪除上面的設定

A活頁簿中(不是工作表)寫

Private Sub Workbook_Activate()
    Application.StatusBar = "ABC"
End Sub

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

B活頁簿中(不是工作表)寫

Private Sub Workbook_Activate()
    Application.StatusBar = "123"
End Sub

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