註冊
登錄
首頁
論壇版規
禁止列表
說明
地圖
數位書香
私人消息 (0)
公共消息 (0)
論壇任務 (0)
系統消息 (0)
好友消息 (0)
帖子消息 (0)
麻辣家族討論版版
»
Excel程式區
» 查詢自訂工具列所指定的巨集
返回列表
下一主題
上一主題
發帖
[發問]
查詢自訂工具列所指定的巨集
mygod0403
發短消息
加為好友
mygod0403
當前離線
UID
2009
帖子
23
主題
10
精華
0
積分
60
金錢
60
點名
0
作業系統
winxp
軟體版本
office2003
閱讀權限
20
性別
男
在線時間
53 小時
註冊時間
2010-10-19
最後登錄
2014-10-28
中學生
帖子
23
主題
10
精華
0
積分
60
點名
0
作業系統
winxp
軟體版本
office2003
閱讀權限
20
性別
男
註冊時間
2010-10-19
最後登錄
2014-10-28
1
#
跳轉到
»
倒序看帖
打印
字體大小:
t
T
發表於 2013-5-7 10:23
|
只看該作者
[發問]
查詢自訂工具列所指定的巨集
請問有沒有什麼方法可以快速查出
自訂工具列上的按鈕所對應的
巨集
謝謝……
樓主熱帖
請問一個重覆程式碼使用上的問題
請問如何在程序執行中,在frame加入物件
表單播放gif動畫
請問frame的zorder
請問activex物件位置問題
請問能否將for each next由後往前執行?
請問能否以變數取代程式碼
請問vba匯入的問題
excel 2007自訂工具列的問題
收藏
分享
GBKEE
發短消息
加為好友
GBKEE
當前離線
UID
16
帖子
5923
主題
13
精華
1
積分
5986
金錢
5986
點名
0
作業系統
win10
軟體版本
Office 2010
閱讀權限
150
性別
男
來自
台灣基隆
在線時間
4811 小時
註冊時間
2010-5-1
最後登錄
2022-1-23
超級版主
帖子
5923
主題
13
精華
1
積分
5986
點名
0
作業系統
win10
軟體版本
Office 2010
閱讀權限
150
性別
男
來自
台灣基隆
註冊時間
2010-5-1
最後登錄
2022-1-23
2
#
發表於 2013-5-7 15:50
|
只看該作者
回復
1#
mygod0403
Sub Ex()
Dim C As CommandBar, W As CommandBarControl, i As Integer
i = 1
For Each C In Application.CommandBars
If C.ID = 1 Then '自訂工具列的 ID = 1
Cells(i, "A") = C.Name
For Each W In C.Controls
Cells(i, "B") = W.OnAction
i = i + 1
Next
i = i + 1
End If
Next
End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.
TOP
mygod0403
發短消息
加為好友
mygod0403
當前離線
UID
2009
帖子
23
主題
10
精華
0
積分
60
金錢
60
點名
0
作業系統
winxp
軟體版本
office2003
閱讀權限
20
性別
男
在線時間
53 小時
註冊時間
2010-10-19
最後登錄
2014-10-28
中學生
帖子
23
主題
10
精華
0
積分
60
點名
0
作業系統
winxp
軟體版本
office2003
閱讀權限
20
性別
男
註冊時間
2010-10-19
最後登錄
2014-10-28
3
#
發表於 2013-5-9 10:16
|
只看該作者
回復
2#
GBKEE
感謝GBKEE大
我知道該怎麼做了…
謝謝
TOP
靜思自在 :
人要知福、惜福、再造福。
返回列表
下一主題
上一主題
VB 與 VB.Net
一般電腦軟體討論
EXCEL專屬討論區
Excelㄧ般區
Excel程式區
進階應用專區
OFFICE 系列
Word
PowerPoint
Access
Office不分區
程式語言
VB 與 VB.Net
C 與 C#
Java 與 J#
程式設計不分區
資料庫
ORACLE
My SQL
MS SQL
網頁設計
ASP 與 ASP.NET
PHP
PHP+MySQL 入門實作
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
網頁設計不分區
電腦與作業系統
電腦各種硬體討論
一般電腦軟體討論
論壇事務
管理公告
投訴反映
新手測試
愛 ‧ 生活
公益佈告欄
生活與感動
[收藏此主題]
[關注此主題的新回復]
[通過 QQ、MSN 分享給朋友]
申請友情鏈接
Facebook粉絲