Biến một thủ tục thành 1 nút bấm trên Ribbon

[huy vu]

Em chào các anh chị trên GPE.
Sau khi học hỏi các anh/chị rất nhiều, e có tự xây dựng 1 thủ tục sau:
[GPECODE=vb]Sub LayThongTin()
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual

Dim X As Long, Y As Long
Dim TenTruong
Dim Rng As Range

' Khai bao ten truong
TenTruong = Array("NgayGD", "GioGD", "SoThe", "SoChuanChi", _
"SoHoaDon", "SoLo", "TyGia", "SoTienUSD", "SoTienVND", _
"PhiUSD", "PhiVND", "VAT_USD", "VAT_VND", "SoTienTruPhi_USD", "SoTienTruPhi_VND")

With Sheet1
Set Rng = .Range("A1:O1")
X = .[A65536].End(3).Row
If Not UCase(.Cells(X, 1).Value) Like "*Report*" Then
Rng.Value = TenTruong ' Gan mang TenTruong vao A1:O1
For Y = X To 2 Step -1
If Not Len(.Cells(Y, 1)) = 10 And Not Len(.Cells(Y, 6)) = 6 _
Then .Cells(Y, 1).EntireRow.Delete
Next Y
Else: Exit Sub
End If
End With

Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic

End Sub
[/GPECODE]

Thủ tục này phải thực hiện nhiều lần.
Mỗi lần chạy em phải copy vào module của file mới và chaỵ.
Vậy em hỏi có cách nào để biến thủ tục này thành 1 nút lệnh trên Ribbon, mỗi lần cần lấy thông tin chỉ cần Click -> xong.
Em xin cảm ơn.

 

[phihndhsp]

Cái này lưu lại thành addin. Muốn nhấn nút trên ribon thì phải xử lý bằng xml

 

[huy vu]

Cái này lưu lại thành addin. Muốn nhấn nút trên ribon thì phải xử lý bằng xml

Cảm ơn bạn đã quan tâm. Nếu hướng dẫn được cho tôi thì tốt quá.
Tôi có tài addin sheet2sheet của tác giả Ndu, tôi add vào là thấy trên ribbon hiệnnluoon tab mới với các nút lệnh, mà chưa biết phải làm thế nào.

 

[haonlh]

Tôi có tài addin sheet2sheet của tác giả Ndu, tôi add vào là thấy trên ribbon hiệnnluoon tab mới với các nút lệnh, mà chưa biết phải làm thế nào.

Bạn cho biết địa chỉ nguồn của bài viết đó. Cảm ơn

 

[huy vu]

Bạn cho biết địa chỉ nguồn của bài viết đó. Cảm ơn

Ở bài #15:
http://www.giaiphapexcel.com/forum/showthread.php?84992-Code-save-as-sheet-hiện-hành/page2
Bài của tác giả NDU.

 

[phihndhsp]

http://www.giaiphapexcel.com/forum/...Làm-sao-để-tạo-menu-cùng-cấp-trong-Excel-2007
trang này làm cũng rõ nè

 

[ndu96081631]

Cảm ơn bạn đã quan tâm. Nếu hướng dẫn được cho tôi thì tốt quá.
Tôi có tài addin sheet2sheet của tác giả Ndu, tôi add vào là thấy trên ribbon hiệnnluoon tab mới với các nút lệnh, mà chưa biết phải làm thế nào.

Trong file SaveSheet2File có code đầy đủ mà bạn, việc tạo các nút công cụ nằm trong Sub BuildBar đấy
Cần nói thêm rằng: Đây không phải là các nút thuộc hệ thống Ribbon nha, chúng chỉ là nút của hệ thống Excel 2003 thôi (CommandBar bình thường)