Hướng dẫn cách tạo Addin gắn trên thanh công cụ

[bamemay]

Thấy trên diễn đàn của mình có mấy bài viết về những tiện ích Tiếng Việt dùng trong Excel.
Em thắc mắc là làm sao các thầy và anh chị lại làm được như vậy. Em cũng muốn làm một cái cho vui nhưng không biết tham khảo tài liệu nào.
(đã có add in đó rồi. vd: Add-in đổi chữ hoa sang thường ... bây giờ làm sao để cho cái add in này nó nằm trên thanh công cụ và mình chỉ việc nhấn chuột vào đó là nó làm việc thôi).
Mong các thầy và anh chị trên diễn đàn giúp em.

 

[nmhung49]

Thêm add in bình thường thì bạn vào tools > add in -> browse -> chọn file cần addin rồi ok, còn thể hiện trực tiếp trên thanh công cụ thì mình không biết

 

[Hai Lúa Miền Tây]

Thấy trên diễn đàn của mình có mấy bài viết về những tiện ích Tiếng Việt dùng trong Excel.
Em thắc mắc là làm sao các thầy và anh chị lại làm được như vậy. Em cũng muốn làm một cái cho vui nhưng không biết tham khảo tài liệu nào.
(đã có add in đó rồi. vd: Add-in đổi chữ hoa sang thường ... bây giờ làm sao để cho cái add in này nó nằm trên thanh công cụ và mình chỉ việc nhấn chuột vào đó là nó làm việc thôi).
Mong các thầy và anh chị trên diễn đàn giúp em.

Gửi bạn file cách tạo thanh menu nhé.

 

[phamduylong]

thêm

[/b]

Đây là 1 ví dụ cách tạo menu đơn giản, chỉ 1 cấp, không có biểu tượng FaceId.

[B]Sub Auto_Open: [/B]tự động thực hiện các lệnh khi mở file.
- [COLOR=Teal]DeleteMenu[/COLOR] xóa menu nếu đã có[COLOR=Green]
[COLOR=Black]- [/COLOR][/COLOR][COLOR=Teal]CreatMenu[/COLOR] t[COLOR=Green][COLOR=Black]ạo menu mới
[/COLOR][/COLOR]
[PHP] Private Sub Auto_Open() 
DeleteMenu
CreatMenu
End Sub

Sub Auto_Close: xóa menu khi đóng file

Private Sub Auto_Close()
DeleteMenu
End Sub

Sub CreatMenu (tạo menu cấp dưới):
- Tạo menu "Ten menu" vào vị trí cuối của thanh menu (iMenu = Application.MenuBars(xlWorksheet).Menus.Count + 1).
- iMenu: vị trí của menu cuối cùng trên thanh menu
- MenuBars(xlWorksheet).Menus(iMenu).MenuItems.Add Caption:="Ten Menu n", Before:=n, OnAction:="Menu n"
Nhập tên menu vào Add Caption:=
Nhập vị trí menu vào Before:=
Nhập tên thủ tục thi hành khi click menu con OnAction:=
( Có bao nhiêu menu con thì viết bấy nhiêu dòng)

Private Sub CreatMenu()
Dim MenuName As Object, iMenu As Integer
iMenu = Application.MenuBars(xlWorksheet).Menus.Count + 1
MenuBars(xlWorksheet).Menus.Add "Ten menu", iMenu
MenuBars(xlWorksheet).Menus(iMenu).MenuItems.Add Caption:="Ten Menu1",  Before:=1, OnAction:="Menu1"
MenuBars(xlWorksheet).Menus(iMenu).MenuItems.Add Caption:="Ten Menu2",  Before:=2, OnAction:="Menu2"
'............
'............
End Sub

Sub DeleteMenu (xóa menu trên thanh menu):

Private Sub DeleteMenu() 
Dim MenuName As Object
For Each MenuName In MenuBars(xlWorksheet).Menus
  If MenuName.Caption = "Ten menu" Then MenuName.Delete
Next
End Sub

Các thủ tục thi hành khi click menu con:

Private Sub Menu1()
MsgBox "Chon Menu1"
End Sub

Private Sub Menu2()
MsgBox "Chon Menu2"
End Sub

 

[mr.ngohoa]

Các bác cho em hoi: em cai dat thanh cong Excel 2007 roi, nhung van đe la tren thanh cong cu, khong xuat hien Add ins. Em lam theo huong dan: excel option >> add ins >> excel add ins>> go>> tich chon 2 cai dau tien, nhung van khong dc. Mong cac bac giup em voi a. Em xin cam on truoc

 

[nguyen van tuan]

Này nha em muốn hiện thanh Add-ins trên thanh công cụ là em phải cài đặt thêm tiện ích gì đó nó mới hiện lên ví dụ như :Tiện ích EXCEL để hỗ trợ
thì em phải tải về giải nén. Mở trang Excel lên nhấp vào nút lệnh Office cuối bản mục Excel Options - rê chuột đến mục Add-ins - cuối bảng nhấp vào
khung có chữ Go.., hiện lên bản Add-ins nhấp vào Browse.. tìm nơi em đã lưu file tiện tích nhấp đúp nó sẽ hiện vào bấm ok là sẽ xuất hiện trên thanh công cụ chúc em thành công và tải File đính kèm dưới

 

[quocvan_ht90]

Thấy trên diễn đàn của mình có mấy bài viết về những tiện ích Tiếng Việt dùng trong Excel.
Em thắc mắc là làm sao các thầy và anh chị lại làm được như vậy. Em cũng muốn làm một cái cho vui nhưng không biết tham khảo tài liệu nào.
(đã có add in đó rồi. vd: Add-in đổi chữ hoa sang thường ... bây giờ làm sao để cho cái add in này nó nằm trên thanh công cụ và mình chỉ việc nhấn chuột vào đó là nó làm việc thôi).
Mong các thầy và anh chị trên diễn đàn giúp em.

Bạn dùng cách này xem sao nhé.
http://www.giaiphapexcel.com/forum/...hởi-động-excel&p=729630&highlight=#post729630