ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

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

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE

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

TOP

        ÀR«ä¦Û¦b : ¡i¬O§_µo´§¤F¨}¯à¡H¡j¤H¶¡¹Ø©R¦]¬°µu¼È¡A¤~§óÅã±o¬Ã¶Q¡CÃø±o¨Ó¤@½ë¤H¶¡¡AÀ³°Ý¬O§_¬°¤H¶¡µo´§¤F¦Û¤vªº¨}¯à¡A¦Ó¤£­n¤@¨ý¨Dªø¹Ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD