返回列表 上一主題 發帖

自訂巨集的按鈕是否可以快速從A電腦轉換至B電腦

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2010-12-15 16:29 | 顯示全部帖子
回復 1# jntseng
將下列的程式碼複製到一般模組內(Module)存檔後到任一PC都可用.(版本要相容的)
請修改 Private Sub Test() 為你設定好的巨集
  1. Option Explicit
  2. Sub Auto_Open()
  3.     On Error Resume Next
  4.     Application.CommandBars("MyBar").Delete
  5.     With CommandBars.Add("MyBar", , , True)
  6.         With .Controls.Add(1)
  7.             .Caption = "自訂指令A"
  8.                 .FaceId = 263
  9.                 .Style = 3
  10.                 .OnAction = "TEST"  '指定設定好的巨集名稱
  11.         End With
  12.         With .Controls.Add(1)
  13.             .Caption = "自訂指令B"
  14.                 .FaceId = 331
  15.                 .Style = 3
  16.                 .OnAction = "TEST"   '指定設定好的巨集名稱
  17.         End With
  18.         .Visible = True
  19.     End With
  20. End Sub
  21. Private Sub Test()  '設定好的巨集名稱
  22.     Dim S$
  23.     Select Case Val(Application.Version)
  24.         Case 12
  25.             S = "Excel 2007"
  26.         Case 11
  27.             S = "Excel 2003"
  28.         Case 10
  29.             S = "Excel 2002"
  30.         Case 9
  31.             S = "Excel 2000"
  32.         Case 8
  33.             S = "Excel 97"
  34.         Case 7
  35.             S = "Excel 95"
  36.         Case 5
  37.             S = "Excel 5.0"
  38.     End Select
  39.     With Application.CommandBars.ActionControl
  40.         MsgBox "電腦名稱　 = " & Environ("ComputerName") & vbLf & _
  41.         "使用者姓名 = " & Environ("UserName") & vbLf & _
  42.         "Excel 版本   = " & S, , .Caption
  43.         If .Caption = "自訂指令A" Then
  44.             .FaceId = IIf(.FaceId = 263, 66, 263)
  45.         ElseIf .Caption = "自訂指令B" Then
  46.             .FaceId = IIf(.FaceId = 343, 331, 343)
  47.         End If
  48.     End With
  49. End Sub
複製代碼

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2010-12-15 20:00 | 顯示全部帖子
回復 4# mistery
1.匯入模組的後還要 存檔後再開檔 或 執行巨集或 手動 才會達到樓主的效果
2.不是自動轉入到新PC,   是隨者檔案跑.
3.會包含當初自訂VBA用的按鈕圖案嗎? . 輸入自定 FaceId No .就行了
紅色數字是按鈕圖案的代號
程式碼  -> FaceId = 263

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 2010-12-18 10:53 | 顯示全部帖子
本帖最後由 GBKEE 於 2010-12-18 10:56 編輯

回復 7# jntseng
    With CommandBars.Add("MyBar", , , True)  '這是新增加一個工具列   
        With .Controls.Add(1)                         '新增加一個工具列-> 新增指令按鈕
               .Caption = "自訂指令A"               '按鈕名稱
                .FaceId = 263                             '按鈕標題
                .Style = 3                                   '按鈕形式
                你所問的->   "在A電腦寫了一些巨集,且已設定了工具列的按鈕,想將A 設定好的巨集  可以直接拿至B電腦用嗎"
                                   "TEST是示範給你看的 " 修改TEST為你在A電腦寫了一些巨集名稱 "
                                   "存檔後 可以直接拿到其他的電腦用
                .OnAction = "TEST"                     '按下按鈕後所執行的的巨集名稱
              End With
        End With
        .Visible = True
    End With
End Sub
Private Sub Test()  '按下按鈕後所執行的的巨集   
    Dim S$
     '
     '
    With Application.CommandBars.ActionControl    ' 使用中的控制項(按鈕)
        MsgBox "電腦名稱　 = " & Environ("ComputerName") & vbLf & _
        "使用者姓名 = " & Environ("UserName") & vbLf & _
        "Excel 版本   = " & S, , .Caption
        If .Caption = "自訂指令A" Then
            .FaceId = IIf(.FaceId = 263, 66, 263)
          '  .FaceId 為控制項(按鈕)按鈕圖示的 ID 數值-> IIf ( 使用中的控制項(按鈕)  當ID=263,傳回66 ,不為263傳回263)
        ElseIf .Caption = "自訂指令B" Then
            .FaceId = IIf(.FaceId = 343, 331, 343)
        End If
    End With
End Sub
FaceId的ID 數值 請看附檔是網路抓下來的
RE.rar (29.66 KB)

TOP

        靜思自在 : 屋寬不如心寬。
返回列表 上一主題