Ứng dụng tạo Ribbon cho Word, Excel, Access và PowerPoint.

Chia sẻ bởi:hands
★★★★★
‹ Add-Ins hổ trợ Word trộn danh sách... Điền dữ liệu từ excel vào word ›
Quảng cáo

Ứng dụng tạo Ribbon cho Word, Excel, Access và PowerPoint.

Đây là chủ đề cũ nhưng cách làm khác hoàn toàn, đây là ứng dụng giúp tạo Ribbon cho Word, Excel, Access và PowerPoint mà bạn không cần biết gì về mã XML. Các thao tác chỉ cần click và và clik thôi.
Có thể xem hướng dẫn ở video sau:
P1cG8nPM_lU
[URL='www.youtube.com/watch?v=P1cG8nPM_lU']Liên kết: www.youtube.com/watch?v=P1cG8nPM_lU

Bạn có thể tạo Ribbon một cách nhanh chóng bằng ứng dụng này nhưng có một điều là đối với file Access khi tạo xong nó sẽ không hiển thị Ribbon ngay mà phải trả qua thêm 2 bước nửa như sau:
Bước 1 là mở file Access lên, nhấn Alt+F11 rồi thực hiện như hình.
344
Bước 2: Mở File và chọn Options sau đó thực hiện như hình.
343
Cuối cùng đóng Access lại và mở lên xem kết quả.
Đây là ứng dụng đang kiểm tra lỗi nên bản Demo này có thể có một số lỗi hy vọng các thành viên sử dụng và phản hồi để khắc phục lỗi.
Một điều nửa (điều này rất cần thiết nếu không bật thì ứng dụng không tạo được code cho file khi tạo ra) cần lưu ý là bạn phải bật chức năng cho phép chạy macro cho các ứng dụng Word, Excel và PowerPoint. Mở Word vào vào File –> Options và thực hiện theo các bước như hình (Excel và PowerPoint thực hiện tương tự).
342

www.giaiphapexcel.com/diendan/threads/%E1%BB%A8ng-d%E1%BB%A5ng-t%E1%BA%A1o-ribbon-cho-word-excel-access-v%C3%A0-powerpoint.156738/

Khoá học Trưởng phòng nhân sự
Khóa học SprinGO phù hợp

Khoá học Trưởng phòng nhân sự

Nguồn nhân lực là một trong Tứ trụ kinh doanh của doanh nghiệp, có tác động tới sự tồn tại và phát triển bền...

Xem khóa học
★★★★★ 5 ★ 1 👤 1 ▥ 0
‹ Add-Ins hổ trợ Word trộn danh sách và... Điền dữ liệu từ excel vào word ›
Quảng cáo

Bạn nên đọc

One Response

  1. hands says:
    14/12/2022 at 8:42 am

    Mình tạo ribbon xong rồi làm sao để gán macro cho nó vậy ạ 

    Sub onAction(control As IRibbonControl)
Application.ScreenUpdating = False

Dim Arr_Sheet As Variant
    Select Case control.ID

Case "WL93" 'Chi ti?t-Chi ti?t t?ng s?n ph?m
            Arr_Sheet = Array("DATABASE")
            Call UnHide_Sheets(Arr_Sheet)
            Call Thong_Tin_San_Pham

Case "WL94" 'Mă hàng-Chi ti?t t?ng mă hàng
            Arr_Sheet = Array("DATABASE")
            Call UnHide_Sheets(Arr_Sheet)
            Call Chi_Tiet_Ma_Hang

Case "WL703" 'tao ma hang
            Arr_Sheet = Array("DATABASE")
            Call UnHide_Sheets(Arr_Sheet)
            Call Tao_Ma_Hang

Case "WL101" 'Date xu?t-Date xu?t theo tháng
            Arr_Sheet = Array("DATABASE")
            Call UnHide_Sheets(Arr_Sheet)
            Call Date_Xuat_INV

Case "WL348" 'Date xu?t-Date xu?t theo tháng
            Arr_Sheet = Array("DATABASE")
            Call UnHide_Sheets(Arr_Sheet)
            Call The_Kho_Thang

Case "WL725" 'to mau trang thai
            Arr_Sheet = Array("DATABASE")
            Call UnHide_Sheets(Arr_Sheet)
            Call To_Mau_Trang_Thai

Case "WL170" '??n cu?i hoàn t?t-?i ??n v? trí cu?i ḍng hoàn t?t
            Arr_Sheet = Array("DATABASE")
            Call UnHide_Sheets(Arr_Sheet)
            Call Den_Cuoi_Hoan_Tat

Case "WL107" 'Setup ID-Setup ID
            Arr_Sheet = Array("DATABASE")
            Call UnHide_Sheets(Arr_Sheet)
            Call Set_ID

Case "WL112" 'Check ID-Check ID
            Arr_Sheet = Array("DATABASE")
            Call UnHide_Sheets(Arr_Sheet)
            Call Check_ID

Case "WL356" 'Check ID-Check ID
            Arr_Sheet = Array("DATABASE")
            Call UnHide_Sheets(Arr_Sheet)
            Call Check_ID1

Case "WL120" 'Check NXT-Check nh?p xu?t t?n
            Arr_Sheet = Array("DATABASE")
            Call UnHide_Sheets(Arr_Sheet)
            Call Check_NXT

Case "WL121" 'Check HD-Check h?p ??ng xu?t c̣n d?
            Arr_Sheet = Array("DATABASE")
            Call UnHide_Sheets(Arr_Sheet)
            Call Check_Hop_Dong

Case "WL125" 'Backup-Backup d? li?u
            Arr_Sheet = Array("DATABASE")
            Call UnHide_Sheets(Arr_Sheet)
            Call Backup_Du_Lieu

Case "WL272" 'Nhóm s?n ph?m-Báo cáo th? kho theo nhóm s?n ph?m
            Arr_Sheet = Array("DATABASE", "NHOM_SAN_PHAM")
            Call UnHide_Sheets(Arr_Sheet)
            Call Xem_The_Kho_Nhom_San_Pham

Case "WL273" 'Chi ti?t theo s?n ph?m-Báo cáo th? kho theo chi ti?t s?n ph?m
            Arr_Sheet = Array("DATABASE", "THE_KHO_CHI_TIET")
            Call UnHide_Sheets(Arr_Sheet)
            Call Xem_The_Kho_Chi_Tiet_San_Pham

Case "WL274" 'Th? kho thu g?n-Báo cáo th? kho thu g?n
            Arr_Sheet = Array("DATABASE", "IN_THE_KHO")
            Call UnHide_Sheets(Arr_Sheet)
            Call Xem_The_Kho_Thu_Gon

Case "WL275" 'Tái ch? NSP-Báo cáo tái ch? theo nhóm s?n ph?m
            Arr_Sheet = Array("DATABASE", "BAO_CAO_CHI_TIET_TAI_CHE", "BAO_CAO_TAI_CHE")
            Call UnHide_Sheets(Arr_Sheet)
            Call Xem_Tai_Che_NSP

Case "WL276" 'Tái ch? chi ti?t-Báo cáo tái ch? chi ti?t
            Arr_Sheet = Array("DATABASE", "BAO_CAO_CHI_TIET_TAI_CHE", "BAO_CAO_TAI_CHE")
            Call UnHide_Sheets(Arr_Sheet)
            Call Xem_Tai_Che_NSP

Case "WL710" 'NET ban thanh pham
            Arr_Sheet = Array("DATABASE", "BTP")
            Call UnHide_Sheets(Arr_Sheet)
            Call Ban_Thanh_Pham

Case "WL277" 'T?ng h?p th? kho-Báo cáo t?ng h?p th? kho
            Arr_Sheet = Array("DATABASE", "THTK", "BCSX", "NL_TeToan")
            Call UnHide_Sheets(Arr_Sheet)
            Call THTK

Case "WL739" 'ws
            Arr_Sheet = Array("DATABASE", "WS")
            Call UnHide_Sheets(Arr_Sheet)
            Call Xem_WS

Case "WL740" 'ws1
            Arr_Sheet = Array("DATABASE", "WS_Form1")
            Call UnHide_Sheets(Arr_Sheet)
            Call Xem_WS_Form1

Case "WL741" 'ws2
            Arr_Sheet = Array("DATABASE", "WS_Form2")
            Call UnHide_Sheets(Arr_Sheet)
            Call Xem_WS_Form2

Case "WL278" 'Nh?p s?n xu?t NSP-Báo cáo nh?p s?n xu?t theo nhóm s?n ph?m
            Arr_Sheet = Array("DATABASE", "NHAP_XUAT_NSP")
            Call UnHide_Sheets(Arr_Sheet)
            Call Lay_Nhap_Xuat_Theo_NSP

Case "WL687" 'Nh?p s?n xu?t NSP-Báo cáo nh?p s?n xu?t theo nhóm s?n ph?m
            Arr_Sheet = Array("DATABASE", "NHAP_XUAT_MSP")
            Call UnHide_Sheets(Arr_Sheet)
            Call Lay_Nhap_Xuat_Theo_MSP

Case "WL153" 'Xu?t Excel NSP-Xu?t báo cáo theo kho theo nhóm s?n ph?m
            Arr_Sheet = Array("DATABASE", "NHOM_SAN_PHAM")
            Call UnHide_Sheets(Arr_Sheet)
            Call Export_The_Kho_Nhom_San_Pham

Case "WL154" 'Xu?t Excel CTSP-Xu?t báo cáo theo kho theo chi ti?t s?n ph?m
            Arr_Sheet = Array("DATABASE", "THE_KHO_CHI_TIET")
            Call UnHide_Sheets(Arr_Sheet)
            Call Export_The_Kho_Chi_Tiet_San_Pham

Case "WL717" 'Xu?t Excel CTSP-Xu?t báo cáo theo kho theo chi ti?t s?n ph?m
            Arr_Sheet = Array("DATABASE", "IN_THE_KHO")
            Call UnHide_Sheets(Arr_Sheet)
            Call Export_The_Kho_Chi_Tiet_San_Pham_IN

Case "WL155" 'Xu?t Excel TKTG-Xu?t báo cáo theo kho thu g?n
            Arr_Sheet = Array("DATABASE", "IN_THE_KHO")
            Call UnHide_Sheets(Arr_Sheet)
            Call Export_The_Kho_Thu_Gon

Case "WL194" 'L?y nh?p-L?y d? li?u nh?p t? k? toán
            Arr_Sheet = Array("DATABASE", "LAY_NHAP")
            Call UnHide_Sheets(Arr_Sheet)
            Call Lay_Nhap_File_Ke_Toan

Case "WL195" 'Tách INV xu?t-Tách INV xu?t t? file k? toán
            Arr_Sheet = Array("DATABASE", "TACH_INV_XUAT_CHI_THUY", "BAO_CAO_XUAT_CONT", "HOA_DON")
            Call UnHide_Sheets(Arr_Sheet)
            Call Tach_INV_File_Ke_Toan

Case "WL339" 'Tách INV xu?t-Tách INV xu?t t? file k? toán
            Arr_Sheet = Array("DATABASE", "TACH_INV_XUAT_CHI_THUY", "BAO_CAO_XUAT_CONT", "HOA_DON")
            Call UnHide_Sheets(Arr_Sheet)
            Call Phan_Tich_Chi_Tiet_Hoa_Don

Case "WL205" 'Phân tích INV-Phân tích INV xu?t
            Arr_Sheet = Array("DATABASE", "TACH_INV_XUAT_CHI_THUY", "BAO_CAO_XUAT_CONT", "HOA_DON")
            Call UnHide_Sheets(Arr_Sheet)
            Call Phan_Tich_Chi_Tiet_INV

Case "WL215" 'Nh?p KHSX-Nh?p hàng theo KHSX M?
            Arr_Sheet = Array("DATABASE", "KHSX")
            Call UnHide_Sheets(Arr_Sheet)
            Call Nhap_Hang_KHSX_MY

Case "WL216" 'Nh?p hàng M?-Nh?p hàng M?
            Arr_Sheet = Array("DATABASE")
            Call UnHide_Sheets(Arr_Sheet)
            Call Nhap_Hang_My

Case "WL217" 'Nh?p hàng ngoài M?-Nh?p hàng ngoài M?
            Arr_Sheet = Array("DATABASE")
            Call UnHide_Sheets(Arr_Sheet)
            Call Nhap_Hang_Ngoai_USA

Case "WL695" 'Nh?p hàng ngoài M?-Nh?p hàng ngoài M?
            Arr_Sheet = Array("DATABASE")
            Call UnHide_Sheets(Arr_Sheet)
            Call Nhap_Hang_Ngoai_My_Da_Co_Ten

Case "WL223" 'Sort hoàn t?t-Sort theo hàng hoàn t?t
            Arr_Sheet = Array("DATABASE")
            Call UnHide_Sheets(Arr_Sheet)
            Call Sort_Hoan_Tat

Case "WL228" 'Sort ch?a hoàn t?t-Sort theo hàng ch?a hoàn t?t
            Arr_Sheet = Array("DATABASE")
            Call UnHide_Sheets(Arr_Sheet)
            Call Sort_Chua_Hoan_Tat

Case "WL320" 'Sort ch?a hoàn t?t-Sort theo hàng ch?a hoàn t?t chua nhap
            Arr_Sheet = Array("DATABASE")
            Call UnHide_Sheets(Arr_Sheet)
            Call Sort_Chua_Hoan_Tat_Chua_Nhap

Case "WL759" 'Cao thanh pham
            Arr_Sheet = Array("DATABASE", "CAO_THE_KHO", "DOI_NGAY_TP")
            Call UnHide_Sheets(Arr_Sheet)
            ThisWorkbook.Sheets("CAO_THE_KHO").Select
    End Select

Application.ScreenUpdating = True
End Sub

    Gợi ý cho bạn gắn code để chạy

    http://www.giaiphapexcel.com/diendan/threads/%E1%BB%A8ng-d%E1%BB%A5ng-t%E1%BA%A1o-ribbon-cho-word-excel-access-v%C3%A0-powerpoint.156738/page-3

    Reply

Leave a Reply

Your email address will not be published. Required fields are marked *

Quảng cáo
▣ Word

Cũ vẫn chất

Add-Ins hổ trợ Word trộn danh sách và lưu ra nhiều tệp tin khác nhau. Add-Ins hổ trợ Word trộn danh sách và lưu ra nhiều tệp tin khác nhau. Mẫu bài tuyên truyền kỷ niệm 50 năm Giải phóng miền Nam 30 4 2025? Mẫu bài tuyên truyền kỷ niệm 50 năm Giải phóng miền Nam 30 4 2025? Toàn văn File Dự thảo Thông tư về Chế độ nghỉ của sĩ quan quân nhân chuyên nghiệp? Toàn văn File Dự thảo Thông tư về Chế độ nghỉ của sĩ quan quân nhân chuyên nghiệp? Toàn văn File Dự thảo Thông tư về Chế độ nghỉ của sĩ quan quân nhân chuyên nghiệp? Toàn văn File Dự thảo Thông tư về Chế độ nghỉ của sĩ quan quân nhân chuyên nghiệp? Điểm liệt thi tốt nghiệp THPT 2025 là bao nhiêu? Điểm liệt thi tốt nghiệp THPT 2025 là bao nhiêu? Điểm liệt thi tốt nghiệp THPT 2025 là bao nhiêu? Điểm liệt thi tốt nghiệp THPT 2025 là bao nhiêu?

Xem thêm