Thanh công cụ và nút công cụ

[chibi]

Chào các bạn.
Cho tôi hỏi cách tạo, ẩn, hiện và gán macro cho thanh công cụ và các nút trên thanh công cụ đó.
Tìm mãi mới chỉ thấy cách creat toolbars mà không thấy tạo ra nút để đưa vào thanh đó và gán macro cho các nút.
Xin cảm ơn.

 

[voda]

Bạn thử đọc Excel VBA cho người mới bắt đầu - Phan Tự Hướng ( trang 12-13) xem có giải đáp được vấn đề không.Thân

 

[OverAC]

Bác tham khảo ở file đính kèm ở topic này. Tạo nút lên tương đối đầy đủ.
http://www.giaiphapexcel.com/forum/showthread.php?p=13360

 

[chibi]

Tôi có đoạn code tạo thanh công cụ và trên đó có 1 nút lệnh

Option Explicit
Sub vidu()
Dim lenh1
Application.CommandBars.Add(Name:="vidu_toolbar").Visible = True
With Application.CommandBars("vidu_toolbar")
    .Position = msoBarTop
    .Protection = msoBarNoCustomize
End With
Set lenh1 = Application.CommandBars("vidu_toolbar").Controls.Add(Type:=msoControlButton)
With lenh1
    .Caption = "Lenh thu nhat"
    .OnAction = "vidu1"
End With
End Sub
Sub vidu1()
    MsgBox ("Chao cac ban")
End Sub

Không hiểu sao "Lenh thu nhat" không hiện ở nút lệnh (không nhìn thấy gì cả chỉ thấy nút lệnh trắng).
Xin các bạn giúp đỡ. Cảm ơn nhiều

 

[Nguyễn Duy Tuân]

Tôi có đoạn code tạo thanh công cụ và trên đó có 1 nút lệnh
...
Không hiểu sao "Lenh thu nhat" không hiện ở nút lệnh (không nhìn thấy gì cả chỉ thấy nút lệnh trắng).
Xin các bạn giúp đỡ. Cảm ơn nhiều

Vì bạn không gán giá trị cho Property "Style", máy tự gán kiểu là msoButtonAutomatic - chỉ hiện icon mà thôi. Tôi đã sửa lại cho bạn dưới đây.

Sub vidu()
Dim lenh1 [COLOR="Blue"]As CommandBarButton[/COLOR]
Application.CommandBars.Add(Name:="vidu_toolbar").Visible = True
With Application.CommandBars("vidu_toolbar")
    .Position = msoBarTop
    .Protection = msoBarNoCustomize
End With
Set lenh1 = Application.CommandBars("vidu_toolbar").Controls.Add(Type:=msoControlButton)
With lenh1
[COLOR="Blue"]    .Style = msoButtonIconAndCaption
    .FaceId = 1000 [COLOR="SeaGreen"]'Có thể bỏ[/COLOR]
[/COLOR]    .Caption = "Lenh thu nhat"
    .OnAction = "vidu1"
End With
End Sub

 

[chibi]

Xin cho hỏi câu tiếp theo
Khi hiện toolbars của người dùng, bằng cách nào để tắt chức năng Add or Remove buttons (Mũi tên trả xuống bên phải Toolbars).
Cảm ơn các bạn nhiều.

 

[Nguyễn Duy Tuân]

Xin cho hỏi câu tiếp theo
Khi hiện toolbars của người dùng, bằng cách nào để tắt chức năng Add or Remove buttons (Mũi tên trả xuống bên phải Toolbars).
Cảm ơn các bạn nhiều.

Không có cách nào cả bạn à. Cứ để vậy có sao đâu.

 

[Trần Nguyên Nhung]

Xin cho tôi hỏi 1 chút, thanh menu bar của tôi không hiện ra như ban đầu thì có cách gì khôi phục được không? Tôi đã vào toolbar->customise nhưng không làm được gì?
Mong mọi người giúp đỡ,thanks a lot!

 

[TranThanhPhong]

Chào bạn,


Bạn thử làm lại xem: vào View | Tollbars | Customize | Chọn Worksheet Menu Bar | Nhấn nút Reset ...

TP.

 

[kelvin]

Gửi các ba.n xem file tạo toolbar(TaoToolbar.xls) ,gọi sub nằm ở 1 file .xls khác(EqualAboveValue_Sub.xls), có thể đổi tên file nầy thành đuôi bất kỳ(EqualAboveValue_Sub.phc)
khi goi sub EqualAboveValue trong EqualAboveValue_Sub.phc, không bị macro warning.File Thu.xls là file ví dụ để chạy macro(theo code của j-walk)

 

[tqt37c2]

Các bác cho tui hỏi, nếu muốn tạo 1 thanh Toolbar mà thanh này nằm kề sau và "dính" vào thanh Standard chẳng hạn thì phải làm thế nào? Tui set Left và Top cho nó nhưng không được...​