Đưa file xla lên tab addin

[frantliem]

Xin các anh chị trợ giúp.
Em đã tạo ra 1 file .xla theo code tiện ích em viết phục vụ cho công việc của mình. chạy macro OKei.
Tuy nhiên, em đã cài đặt add in rồi. nhưng làm cách nào để tạo thành 1 menu tiện ích như các anh chị đã viết trên tab addin.
Hiện tại file trên chỉ chạy trên 1 file đã tạo chứa code mà thôi, mong anh chị giúp em làm sao tiện ích trên chạy trên tất cả các file excel được không giống như đổi font vậy.....


Cám ơn anh chị nhiều nhiều!

 

[giaiphap]

Xin các anh chị trợ giúp.
Em đã tạo ra 1 file .xla theo code tiện ích em viết phục vụ cho công việc của mình. chạy macro OKei.
Tuy nhiên, em đã cài đặt add in rồi. nhưng làm cách nào để tạo thành 1 menu tiện ích như các anh chị đã viết trên tab addin.
Hiện tại file trên chỉ chạy trên 1 file đã tạo chứa code mà thôi, mong anh chị giúp em làm sao tiện ích trên chạy trên tất cả các file excel được không giống như đổi font vậy.....


Cám ơn anh chị nhiều nhiều!

Bạn tham khảo cái Add-Ins này có tạo sẳn Menu đó bạn, dựa vào đó mà thực hiện nhé!
http://www.giaiphapexcel.com/forum/...ho-mọi-người-tham-khảo-và-tùy-biến-để-sử-dụng

 

[frantliem]

Bạn tham khảo cái Add-Ins này có tạo sẳn Menu đó bạn, dựa vào đó mà thực hiện nhé!
http://www.giaiphapexcel.com/forum/...ho-mọi-người-tham-khảo-và-tùy-biến-để-sử-dụng

Tiện ích trên em đã sử dụng nhưng không đáp ứng được nhu cầu công việc của em.
VỚi lại em mới học vba nên cũng muốn các anh chị chỉ giáo để em làm giống như các anh chị cho biết.
Mong anh chị giúp!

 

[frantliem]

Xin các anh chị trợ giúp.
Em đã tạo ra 1 file .xla theo code tiện ích em viết phục vụ cho công việc của mình. chạy macro OKei.
Tuy nhiên, em đã cài đặt add in rồi. nhưng làm cách nào để tạo thành 1 menu tiện ích như các anh chị đã viết trên tab addin.
Hiện tại file trên chỉ chạy trên 1 file đã tạo chứa code mà thôi, mong anh chị giúp em làm sao tiện ích trên chạy trên tất cả các file excel được không giống như đổi font vậy.....


Cám ơn anh chị nhiều nhiều![/QUOT
Hic!!!!
Không ai giúp cả.

 

[chuot0106]

Xin các anh chị trợ giúp.
Em đã tạo ra 1 file .xla theo code tiện ích em viết phục vụ cho công việc của mình. chạy macro OKei.
Tuy nhiên, em đã cài đặt add in rồi. nhưng làm cách nào để tạo thành 1 menu tiện ích như các anh chị đã viết trên tab addin.
Hiện tại file trên chỉ chạy trên 1 file đã tạo chứa code mà thôi, mong anh chị giúp em làm sao tiện ích trên chạy trên tất cả các file excel được không giống như đổi font vậy.....


Cám ơn anh chị nhiều nhiều![/QUOT
Hic!!!!
Không ai giúp cả.

Bạn lưu File thành đuôi xla là được mà.

 

[frantliem]

Bạn lưu File thành đuôi xla là được mà.

Mình đã tạo file xla và cài đặt add in rồi. nhưng không hiện thị được menu trên tad add in và cũng không chạy được trên file excel khác bạn ơi

 

[chuot0106]

Mình đã tạo file xla và cài đặt add in rồi. nhưng không hiện thị được menu trên tad add in và cũng không chạy được trên file excel khác bạn ơi

Bạn có thể gửi File bạn đã tạo lên đây cho mọi người xem được không?(Nếu không có gì bí mật)

 

[befaint]

Xin các anh chị trợ giúp.
Em đã tạo ra 1 file .xla theo code tiện ích em viết phục vụ cho công việc của mình. chạy macro OKei.
Tuy nhiên, em đã cài đặt add in rồi. nhưng làm cách nào để tạo thành 1 menu tiện ích như các anh chị đã viết trên tab addin.
Hiện tại file trên chỉ chạy trên 1 file đã tạo chứa code mà thôi, mong anh chị giúp em làm sao tiện ích trên chạy trên tất cả các file excel được không giống như đổi font vậy.....
Cám ơn anh chị nhiều nhiều!

Bạn thử cách sau xem được không.

Private Const Button As String = "Ten Add in" 'Nhap ten tuy y de hien tren tab addins
Sub Auto_Open() 'Gan menu vao tab addins khi mo addin len (1)
Dim CmdBar As CommandBar
Dim CmdBarMenu As CommandBarControl
Dim CmdBarMenuItem As CommandBarControl

Set CmdBar = Application.CommandBars("Worksheet Menu Bar")
Set CmdBarMenu = CmdBar.Controls("Tools")

On Error Resume Next
   Application.DisplayAlerts = False
   CmdBarMenu.Controls(Button).Delete
   Application.DisplayAlerts = True
On Error GoTo 0

Set CmdBarMenuItem = CmdBarMenu.Controls.Add(Type:=msoControlButton)
With CmdBarMenuItem
     .Caption = Button  'La ten add in tren menu da khai bao tren cung
     .FaceId = 4        'Bieu tuong cua menu
     .BeginGroup = True
     .Style = msoButtonCaption
     .OnAction = "sub_cua_ban" 'Ten sub can gan vao de cho no chay
End With

End Sub

Sub Auto_Close() 'Xoa bo menu da tao o (1) sau khi tat addin
Dim CmdBar As CommandBar
Dim CmdBarMenu As CommandBarControl

Set CmdBar = Application.CommandBars("Worksheet Menu Bar")
Set CmdBarMenu = CmdBar.Controls("Tools")

On Error Resume Next
   Application.DisplayAlerts = False
   CmdBarMenu.Controls(Button).Delete
   Application.DisplayAlerts = True
On Error GoTo 0

End Sub

Sub sub_cua_ban()
 MsgBox "Xin chao. Day la addins cua toi.", , "Thông báo"
End Sub