acdx

帖子: 132
主題: 56
精華: 0
積分: 190
點名: 0
作業系統: Win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2012-5-17
最後登錄: 2024-4-29

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-12-5 00:59 | 顯示全部帖子

如何將VBA程式轉成增益集?

已寫好一個VBA程式，如何將它轉成增益集?
有事過直接另存新檔成.xlam格式卻無法成功加入該增益集
請問我的問題出在哪裡?

樓主熱帖

acdx

中學生 Rank: 2

帖子: 132
主題: 56
精華: 0
積分: 190
點名: 0
作業系統: Win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2012-5-17
最後登錄: 2024-4-29

2^#

發表於 2012-12-6 14:44 | 顯示全部帖子

回復 2# GBKEE

轉存成.xlam，將他新增到增益集

卻還是看不到

請問問題是出在哪?

TOP

acdx

中學生 Rank: 2

帖子: 132
主題: 56
精華: 0
積分: 190
點名: 0
作業系統: Win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2012-5-17
最後登錄: 2024-4-29

3^#

發表於 2012-12-6 15:14 | 顯示全部帖子

回復 4# GBKEE

有加入了我要新增的就是"Add_Sheet"
加入後還是沒有出現

TOP

acdx

中學生 Rank: 2

帖子: 132
主題: 56
精華: 0
積分: 190
點名: 0
作業系統: Win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2012-5-17
最後登錄: 2024-4-29

4^#

發表於 2012-12-7 16:01 | 顯示全部帖子

回復 6# GBKEE
VBA裡有看到，但我希望可以出現在功能表裡

TOP

acdx

中學生 Rank: 2

帖子: 132
主題: 56
精華: 0
積分: 190
點名: 0
作業系統: Win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2012-5-17
最後登錄: 2024-4-29

5^#

發表於 2012-12-7 23:49 | 顯示全部帖子

回復 8# GBKEE
Excel 2007有

TOP

acdx

中學生 Rank: 2

帖子: 132
主題: 56
精華: 0
積分: 190
點名: 0
作業系統: Win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2012-5-17
最後登錄: 2024-4-29

6^#

發表於 2013-5-14 12:39 | 顯示全部帖子

終於找到答案了要在Workbook設定Open以及BeforeClose即會出現在自訂工具列
======================================
Private Sub Workbook_Open()
   Dim myNewBar As CommandBar          '宣告工具列物件
   Dim myButton1 As CommandBarButton '宣告工具列按鈕物件
   Dim myButton2 As CommandBarButton

   Set myNewBar = Application.CommandBars.Add    '新增一個工具列
   myNewBar.Name = "Tool-Bar"                            '工具列命名

   With myNewBar
      Set myButton2 = .Controls.Add(msoControlButton)
============================================
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Tool-Bar").Delete
End Sub
      With myButton2
            .Style = msoButtonCaption
            .BeginGroup = True
            .Caption = "Acoustic Toolbox"                '顯示在工具列上的按鈕文字
            .TooltipText = "ToolBox"          '滑鼠移過去時，所顯示的提示文字
            .FaceId = 159                      '小圖示
            .Tag = "MyCustomTag"
            .OnAction = "ToolBox"    '設定按下此鍵時所要執行的巨集
      End With

      .Position = msoBarTop          '工具列擺放在上層
      .Visible = True
   End With
End Sub

TOP

acdx

中學生 Rank: 2

帖子: 132
主題: 56
精華: 0
積分: 190
點名: 0
作業系統: Win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2012-5-17
最後登錄: 2024-4-29

7^#

發表於 2013-7-15 16:39 | 顯示全部帖子

解決了
上來分享一下也順便解釋我原先的問題點(一開始描述的不好讓版上大大很難懂抱歉)
要使增益集可以出現在"自訂工具列"中需加入Auto_Open

Private Sub Workbook_Open()
   Dim myNewBar As CommandBar          '宣告工具列物件
   Dim myButton1 As CommandBarButton '宣告工具列按鈕物件
   Dim myButton2 As CommandBarButton

   Set myNewBar = Application.CommandBars.Add    '新增一個工具列
   myNewBar.Name = "Tool-Bar"                            '工具列命名

   With myNewBar
      Set myButton2 = .Controls.Add(msoControlButton)

      With myButton2
            '.Style = msoButtonCaption '只顯示文字底下這3種型式選一種
            '.Style = msoButtonIcon    '只顯示小圖示
            '同時顯示文字和小圖示
            .Style = msoButtonIconAndCaption 'msoComboLabel
            .BeginGroup = True
            .Caption = "ToolBox"                '顯示在工具列上的按鈕文字
            .TooltipText = "ToolBox"          '滑鼠移過去時，所顯示的提示文字
            .FaceId = 435                      '小圖示
            .Tag = "MyCustomTag"
            .OnAction = "ToolBox"    '設定按下此鍵時所要執行的巨集
      End With

      .Position = msoBarBottom 'Top          '工具列擺放在上層
      .Visible = True
   End With
End Sub
另外還要寫一個關閉的程式
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Tool-Bar").Delete
End Sub

TOP