M?u macro ? tr? v? ID cho m?t i?u khi?n CommandBar

D?ch tiu ? D?ch tiu ?
ID c?a bi: 162814 - Xem s?n ph?m m bi ny p d?ng vo.
Bung t?t c? | Thu g?n t?t c?

? Trang ny

TM T?T

Id ti s?n cho ?i t?ng CommandBar s? d?ng duy nh?t s? cho m?i thanh ?c xy d?ng trong menu, phm t?t thanh menu, menu con, m?c tr?nh n, ho?c thanh cng c?. Cc Id th?ng ?c yu c?u khi b?n tham kh?o m?t ki?m sot trn m?t l?nh thanh. Visual Basic cho cc ?ng d?ng v? m v d? trong bi vi?t ny tr? l?i Id cho nhi?u Commandbar i?u khi?n.

THNG TIN THM

? bi?t thm chi ti?t, nh?p vo s? bi vi?t sau y ? xem cc bi vi?t trong c s? ki?n th?c Microsoft:
159466XL97: Danh sch cc ID s? ? built-in l?nh thanh i?u khi?n

Microsoft cung c?p cc v d? v? l?p tr?nh ? minh ho? ch?, khng c b?o hnh ho?c th? hi?n hay ng? ?. i?u ny bao g?m, nhng khng gi?i h?n ? b?o ?m ng? ? kh? nng bn hng ho?c t?p th? d?c cho m?t c? th? m?c ch. Bi vi?t ny gi? ?nh r?ng b?n ? quen thu?c v?i cc chng tr?nh ngn ng? ang ?c ch?ng minh v v?i nh?ng cng c? ?c s? d?ng ? t?o ra v g? l?i th? t?c. Microsoft h? tr? cc k? s c th? gip gi?i thch cc ch?c nng c?a m?t th? t?c c? th?, nhng h? s? khng s?a ?i cc V d? ? cung c?p thm ch?c nng ho?c xy d?ng quy tr?nh ? p ?ng c?a b?n yu c?u c? th?.

Tr?nh n trn m?t thanh Menu

V d? v? m sau tr? v? Id cho cc Cng cu tr?nh n xy d?ng - trong bi?u ? thanh menu:
   Sub File_Id

      Dim x as Object
      set x = CommandBars("Chart Menu Bar").Controls("Tools")
      MsgBox x.Caption & Chr(13) & x.Id

   End Sub
				

Tr?nh n l?nh trn m?t n

V d? v? m sau tr? v? Id cho l?nh Exit trn cc Tp tr?nh n c?a thanh menu ?c xy d?ng trong b?ng tnh:
   Sub FileExit_Id()

      Dim x as Object
      set x = CommandBars("Worksheet Menu Bar").Controls("File") _
      .Controls("Exit")
      MsgBox x.Caption & Chr(13) & x.Id

   End Sub
				

L?nh trn m?t menu con c?a m?t tr?nh n phm t?t

V d? v? m sau tr? v? cc Id cho Calculated M? l?nh vo cc Cng thc menu con c?a PivotTable thanh menu phm t?t:
   Sub SubMenu_Command_Id()

      Dim x as Object
      set x = CommandBars("PivotTable Context Menu").Controls("Formulas") _
      .Controls("Calculated Item...")
      MsgBox x.Caption & Chr(13) & x.Id

   End Sub
				
V d? v? m sau tr? v? Id cho t?t c? cc m?c trn cc Cng th?c menu con c?a PivotTable thanh tr?nh n phm t?t:
   Sub GetAll_Submenu_Ids()

      Dim ctrl as Object
      For Each ctrl in CommandBars("PivotTable Context Menu") _
      .Controls("Formulas").Controls
         MsgBox ctrl.Caption & Chr(13) & ctrl.Id
      Next ctrl

   End Sub
				

THAM KH?O

? bi?t thm thng tin v? l?p tr?nh ty bi?n l?nh qu?y bar, trong Visual Basic Editor, b?m cc Office Tr? l?, lo?i Ty bi?n cc menu, b?m Tim kim, v sau b?m vo ? xem "T?ng quan c?a cc l?nh thanh."

Chu y N?u cc tr? l? l ?n, b?m cc Office Tr? l? nt trn thanh cng c? tiu chu?n. N?u Microsoft Visual Basic Tr? gip khng ?c ci ?t trn my tnh c?a b?n, xem cc bi vi?t sau y trong cc C s? ki?n th?c Microsoft:
120802 Vn ph?ng: Lm th? no ? thm/lo?i b? chng tr?nh Office duy nh?t ho?c thnh ph?n

Thu?c tnh

ID c?a bi: 162814 - L?n xem xt sau cng: 20 Thang Chin 2011 - Xem xt l?i: 3.0
p d?ng
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Excel 97 Standard Edition
T? kha:
kbhowto kbprogramming kbmt KB162814 KbMtvi
My d?ch
QUAN TRONG: Bi vi?t ny ?c d?ch b?ng ph?n m?m d?ch my c?a Microsoft ch? khng ph?i do con ng?i d?ch. Microsoft cung c?p cc bi vi?t do con ng?i d?ch v c? cc bi vi?t do my d?ch ? b?n c th? truy c?p vo t?t c? cc bi vi?t trong C s? Ki?n th?c c?a chng ti b?ng ngn ng? c?a b?n. Tuy nhin, bi vi?t do my d?ch khng ph?i lc no c?ng hon h?o. Lo?i bi vi?t ny c th? ch?a cc sai st v? t? v?ng, c php ho?c ng? php, gi?ng nh m?t ng?i n?c ngoi c th? m?c sai st khi ni ngn ng? c?a b?n. Microsoft khng ch?u trch nhi?m v? b?t k? s? thi?u chnh xc, sai st ho?c thi?t h?i no do vi?c d?ch sai n?i dung ho?c do ho?t ?ng s? d?ng c?a khch hng gy ra. Microsoft c?ng th?ng xuyn c?p nh?t ph?n m?m d?ch my ny.
Nh?p chu?t vo y ? xem b?n ti?ng Anh c?a bi vi?t ny:162814

Cung cp Phan hi

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com