[µo°Ý] ¬d¸ß¦Û­q¤u¨ã¦C©Ò«ü©wªº¥¨¶°

mygod0403

½Ð°Ý¦³¨S¦³¤°»ò¤èªk¥i¥H§Ö³t¬d¥X
¦Û­q¤u¨ã¦C¤Wªº«ö¶s©Ò¹ïÀ³ªº¥¨¶°
ÁÂÁ¡K¡K

mygod0403

¦^´_ 2# GBKEE

·PÁÂGBKEE¤j
§Úª¾¹D¸Ó«ç»ò°µ¤F¡K
ÁÂÁÂ

GBKEE

¦^´_ 1# mygod0403

1. Sub Ex()
   
2.     Dim C As CommandBar, W As CommandBarControl, i As Integer
   
3.     i = 1
   
4.     For Each C In Application.CommandBars
   
5.         If C.ID = 1 Then      '¦Û­q¤u¨ã¦Cªº ID = 1
   
6.             Cells(i, "A") = C.Name
   
7.             For Each W In C.Controls
   
8.                 Cells(i, "B") = W.OnAction
   
9.                 i = i + 1
   
10.             Next
    
11.             i = i + 1
    
12.         End If
    
13.     Next
    
14. End Sub

½Æ»s¥N½X