Excel VBE commandBar control ID 碼的列表 - Excel程式區

[發問] Excel VBE commandBar control ID 碼的列表

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2013-5-21 13:56 | 顯示全部帖子

回復 1# Scott090

Option Explicit
Sub CommandBar_Id()
Dim C As CommandBar, W As CommandBarControl, E As CommandBarControl, I As Integer
On Error Resume Next
For Each C In Application.CommandBars
For Each W In C.Controls
For Each E In W.Controls
Cells(I, "A") = E.Caption
Cells(I, "B") = E.ID
I = I + 1
Next
Next
Next
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2013-5-21 17:38 | 顯示全部帖子

回復 3# Scott090
FindControl(ID:=1561).execute 1561找不到,會是2010的ID不同??
這ID是應用程式自行建立的編碼.

(我用2003)

Option Explicit
Sub CommandBar_ID()
Dim C As CommandBar, W As CommandBarControl, E As CommandBarControl, xl_Id As Integer
On Error Resume Next
For Each C In Application.CommandBars
For Each W In C.Controls
For Each E In W.Controls
If E.Caption Like "檢視程式碼*" Then xl_Id = E.ID
Next
Next
Next
設定引用項目 xl_Id
End Sub
Private Sub 設定引用項目(Bar_ID) '遺漏項存在時用手動刪除,用手動存檔後重新執行程式.
Dim E
On Error Resume Next
With ThisWorkbook.VBProject
For Each E In .References
Debug.Print E.Name
Next
End With
If Err <> 0 Then
Application.CommandBars.FindControl(ID:=Bar_ID).Execute
Application.SendKeys "%T"
Application.SendKeys "R"
End
End If
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2013-7-29 07:36 | 顯示全部帖子

回復 5# Scott090
請執行 2#的程式

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 君子立恆志，小人恆立志。