Tạo Menu Ribbon Bằng VBA | Giải Pháp Excel

Có thể bạn quan tâm

Trang chủ Có gì mới Hoạt động gần nhất Tác giả
Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
Video Video về Excel Video về tin học khác Tin tức về tin học chung
Thông tin mới Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
Tài nguyên Đánh giá mới nhất Tìm tài nguyên
Facebook
Đóng góp

Đăng nhập Đăng Ký Có gì mới? Tìm kiếm

Tìm kiếm

Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Bởi: Tìm kiếm Tìm nâng cao…

Tìm bài viết mới
Tìm theo chuyên mục

Menu Đăng nhập Đăng Ký Install the app Install How to install the app on iOS

Follow along with the video below to see how to install our site as a web app on your home screen.

Note: This feature may not be available in some browsers.

Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc

Trang chủ
Diễn đàn
Lập Trình với Excel
Lập Trình với Excel

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. Tạo Menu Ribbon bằng VBA

Thread starter thuyyeu99
Ngày gửi 26/11/16

thuyyeu99

Trùm Nhiều Chuyện

Tham gia 6/6/08 Bài viết 1,729 Được thích 875 Lang thang trên mạng thấy cái CODE tạo menu Ribbon trong vba |||||

PHP:Sao chép. Sub LoadCustRibbon() Dim hFile As Long Dim path As String, fileName As String, ribbonXML As String, user As String hFile = FreeFile user = Environ("Username") path = "C:\Users\" & user & "\AppData\Local\Microsoft\Office\" fileName = "Excel.officeUI" ribbonXML = "<mso:customUI xmlns:mso='http://schemas.microsoft.com/office/2009/07/customui'>" & vbNewLine ribbonXML = ribbonXML + " <mso:ribbon>" & vbNewLine ribbonXML = ribbonXML + " <mso:qat/>" & vbNewLine ribbonXML = ribbonXML + " <mso:tabs>" & vbNewLine ribbonXML = ribbonXML + " <mso:tab id='reportTab' label='Reports' insertBeforeQ='mso:TabFormat'>" & vbNewLine ribbonXML = ribbonXML + " <mso:group id='reportGroup' label='Reports' autoScale='true'>" & vbNewLine ribbonXML = ribbonXML + " <mso:button id='runReport' label='PTO' " & vbNewLine ribbonXML = ribbonXML + "imageMso='AppointmentColor3' onAction='GenReport'/>" & vbNewLine ribbonXML = ribbonXML + " </mso:group>" & vbNewLine ribbonXML = ribbonXML + " </mso:tab>" & vbNewLine ribbonXML = ribbonXML + " </mso:tabs>" & vbNewLine ribbonXML = ribbonXML + " </mso:ribbon>" & vbNewLine ribbonXML = ribbonXML + "</mso:customUI>" ribbonXML = Replace(ribbonXML, """", "") Open path & fileName For Output Access Write As hFile Print #hFile, ribbonXML Close hFile End Sub Sub ClearCustRibbon() Dim hFile As Long Dim path As String, fileName As String, ribbonXML As String, user As String hFile = FreeFile user = Environ("Username") path = "C:\Users\" & user & "\AppData\Local\Microsoft\Office\" fileName = "Excel.officeUI" ribbonXML = "<mso:customUI xmlns:mso=""http://schemas.microsoft.com/office/2009/07/customui"">" & _ "<mso:ribbon></mso:ribbon></mso:customUI>" Open path & fileName For Output Access Write As hFile Print #hFile, ribbonXML Close hFile End Sub Sắp xếp theo thời gian sắp xếp theo bầu chọn

Kiều Mạnh

I don't program, I beat code into submission!!!

Tham gia 9/6/12 Bài viết 5,538 Được thích 4,125 Giới tính Nam

thuyyeu99 đã viết: Lang thang trên mạng thấy cái CODE tạo menu Ribbon trong vba PHP:Sao chép. Sub LoadCustRibbon() Dim hFile As Long Dim path As String, fileName As String, ribbonXML As String, user As String hFile = FreeFile user = Environ("Username") path = "C:\Users\" & user & "\AppData\Local\Microsoft\Office\" fileName = "Excel.officeUI" ribbonXML = "<mso:customUI xmlns:mso='http://schemas.microsoft.com/office/2009/07/customui'>" & vbNewLine ribbonXML = ribbonXML + " <mso:ribbon>" & vbNewLine ribbonXML = ribbonXML + " <mso:qat/>" & vbNewLine ribbonXML = ribbonXML + " <mso:tabs>" & vbNewLine ribbonXML = ribbonXML + " <mso:tab id='reportTab' label='Reports' insertBeforeQ='mso:TabFormat'>" & vbNewLine ribbonXML = ribbonXML + " <mso:group id='reportGroup' label='Reports' autoScale='true'>" & vbNewLine ribbonXML = ribbonXML + " <mso:button id='runReport' label='PTO' " & vbNewLine ribbonXML = ribbonXML + "imageMso='AppointmentColor3' onAction='GenReport'/>" & vbNewLine ribbonXML = ribbonXML + " </mso:group>" & vbNewLine ribbonXML = ribbonXML + " </mso:tab>" & vbNewLine ribbonXML = ribbonXML + " </mso:tabs>" & vbNewLine ribbonXML = ribbonXML + " </mso:ribbon>" & vbNewLine ribbonXML = ribbonXML + "</mso:customUI>" ribbonXML = Replace(ribbonXML, """", "") Open path & fileName For Output Access Write As hFile Print #hFile, ribbonXML Close hFile End Sub Sub ClearCustRibbon() Dim hFile As Long Dim path As String, fileName As String, ribbonXML As String, user As String hFile = FreeFile user = Environ("Username") path = "C:\Users\" & user & "\AppData\Local\Microsoft\Office\" fileName = "Excel.officeUI" ribbonXML = "<mso:customUI xmlns:mso=""http://schemas.microsoft.com/office/2009/07/customui"">" & _ "<mso:ribbon></mso:ribbon></mso:customUI>" Open path & fileName For Output Access Write As hFile Print #hFile, ribbonXML Close hFile End Sub Nhấp chuột vào đây để mở rộng...

Bạn tham khảo them 2 link sau trên GPE http://www.giaiphapexcel.com/forum/...s-Tạo-Menu-RibbonTiếng-Việt-Có-Dấu-Cho-Office http://www.giaiphapexcel.com/forum/...ia-sẻ-công-cụ-tạo-Ribbon-cho-file-Excel/page2 Upvote 0

ndu96081631

Huyền thoại GPE

Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,950

thuyyeu99 đã viết: Lang thang trên mạng thấy cái CODE tạo menu Ribbon trong vba Nhấp chuột vào đây để mở rộng...

Code không có tác dụng ngay mà phải đóng, lưu file xong mở lại mới thấy Mà chắc phải thế rồi chứ không thể nào khác hơn được ---------------- Nói thêm: Tôi nghi rằng code này không tạo được các Caption với tiếng Việt có dấu Upvote 0

langtuchungtinh360

Thành viên đã dừng hoạt động

Tham gia 7/10/13 Bài viết 1,062 Được thích 334

thuyyeu99 đã viết: Lang thang trên mạng thấy cái CODE tạo menu Ribbon trong vba Nhấp chuột vào đây để mở rộng...

gửi bạn bạn tạo 1 file có đuôi mở rộng có thể lưu code rồi chạy tạo trên file đó nhé. nếu thực hiện trên file không lưu code được thì có một số trường hợp không chạy được đâu. xử dụng có lỗi hay hạn chế gì thì góp ý kiến cho mình hoàn thiện thêm nhé. ----------------------- tham khảo nguồn: GPE

File đính kèm

Ribbon.xlsm 526.8 KB · Đọc: 438

Lần chỉnh sửa cuối: 27/11/16 Upvote 0

Kiều Mạnh

I don't program, I beat code into submission!!!

Tham gia 9/6/12 Bài viết 5,538 Được thích 4,125 Giới tính Nam

langtuchungtinh360 đã viết: gửi bạn bạn tạo 1 file có đuôi mở rộng có thể lưu code rồi chạy tạo trên file đó nhé. nếu thực hiện trên file không lưu code được thì có một số trường hợp không chạy được đâu. xử dụng có lỗi hay hạn chế gì thì góp ý kiến cho mình hoàn thiện thêm nhé. ----------------------- tham khảo nguồn: GPE Nhấp chuột vào đây để mở rộng...

Mới viết lại à ......... Upvote 0