Làm thế nào để tuỳ chỉnh menu và Thanh dẫn lái trong Excel

QUAN TRỌNG: Bài viết này được dịch bằng phần mềm dịch thuật của Microsoft và có thể được Cộng đồng Microsoft chỉnh sửa lại thông qua công nghệ CTF thay vì một biên dịch viên chuyên nghiệp. Microsoft cung cấp các bài viết được cả biên dịch viên và phần mềm dịch thuật thực hiện và cộng đồng chỉnh sửa lại để bạn có thể truy cập vào tất cả các bài viết trong Cơ sở Kiến thức của chúng tôi bằng nhiều ngôn ngữ Tuy nhiên, bài viết do máy dịch hoặc thậm chí cộng đồng chỉnh sửa sau không phải lúc nào cũng hoàn hảo. Các bài viết này có thể chứa các sai sót về từ vựng, cú pháp hoặc ngữ pháp, Microsoft không chịu trách nhiệm về bất kỳ sự thiếu chính xác, sai sót hoặc thiệt hại nào do việc dịch sai nội dung hoặc do hoạt động sử dụng của khách hàng gây ra.

Nhấp chuột vào đây để xem bản tiếng Anh của bài viết này: 830502
Bài viết này đã được lưu trữ. Bài viết được cung cấp "nguyên trạng" và sẽ không còn được cập nhật nữa.
Tóm tắt
Bài viết này mô tả cách tuỳ chỉnh menu và Thanh dẫn lái trong Microsoft Excel 2000 và sau đó. Bài viết này chứa các hướng dẫn từng bước và mẫu mã lập trình quản lý và tuỳ chỉnh Thanh dẫn lái, menu, lệnh, menu con và lối tắt menu trong Microsoft Excel.

TRONG TÁC VỤ NÀY

GIỚI THIỆU
Để thực hiện nhiều tác vụ phổ biến liên quan đến tuỳ chỉnh Thanh dẫn lái và menu trong Microsoft Excel 2000, Microsoft Excel 2002 và Microsoft Office Excel 2003, hãy sử dụng hộp thoại tuỳ chỉnh . Để thực hiện nhiều tác vụ nâng cao hoặc chỉnh Thanh dẫn lái và menu tùy chỉnh chương trình, bạn có thể muốn tạo Microsoft Visual Basic cho ứng dụng (VBA).

Để biết thêm thông tin về cách sử dụng hộp thoại tuỳ chỉnh, bấm Trợ giúp Microsoft Excel vào menu Trợ giúp , gõ tuỳ chỉnh Thanh dẫn lái trong hỗ trợ Office hoặc thuật sĩ trả lời, và sau đó bấm tra cứu để xem chủ đề.

Bài viết này có thể giúp bạn tìm hiểu kỹ thuật viết VBA mã để tuỳ chỉnh Thanh dẫn lái, menu, mục menu, menu con và lối tắt menu.

Quay lại đầu trang
Thông tin thêm
Microsoft cung cấp mô hình lập trình để minh hoạ, không bảo hành hoặc rõ ràng hay ngụ ý. Điều này bao gồm, nhưng không giới hạn ở các bảo đảm cho một mục đích cụ thể hoặc sự. Bài viết này giả định rằng bạn đã quen với ngôn ngữ lập trình đang được giải thích và các công cụ được sử dụng để tạo và quy trình gỡ lỗi. Các kỹ sư hỗ trợ Microsoft có thể giúp giải thích các chức năng của một quy trình cụ thể, nhưng họ sẽ không sửa đổi các ví dụ để cung cấp thêm chức năng hoặc xây dựng quy trình nhằm đáp ứng yêu cầu cụ thể của bạn.

Ví dụ trong bài viết này

Ví dụ trong bài viết này sử dụng VBA mã trong Excel 2000, Excel 2002 và Excel 2003 tuỳ chỉnh menu. Để sử dụng macro ví dụ, hãy làm theo các bước sau:
  1. Khởi động Excel.
  2. Trên menu công cụ , trỏ tớiMacro, và sau đó bấm Visual BasicEditor.
  3. Trên menu chèn , nhấp vàomô-đun.
  4. Nhập một trong các mẫu macro từ bài viết này, hoặc youcan sử dụng thao tác sao chép và dán để sao chép mẫu macro để modulesheet một.
  5. Trên menu chạy , bấm vào RunSub/người sử dụng mẫu.
  6. Nếu hộp thoại Macro xuất hiện, bấm themacro tên, và sau đó bấm chạy.
Quay lại đầu trang

Thanh lệnh

Trong Microsoft Office, thanh công cụ, Thanh dẫn lái và lối tắt menu được tất cả điều khiển lập trình như là một loại đối tượng: lệnh thanh. Tất cả các mục sau đây xuất hiện trong VBA CommandBar các đối tượng:
  • Thanh dẫn lái, thanh công cụ và menu lối tắt.
  • Menu trên Thanh dẫn lái và thanh công cụ.
  • Menu con menu, menu con và lối tắt menu.
Bạn có thể thay đổi bất kỳ Thanh dẫn lái cài sẵn hoặc bất kỳ thanh công cụ tích hợp và bạn có thể tạo và chỉnh sửa tuỳ chỉnh thanh công cụ, Thanh dẫn lái và menu phím lối tắt để cung cấp mã VBA. Hiển thị các tính năng của chương trình của bạn với các nút chọn một trên thanh công cụ hoặc nhóm lệnh tên trên menu. Vì thanh công cụ và menu cả thanh lệnh, bạn có thể sử dụng cùng một loại điều khiển.

VBA và trong Microsoft Visual Basic nút chọn một và các mục menu được đại diện bởi CommandBarButton đối tượng. Điều khiển cửa sổ bật lên Hiển thị menu và menu con được biểu thị bởi CommandBarPopup đối tượng. Trong ví dụ sau đây, điều khiển được đặt tên "Menu" và điều khiển được đặt tên "Phụ" là hai điều khiển cửa sổ bật lên Hiển thị menu và menu phụ. Menu và menu con là đối tượng CommandBar duy nhất của các bộ điều khiển.

Trong Microsoft Excel, thanh trình đơn và thanh công cụ được gọi là loại đối tượng có thể lập trình tương tự, đối tượng CommandBar . Bạn sử dụng điều khiển trong đối tượng CommandBar menu, mục menu, menu con và lối tắt menu. Bạn sử dụng một liên tục với mỗi kiểm soát đối số kiểu để xác định loại điều khiển mà bạn muốn sử dụng menu, menu con hoặc lệnh.

Quay lại đầu trang

Hằng số điều khiển

Sau đây là danh sách các các kiểm soát số trong Excel 2003 đã xác định loại điều khiển đồ họa sử dụng một điều khiển Thanh dẫn lái cụ thể:
  • MsoControlActiveX*
  • MsoControlAutoCompleteCombo***
  • MsoControlButton
  • MsoControlButtonDropdown
  • MsoControlButtonPopup
  • MsoControlComboBox
  • MsoControlCustom
  • MsoControlDropdown
  • MsoControlEdit
  • MsoControlExpandingGrid
  • MsoControlGauge
  • MsoControlGenericDropdown
  • MsoControlGraphicCombo
  • MsoControlGraphicDropdown
  • MsoControlGraphicPopup
  • MsoControlGrid
  • MsoControlLabel
  • MsoControlLabelEx***
  • MsoControlOCXDropDown
  • MsoControlPane **
  • MsoControlPopup
  • MsoControlSpinner***
  • MsoControlSplitButtonMRUPopup
  • MsoControlSplitButtonPopup
  • MsoControlSplitDropdown
  • MsoControlSplitExpandingGrid
  • MsoControlWorkPane**
* = Mới trong Microsoft Excel 2000
** = Mới trong Microsoft Excel 2002
= Mới trong Microsoft Office Excel 2003

Quay lại đầu trang

Thanh dẫn lái

Thanh dẫn lái là một loại thanh lệnh. Thanh dẫn lái là loại đối tượng mà bạn thêm menu, mục menu và menu con.

Để biết thêm thông tin về cách quản lý Thanh dẫn lái và các mục menu trong Excel, hãy làm theo các bước sau:
  1. Bắt đầu Microsoft Visual Basic Editor.
  2. Trên menu Trợ giúp , bấm Trợ giúp cơ bản MicrosoftVisual.
  3. Trong hộp Hỗ trợ Office hoặcThuật sĩ trả lời hộp, gõ Thanh dẫn lái, andthen bấm tra cứu.
  4. Trong Excel 2003 và Excel 2002, bấm Thêm andManaging Thanh dẫn lái và các mục Menu. Trong Excel 2000, bấm vào Aboutmenus và thanh công cụ.
Bạn có thể thay đổi cả Thanh dẫn lái và các điều khiển trên Thanh dẫn lái đó tại thời gian chạy. Những thay đổi bạn thực hiện Thanh dẫn lái có thể ảnh hưởng đến giao diện hoặc vị trí của Thanh dẫn lái. Thay đổi bạn thực hiện điều khiển phụ thuộc vào loại điều khiển. Bảng sau liệt kê các thuộc tính phổ biến nhất và các phương pháp để thay đổi trạm đậu, tác vụ hoặc nội dung của điều khiển:
Thuộc tính hoặc phương phápMục đích
ThêmThêm một Thanh dẫn lái bằng cách sử dụng phương pháp bổ sung của đối tượng CommandBars và xác định giá trị đúng cho đối số Thanh dẫn lái .
Kích hoạtNếu thuộc tính cho phép được đặt thành giá trị đúng, người dùng có thể chỉ định thanh hiển thị bằng cách sử dụng mã Visual Basic. Nếu thuộc tính cho phép được đặt thành giá trị sai, người dùng không thể thực hiện thanh hiển thị. Tuy nhiên, Thanh dẫn lái sẽ xuất hiện trong danh sách các thanh lệnh có sẵn.
Bảo vệLàm cho nó có thể giúp bạn bảo vệ thanh tác vụ người dùng cụ thể.
Vị tríXác định vị trí của Thanh dẫn lái mới liên quan đến cửa sổ chương trình. Vị trí của Thanh dẫn lái liên quan đến cửa sổ chương trình có thể là một trong các thuộc tính liên tục sau MsoBarPosition : msoBarLeft, msoBarTop, msoBarRight, msoBarBottom, msoBarFloating, msoBarPopup (dùng để tạo lối tắt menu) hoặc msoBarMenuBar (để sử dụng với Apple Macintosh chỉ).
Hiển thịXác định xem điều khiển được hiển thị hoặc ẩn.

Quay lại đầu trang

Trở về ID để điều khiển thanh lệnh

Mã mẫu sau trả lại ID cho hoạt động thanh:
Sub Id_Control ()Dim myId as Object   set myId = CommandBars("Worksheet Menu Bar").Controls("Tools")   MsgBox myId.Caption & Chr(13) & MyId.IdEnd Sub

Quay lại đầu trang

Xác định tên thanh hoạt động

Mã mẫu sau trả lại tên thanh hoạt động:
Sub MenuBars_GetName()   MsgBox CommandBars.ActiveMenuBar.NameEnd Sub

Quay lại đầu trang

Lưu trạm đậu hoạt động (được xây dựng trong hoặc menu tuỳ chỉnh thanh)

Bạn có thể khai báo biến OriginalMenuBar biến chung để một chương trình con có thể sử dụng trong chương trình con khác, chẳng hạn như một chương trình con Auto_Close. Tuyên bố và sử dụng biến theo cách này sẽ đặt lại người dùng trước thanh trạng thái ban đầu. Mẫu macro sau lại thanh menu:
Public OriginalMenuBar as ObjectSub MenuBars_Capture()   Set OriginalMenuBar = CommandBars.ActiveMenuBarEnd Sub

Quay lại đầu trang

Tạo một thanh lệnh tùy chỉnh

Mã mẫu sau tạo một thanh lệnh tùy chỉnh được đặt tên Thanh lệnh của tôi:
Sub MenuBar_Create() Application.CommandBars.Add Name:="My command bar" End Sub

Bạn cũng có thể tạo một thanh lệnh tùy chỉnh bằng cách sử dụng các tạm thời: = True đối số. Các tạm thời: = True đối số cho phép các thanh lệnh để tự động được đặt lại khi bạn thoát khỏi Excel. Sau mã sử dụng các tạm thời: = True đối số để tạo ra một thanh lệnh tùy chỉnh:
Sub MenuBar_Create()Application.CommandBars.Add Name:="My command bar", Temporary:=TrueEnd Sub
Quay lại đầu trang

Hiển thị thanh lệnh tùy chỉnh

Ví dụ sau tạo Hiển thị Thanh dẫn lái Của tôi tuỳ chỉnh thanh tuỳ chỉnh, và sau đó thay thế Thanh dẫn lái cài sẵn:
Sub MenuBar_Show()Dim myNewBar As Object   Set myNewBar = CommandBars.Add(Name:="Custom1", Position:=msoBarFloating)   ' You must first enable your custom menu bar before you make it visible.   ' Enabling a menu bar adds it to the list of available menu bars on   ' the Customize dialog box.' Setting the menubar property to True replaces the built-in menu bar.   myNewBar.Enabled = True   myNewBar.Visible = TrueEnd Sub

Quay lại đầu trang

Xoá một thanh lệnh tùy chỉnh

Mã mẫu sau xóa Thanh dẫn lái tùy chỉnh tên Tuỳ chỉnh:
Sub MenuBar_Delete()   CommandBars("Custom1").DeleteEnd Sub

Quay lại đầu trang

Ẩn thanh lệnh

Mã mẫu sau loại bỏ sẵn Biểu đồ Thanh dẫn lái danh sách có đơn thanh:
Sub MenuBar_Display()   CommandBars("Chart").Enabled = FalseEnd Sub

Quay lại đầu trang

Hiển thị thanh lệnh

Mã mẫu sau thêm biểu đồ thanh cài sẵn trong danh sách có đơn thanh:
Sub MenuBar_Display()   CommandBars("Chart").Enabled = TrueEnd Sub

Quay lại đầu trang

Khôi phục thanh lệnh cài sẵn

Khôi phục Thanh dẫn lái lại điều khiển mặc định (cho các menu và các mục menu). Mã mẫu sau khôi phục biểu đồ thanh cài sẵn:
Sub MenuBar_Restore()   CommandBars("Chart").ResetEnd Sub
Lưu ý Bạn chỉ có thể đặt lại Thanh dẫn lái cài sẵn. Bạn không thể đặt lại thanh tuỳ chỉnh menu.

Quay lại đầu trang

Menu

Khôi phục Thanh dẫn lái lại điều khiển mặc định (cho các menu và các mục menu). Mã mẫu sau khôi phục biểu đồ thanh cài sẵn:
Sub MenuBar_Restore()   CommandBars("Chart").ResetEnd Sub
Lưu ý Bạn chỉ có thể đặt lại Thanh dẫn lái cài sẵn. Bạn không thể đặt lại thanh tuỳ chỉnh menu.

Quay lại đầu trang

Thêm menu điều khiển tùy chỉnh thanh lệnh

Mã mẫu sau thêm tên bạn thêm lập bảng Thanh dẫn lái. Ví dụ: mã này thêm menu tên Menu mới vào Thanh dẫn lái bảng .

Lưu ý Bạn có thể cho trình đơn này bất kỳ tên nào bạn muốn.
Sub Menu_Create()Dim myMnu As Object   Set myMnu = CommandBars("Worksheet menu bar").Controls. _      Add(Type:=msoControlPopup, before:=3)   With myMnu   ' The "&" denotes a shortcut key assignment (Alt+M in this case).      .Caption = "New &Menu"   End WithEnd Sub

Quay lại đầu trang

Vô hiệu hoá thanh lệnh menu điều khiển

Menu điểu khiển mất hiệu lực xuất hiện mờ đi và không có sẵn trên thanh lệnh. Ví dụ sau vô hiệu hoá đơn Đơn mới :
Sub Menu_Disable()   CommandBars("Worksheet menu bar").Controls("New &Menu").Enabled = FalseEnd Sub

Quay lại đầu trang

Kích hoạt trên thanh lệnh menu điều khiển

Mã ví dụ sau cho phép trình đơn Menu mới mà bạn đã tắt trong phần "Tắt vào thanh lệnh menu điều khiển":
Sub Menu_Disable()   CommandBars("Worksheet menu bar").Controls("New &Menu").Enabled = TrueEnd Sub

Quay lại đầu trang

Xoá trên thanh lệnh menu điều khiển

Mã mẫu sau xoá menu Menu mới mà bạn đã tạo trong phần "Thêm menu điều khiển tùy chỉnh thanh lệnh" từ Thanh dẫn lái bảng :
Sub Menu_Delete()   CommandBars("Worksheet menu bar").Controls("New &Menu").DeleteEnd Sub

Quay lại đầu trang

Khôi phục vào thanh lệnh menu điều khiển

Mã mẫu sau khôi phục được xây dựng trong biểu đồ Thanh dẫn lái trên Thanh dẫn lái bảng :
Sub Menu_Restore()Dim myMnu As Object   Set myMnu = CommandBars("Chart")   myMnu.ResetEnd Sub

Quay lại đầu trang

Lệnh

Những thay đổi mà bạn có thể thực hiện với lệnh phụ thuộc vào loại điều khiển. Thông thường, các nút chọn một được bật hoặc bị ẩn. Chỉnh sửa hộp, hộp danh sách thả xuống và hộp tổ hợp linh hoạt hơn trong đó bạn có thể thêm hoặc xoá các mục khỏi danh sách. Ngoài ra, bạn có thể xác định các hành động được thực hiện bằng cách nhìn vào giá trị của mục mà bạn đã chọn từ danh sách. Bạn có thể thay đổi các hành động của bất kỳ điều khiển chức năng cài sẵn hoặc hoạt động tuỳ chỉnh.

Bảng sau liệt kê các thuộc tính phổ biến nhất của điều khiển và các phương pháp để thay đổi trạm đậu, tác vụ hoặc nội dung của điều khiển:
Thuộc tính hoặc phương phápMục đích
ThêmThêm một lệnh vào thanh lệnh.
AddItemThêm một mục phần danh sách thả xuống của hộp danh sách thả xuống hoặc hộp tổ hợp.
Phong cáchXác định xem mặt nút chọn một Hiển thị biểu tượng hoặc một chú thích.
OnActionXác định quy trình chạy khi người dùng thay đổi giá trị của điều khiển.
Hiển thịXác định xem điều khiển được hiển thị hoặc ẩn.

Để biết thêm thông tin về menu trong Excel 2003 và Excel 2002, hãy làm theo các bước sau:
  1. Bắt đầu tập lệnh Visual Basic Editor.
  2. Trên menu Trợ giúp , bấm Trợ giúp cơ bản MicrosoftVisual.
  3. Trong hộp tra cứu trợ giúp , hãy nhậpMenu, và sau đó nhấn ENTER.
  4. Bấm vào Thêm và quản lý Thanh dẫn lái và Menu Items(Office).

Quay lại đầu trang

Thêm một tách Thanh dẫn lái điều khiển

Mã mẫu sau thêm một thanh tách trước khi lệnh bảng trên menu chèn :
Sub menuItem_AddSeparator()   CommandBars("Worksheet menu bar").Controls("Insert") _   .Controls("Worksheet").BeginGroup = TrueEnd Sub
Lưu ý Để xoá một thanh tách, đặt thuộc tính BeginGroupsai.

Quay lại đầu trang

Tạo điều khiển chuyên biệt lệnh vào menu

Mã mẫu sau tạo lệnh mới có tên là Custom1 trên menu công cụ , Thanh dẫn lái trang tính , và sau đó chạy Code_Custom1 macro khi bạn bấm Custom1:
Sub menuItem_Create()   With CommandBars("Worksheet menu bar").Controls("Tools")      .Controls.Add(Type:=msoControlButton, Before:=1).Caption = "Custom1"      .Controls("Custom1").OnAction = "Code_Custom1"   End WithEnd Sub

Quay lại đầu trang

Đặt dấu kiểm kiểm bên cạnh điều khiển lệnh

Mã mẫu sau đặt dấu kiểm kiểm bên cạnh lệnh Custom1 nếu nó chưa được chọn, và sau đó xoá dấu kiểm nếu lệnh Custom1 được chọn:
Sub menuItem_checkMark()Dim myPopup as Object   Set myPopup = CommandBars("Worksheet menu bar").Controls("Tools")   If myPopup.Controls("Custom1").State = msoButtonDown Then      ' Remove check mark next to menu item.      myPopup.Controls("Custom1").State = msoButtonUp      MsgBox "Custom1 is now unchecked"      Else        ' Add check mark next to menu item.         myPopup.Controls("Custom1").State = msoButtonDown         MsgBox "Custom1 is now checked"    End IfEnd Sub

Quay lại đầu trang

Vô hiệu hoá điều khiển lệnh trên thanh lệnh

Mã mẫu sau vô hiệu hoá Custom1 lệnh mà bạn đã tạo trên menu công cụ trong phần "Tạo điều khiển chuyên biệt lệnh vào menu":
Sub MenuItem_Disable()Dim myCmd as Object   Set myCmd = CommandBars("Worksheet menu bar").Controls("Tools")   myCmd.Controls("Custom1").Enabled = FalseEnd Sub

Quay lại đầu trang

Kích hoạt điều khiển lệnh trên thanh lệnh

Mã ví dụ sau cho phép Custom1 lệnh mà bạn đã tắt trong phần "Vô hiệu hoá điều khiển lệnh trên thanh lệnh":
Sub MenuItem_Enable()Dim myCmd as Object   Set myCmd = CommandBars("Worksheet menu bar").Controls("Tools")   myCmd.Controls("Custom1").Enabled = TrueEnd Sub

Quay lại đầu trang

Xoá một điều khiển lệnh vào menu

Mã mẫu sau xoá lưu lệnh trên menu tệp :
Sub menuItem_Delete()Dim myCmd As Object   Set myCmd = CommandBars("Worksheet menu bar").Controls("File")   myCmd.Controls("Save").DeleteEnd Sub

Quay lại đầu trang

Khôi phục một điều khiển lệnh cài sẵn trên menu

Để khôi phục một điều khiển lệnh trên menu, bạn phải biết số nhận dạng (ID) để điều khiển. Để xác định số ID, hãy xem phần "Trở lại ID để điều khiển thanh lệnh". Ví dụ sau xoá và sau đó khôi phục lưu lệnh mà bạn đã xoá trong phần "Xoá một điều khiển lệnh vào menu":
Sub menuItem_Restore()Dim myCmd As Object   Set myCmd = CommandBars("Worksheet menu bar").Controls("File")   ' Id 3 refers to the Save menu item control.   myCmd.Controls.Add Type:=msoControlButton, ID:=3, Before:=5End Sub

Quay lại đầu trang

Menu con

Menu con xuất hiện bên cạnh menu phụ huynh khi bạn bấm vào lệnh. Lệnh có điều khiển phụ có một mũi tên màu đen nhỏ được đặt vào đúng tên lệnh.

Quay lại đầu trang

Thêm một menu con

Mã mẫu sau thêm một menu con mới có tên NewSub menu công cụ trên Thanh dẫn lái bảng :
Sub SubMenu_Create()Dim newSub as Object   Set newSub = CommandBars("Worksheet menu bar").Controls("Tools")   With newSub      .Controls.Add(Type:=msoControlPopup, Before:=1).Caption="NewSub"   End WithEnd Sub

Quay lại đầu trang

Thêm một lệnh menu phụ

Mã mẫu sau thêm lệnh mới có tên SubItem1NewSub phụ, và sau đó chạy Code_SubItem1 macro khi bạn bấm SubItem1:
Sub SubMenu_AddItem()Dim newSubItem as Object   Set newSubItem = CommandBars("Worksheet menu bar") _   .Controls("Tools").Controls("NewSub")   With newSubItem      .Controls.Add(Type:=msoControlButton, Before:=1).Caption = "SubItem1"      .Controls("SubItem1").OnAction = "Code_SubItem1"   End WithEnd Sub

Quay lại đầu trang

Vô hiệu hoá điều khiển lệnh trên menu phụ

Mã mẫu sau vô hiệu hoá SubItem lệnh tương tự mà bạn đã tạo trong phần "Thêm lệnh vào menu phụ":
Sub SubMenu_DisableItem()   CommandBars("Worksheet menu bar").Controls("Tools") _   .Controls("NewSub").Controls("SubItem1").Enabled = FalseEnd Sub


Ví dụ sau cho phép cùng SubItem lệnh:
Sub SubMenu_DisableItem()   CommandBars("Worksheet menu bar").Controls("Tools") _   .Controls("NewSub").Controls("SubItem1").Enabled = TrueEnd Sub

Quay lại đầu trang

Xóa lệnh trên menu phụ

Ví dụ sau xoá SubItem1 lệnh mà bạn đã tạo trên menu phụ NewSub trong phần "Thêm một lệnh menu phụ":
Sub SubMenu_DeleteItem()   CommandBars("Worksheet menu bar").Controls("Tools") _   .Controls("NewSub").Controls("SubItem1").DeleteEnd Sub

Quay lại đầu trang

Vô hiệu hoá trình điều khiển phụ

Mã mẫu sau vô hiệu hoá NewSub phụ mà bạn đã tạo trên menu công cụ trong phần "Thêm một menu con":
Sub SubMenu_DisableSub()   CommandBars("Worksheet menu bar").Controls("Tools") _   .Controls("NewSub").Enabled = FalseEnd Sub
Lưu ý Để kích hoạt điểu khiển mất hiệu lực, đặt thuộc tính cho phépđúng.

Quay lại đầu trang

Xoá một điều khiển phụ

Mã mẫu sau xoá NewSub phụ mà bạn đã tạo trên menu công cụ trong phần "Thêm một menu con":
Sub SubMenu_DeleteSub()   CommandBars("Worksheet menu bar").Controls("Tools") _   .Controls("NewSub").DeleteEnd Sub

Quay lại đầu trang

Thanh dẫn lái lối tắt

Menu lối tắt là một thanh lệnh nổi xuất hiện khi người dùng right-clicks đối tượng. Thanh dẫn lái phím lối tắt có thể chứa các loại kiểm soát cùng với một thanh lệnh và điều khiển hoạt động như điều khiển trên thanh lệnh. Bạn không thể tạo hoặc sửa đổi lối tắt menu từ giao diện của chương trình trong hầu hết các chương trình. Do đó, bạn phải tạo và chỉnh sửa menu lối tắt của bạn tại thời gian chạy.

Để biết thêm chi tiết về lối tắt menu trong Excel 2002 và Excel 2003, hãy làm theo các bước sau:
  1. Bắt đầu tập lệnh Visual Basic Editor.
  2. Trên menu Trợ giúp , bấm Trợ giúp cơ bản MicrosoftVisual.
  3. Trong hộp tra cứu trợ giúp , hãy nhậplối tắt, và sau đó nhấn ENTER.
  4. Bấm vào Thêm và hiển thị ShortcutMenus.
Quay lại đầu trang

Tạo một lối tắt mới Thanh dẫn lái

Mã mẫu sau tạo một lối tắt mới menu thanh có tên myShortcutBar:
Sub Shortcut_Create()Dim myShtCtBar as Object   Set myShtCtBar = CommandBars.Add(Name:="myShortcutBar", _   Position:=msoBarPopup)   ‘ This displays the shortcut menu bar.   ‘ 200, 200 refers to the screen position in pixels as x and y coordinates.   myShtCtBar.ShowPopup 200,200End Sub
Lưu ý Thanh dẫn lái lối tắt xuất hiện trống vì không có điều khiển (mục trình đơn hoặc menu con) đã được thêm vào nó.

Quay lại đầu trang

Lối tắt menu

Lối tắt menu thanh xuất hiện khi bạn sử dụng nút chọn một chuột phải bấm vào một đối tượng Excel cụ thể. Excel có nhiều Thanh dẫn lái lối tắt cho một loạt các menu có sẵn. Bạn cũng có thể tạo phím lối tắt tuỳ chỉnh Thanh dẫn lái và tuỳ chỉnh Thanh dẫn lái cài sẵn.

Quay lại đầu trang

Tạo lệnh trên Thanh dẫn lái lối tắt

Mã ví dụ sau tạo ra một lệnh menu mới có tên Item1 trên Thanh dẫn lái lối tắt myShortcutBar và nó chạy Code_Item1 macro khi bạn bấm Item1:
Sub Shortcut_AddItem()Dim myBar as Object   Set myBar = CommandBars("myShortcutBar")   With myBar      .Controls.Add (Type:=msoControlButton, before:=1).Caption = "Item1"      .Controls("Item1").OnAction = "Code_Item1"   End With   myBar.ShowPopup 200,200End Sub

Quay lại đầu trang

Vô hiệu hoá điều khiển lệnh trên Thanh dẫn lái lối tắt

Mã mẫu sau vô hiệu hoá Item1 lệnh mà bạn đã tạo trong phần "Tạo lệnh trên menu lối tắt":
Sub Shortcut_DisableItem()   Set myBar = CommandBars("myShortcutBar")   myBar.Controls("Item1").Enabled = False   myBar.ShowPopup 200,200End Sub
Lưu ý Để bật mục bị vô hiệu hoá, đặt thuộc tính cho phépđúng.

Quay lại đầu trang

Xóa lệnh trên Thanh dẫn lái lối tắt

Mã mẫu sau xoá lệnh menu có tên Item1 trên Thanh dẫn lái lối tắt myShortcutBar :
Sub Shortcut_DeleteItem()   Set myBar = CommandBars("myShortcutBar")   myBar.Controls("Item1").Delete   myBar.ShowPopup 200,200End Sub

Quay lại đầu trang

Xoá một Thanh dẫn lái lối tắt

Xoá lối tắt thanh loại bỏ tất cả các mục. Bạn không thể khôi phục một Thanh dẫn lái tùy chỉnh đã bị xoá. Để khôi phục, bạn phải tái tạo và tất cả các mục menu và các menu con.

Mã mẫu sau xoá myShortCutBar lối tắt Thanh dẫn lái mà bạn đã tạo trong phần "Tạo lệnh trên Thanh dẫn lái lối tắt":
Sub Shortcut_DeleteShortCutBar()   CommandBars("MyShortCutBar").DeleteEnd Sub

Quay lại đầu trang

Khôi phục các lệnh trên Thanh dẫn lái lối tắt cài sẵn

Mã mẫu sau khôi phục mặc định lệnh trên Thanh dẫn lái lối tắt ô bảng:
Sub Shortcut_RestoreItem()   CommandBars("Cell").ResetEnd Sub

Quay lại đầu trang

Menu con trên menu lối tắt

Bạn có thể tạo menu con vào lối tắt Thanh dẫn lái. Menu con xuất hiện bên cạnh menu phụ huynh khi bạn bấm điều khiển lệnh. Lệnh có điều khiển phụ có một mũi tên màu đen nhỏ ở bên phải của tên.

Quay lại đầu trang

Tạo một menu con mới trên Thanh dẫn lái lối tắt

Ví dụ sau thêm một menu con mới có tên NewSub trên menu lối tắt ô bảng:
Sub ShortcutSub_Create()   CommandBars("Cell").Controls.Add(Type:=msoControlPopup, before:=1) _   .Caption = "NewSub"    ' This displays the shortcut menu bar.    ' 200, 200 refers to the screen position in pixels as x and y coordinates.   CommandBars("Cell").ShowPopup 200, 200End Sub
Lưu ý Menu con là trống vì không có mục menu đã được thêm vào nó.

Quay lại đầu trang

Tạo điều khiển lệnh trên menu phụ nằm trên Thanh dẫn lái lối tắt

Macro sau thêm SubItem1 lệnh menu con NewSub bạn tạo trên menu lối tắt ô , và sau đó chạy Code_SubItem1 macro khi bạn bấm SubItem1:
Sub ShortcutSub_AddItem()Dim newSubItem as Object   Set newSubItem = CommandBars("Cell").Controls("NewSub”)   With newSubItem      .Controls.Add(Type:=msoControlButton, before:=1).Caption = "subItem1"      ' This will run the subItem1_Code macro when subItem1 is clicked.      .Controls("subItem1").OnAction = "Code_subItem1"   End With   ' This displays the Cell shortcut menu bar.   ' 200, 200 refers to the screen position in pixels as x and y coordinates   CommandBars("Cell").ShowPopup 200, 200End Sub

Quay lại đầu trang

Vô hiệu hoá điều khiển mục menu phụ trên menu lối tắt

Mã mẫu sau vô hiệu hoá SubItem1 lệnh vào menu con NewSub :
Sub ShortcutSub_DisableItem()   CommandBars("Cell").Controls("NewSub") _   .Controls("subItem1").Enabled = False   ' This displays the Cell shortcut menu bar.   ' 200, 200 refers to the screen position in pixels as x and y coordinates.   CommandBars("Cell").ShowPopup 200, 200End Sub
Lưu ý Để kích hoạt một mục bị vô hiệu hoá, đặt thuộc tính cho phépđúng.

Quay lại đầu trang

Xoá một mục phụ điều khiển trên menu lối tắt

Ví dụ sau xoá SubItem1 lệnh vào menu con NewSub :
Sub ShortcutSub_DeleteItem()   CommandBars("Cell").Controls("NewSub").Controls("subItem1").Delete   ' This displays the Cell shortcut menu bar.   ' 200, 200 refers to the screen position in pixels as x and y coordinates.   CommandBars("Cell").ShowPopup 200, 200End Sub

Quay lại đầu trang

Vô hiệu hoá trình điều khiển phụ trên menu lối tắt

Mã mẫu sau vô hiệu hoá phụ NewSub trên Thanh dẫn lái lối tắt ô :
Sub ShortcutSub_DisableSub()   CommandBars("Cell").Controls("NewSub").Enabled = False   ' This displays the Cell shortcut menu bar.   ' 200, 200 refers to the screen position in pixels as x and y coordinates.   CommandBars("Cell").ShowPopup 200, 200End Sub
Lưu ý Để kích hoạt một mục bị vô hiệu hoá, đặt thuộc tính cho phépđúng.

Quay lại đầu trang

Xoá một điều khiển phụ trên menu lối tắt

Mã mẫu sau xoá NewSub phụ mà bạn đã tạo trên Thanh dẫn lái lối tắt ô :
Sub ShortcutSub_DeleteSub()   CommandBars("Cell").Controls("NewSub").Delete   ' This displays the Cell shortcut menu bar.   ' 200, 200 refers to the screen position in pixels as x and y coordinates.   CommandBars("Cell").ShowPopup 200, 200End Sub

Quay lại đầu trang

Tìm thêm thông tin

Các tài nguyên sẵn có để cung cấp thêm thông tin về cách tuỳ chỉnh menu và Thanh dẫn lái trong Excel.

Quay lại đầu trang

Đối tượng trình duyệt

Trình duyệt đối tượng có danh sách đầy đủ của tất cả các thuộc tính và tất cả các phương pháp lệnh cụ thể. Để biết thông tin này, hãy chuyển đến Visual Basic Editor (nhấn ALT + F11), nhấp vào Đối tượng trình duyệt trên menu xem (hoặc nhấn F2), nhập tên điều khiển vào hộp tra cứu , và sau đó nhấn ENTER hoặc nhấp vào tra cứu.

Quay lại đầu trang

Cơ sở tri thức Microsoft

Cơ sở tri thức Microsoft là chính Microsoft sản phẩm thông tin cho các chuyên gia hỗ trợ bản ghi dịch vụ Hỗ trợ Sản phẩm của Microsoft. Cơ sở tri thức Microsoft được cung cấp cho khách hàng của Microsoft. bộ máy cơ sở dữ liệu toàn diện này bao gồm các bài viết chi tiết kỹ thuật thông tin về sản phẩm của Microsoft, ghi lại danh sách, tài liệu lỗi, và câu trả lời cho câu hỏi thường gặp hỗ trợ kỹ thuật.

Để kết nối với Cơ sở tri thức Microsoft, hãy ghé thăm Web site sau của Microsoft, và sau đó làm theo các chỉ dẫn xuất hiện trên trang: Quay lại đầu trang

Cảnh báo: Bài viết này được dịch tự động

Thuộc tính

ID Bài viết: 830502 - Xem lại Lần cuối: 12/08/2015 05:07:21 - Bản sửa đổi: 3.0

Microsoft Excel 2002 Standard Edition, Microsoft Excel 2000 Standard Edition

  • kbnosurvey kbarchive kbhowtomaster kbmt KB830502 KbMtvi
Phản hồi