[發問] 兩個工作表的 commandbar

　暱稱: 伊恩

帖子: 97
主題: 33
精華: 0
積分: 129
點名: 0
作業系統: Win 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2019-5-7
最後登錄: 2022-8-25

2^#

發表於 2019-7-24 17:05 | 只看該作者

回復 1# s13030029
Thisworkbook 程式碼

'自訂工具列
Dim Abar As CommandBar '宣告工具列物件
Private Sub Workbook_Open()
C = MsgBox("功能選單在上方工具列的「增益集」裡!!!", vbExclamation, "使用方法")
For Each Abar In Application.CommandBars
If Not Abar.BuiltIn Then Abar.Delete
Next
'宣告工具列按鈕物件
Dim myButton1 As CommandBarButton '選擇使用說明
Dim myButton2 As CommandBarButton '選擇管制計畫表
'新增一個工具列
Set Abar = Application.CommandBars.Add(Name:="畫面選擇")
With Abar
'畫面選擇----------------------------------------------
'使用說明
Set myButton1 = .Controls.Add(msoControlButton)
With myButton1
.Style = msoButtonIconAndCaption '同時顯示文字和小圖示
.BeginGroup = True
.Caption = "使用說明" '顯示在工具列上的按鈕文字
'.TooltipText = "畫面選擇" '滑鼠移過去時，所顯示的提示文字
.FaceId = 487 '小圖示
.Tag = "MyCustomTag"
.OnAction = "選擇使用說明" '設定按下此鍵時所要執行的巨集
End With
'管制計畫表
Set myButton2 = .Controls.Add(msoControlButton)
With myButton2
.Style = msoButtonIconAndCaption '同時顯示文字和小圖示
.BeginGroup = True
.Caption = "管制計畫表" '顯示在工具列上的按鈕文字
'.TooltipText = "畫面選擇" '滑鼠移過去時，所顯示的提示文字
.FaceId = 69 '小圖示
.Tag = "MyCustomTag"
.OnAction = "選擇管制計畫表" '設定按下此鍵時所要執行的巨集
End With
.Position = msoBarTop '工具列擺放在上層
.Visible = True
End With
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Abar As CommandBar
For Each Abar In Application.CommandBars
If Not Abar.BuiltIn Then Abar.Delete
Next
End Sub

複製代碼

帖子: 323
主題: 6
精華: 0
積分: 313
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2025-5-3

3^#

發表於 2019-7-24 18:03 | 只看該作者

Private Sub Workbook_BeforeClose(Cancel As Boolean)

      If Excel.Application.Workbooks.Count = 1 Then
      Dim Abar As CommandBar
      For Each Abar In Application.CommandBars
         If Not Abar.BuiltIn Then Abar.Delete
      Next
      End If

End Sub

　暱稱: 伊恩

帖子: 97
主題: 33
精華: 0
積分: 129
點名: 0
作業系統: Win 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2019-5-7
最後登錄: 2022-8-25

4^#

發表於 2019-7-24 21:13 | 只看該作者

回復 3# jackyq
原來如此~瞭解了~謝謝~~

　暱稱: 伊恩

帖子: 97
主題: 33
精華: 0
積分: 129
點名: 0
作業系統: Win 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2019-5-7
最後登錄: 2022-8-25

5^#

發表於 2019-8-6 14:47 | 只看該作者

回復 3# jackyq

大大妳好~
我有遇到一個問題，就是現在我有兩檔案，但是是不一樣的commandbar，我先打開一個後，再打開第二個時，第二個的commandbar會蓋掉第一個的commandbar，該怎麼辦@@

帖子: 323
主題: 6
精華: 0
積分: 313
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2025-5-3

6^#

發表於 2019-8-6 15:54 | 只看該作者

本帖最後由 jackyq 於 2019-8-6 15:56 編輯

Private Sub Workbook_Open()

' For Each Abar In Application.CommandBars
'       If Not Abar.BuiltIn Then Abar.Delete
'    Next

'宣告工具列按鈕物件
Dim myButton1 As CommandBarButton  '選擇使用說明
Dim myButton2 As CommandBarButton  '選擇管制計畫表

'新增一個工具列
on error resume next
Set Abar = Application.CommandBars.Add(Name:="畫面選擇")
if err then exit sub
on error goto 0
C = MsgBox("功能選單在上方工具列的「增益集」裡!!!", vbExclamation, "使用方法")

With Abar
'畫面選擇----------------------------------------------
      '使用說明
      Set myButton1 = .Controls.Add(msoControlButton)
      With myButton1
         .Style = msoButtonIconAndCaption '同時顯示文字和小圖示
         .BeginGroup =

.................................................

　暱稱: 伊恩

帖子: 97
主題: 33
精華: 0
積分: 129
點名: 0
作業系統: Win 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2019-5-7
最後登錄: 2022-8-25

7^#

發表於 2019-8-7 08:26 | 只看該作者

回復 6# jackyq [
謝謝大大~~
這樣的方法是可以用
就是同時顯示
但是還要想想要如何避免使用者去按到不是該檔案的工具列才行@@
畢竟巨集用的不一樣...Orz

帖子: 323
主題: 6
精華: 0
積分: 313
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2025-5-3

8^#

發表於 2019-8-7 09:04 | 只看該作者

'自訂工具列
Dim Abar As CommandBar '宣告工具列物件
Dim 已提示 As Boolean

Private Sub Workbook_Open()
If 已提示 = False Then
   已提示 = True
   C = MsgBox("功能選單在上方工具列的「增益集」裡!!!", vbExclamation, "使用方法")
End If
For Each Abar In Application.CommandBars
      If Not Abar.BuiltIn Then Abar.Delete
Next

'宣告工具列按鈕物件
Dim myButton1 As CommandBarButton  '選擇使用說明
Dim myButton2 As CommandBarButton  '選擇管制計畫表

'新增一個工具列
Set Abar = Application.CommandBars.Add(Name:="畫面選擇")
With Abar
'畫面選擇----------------------------------------------
      '使用說明
      Set myButton1 = .Controls.Add(msoControlButton)
      With myButton1
         .Style = msoButtonIconAndCaption '同時顯示文字和小圖示
         .BeginGroup = True
         .Caption = "使用說明"          '顯示在工具列上的按鈕文字
         '.TooltipText = "畫面選擇"       '滑鼠移過去時，所顯示的提示文字
         .FaceId = 487                   '小圖示
         .Tag = "MyCustomTag"
         .OnAction = "選擇使用說明"       '設定按下此鍵時所要執行的巨集
      End With
      '管制計畫表
      Set myButton2 = .Controls.Add(msoControlButton)
      With myButton2
         .Style = msoButtonIconAndCaption '同時顯示文字和小圖示
         .BeginGroup = True
         .Caption = "管制計畫表"       '顯示在工具列上的按鈕文字
         '.TooltipText = "畫面選擇"       '滑鼠移過去時，所顯示的提示文字
         .FaceId = 69                   '小圖示
         .Tag = "MyCustomTag"
         .OnAction = "選擇管制計畫表"    '設定按下此鍵時所要執行的巨集
      End With
      .Position = msoBarTop             '工具列擺放在上層
      .Visible = True
End With
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Abar As CommandBar
For Each Abar In Application.CommandBars
      If Not Abar.BuiltIn Then Abar.Delete
Next
End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Workbook_Open
End Sub

　暱稱: 伊恩

帖子: 97
主題: 33
精華: 0
積分: 129
點名: 0
作業系統: Win 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2019-5-7
最後登錄: 2022-8-25

9^#

發表於 2019-8-7 13:19 | 只看該作者

回復 8# jackyq
謝謝大大~這是我要的~~
不過我想請問下面這段是什麼樣的用法???
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Workbook_Open
End Sub
是當視窗活動時再執行一次Workbook_Open嗎?

帖子: 323
主題: 6
精華: 0
積分: 313
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2025-5-3

10^#

發表於 2019-8-7 21:14 | 只看該作者

回復 9# s13030029

視窗從非活動變成活動的那一霎那

再執行一次Workbook_Open