Ứng dụng tạo Ribbon cho Word, Excel, Access và PowerPoint. (1 người xem)

giaiphap · 24/7/21

Ứ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:

Liên kết: https://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.

Bước 2: Mở File và chọn Options sau đó thực hiện như hình.

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ự).

Excel365 · 24/7/21

Kaspersky báo như hình ạ

ongke0711 · 24/7/21

Máy tôi cũng báo con trojan trên.

giaiphap · 24/7/21

Excel365 đã viết:
Kaspersky báo như hình ạ
View attachment 262939

Thật sự thì tui cũng không biết file đó có dính virus hay không? Vì sao dính virus thì cũng chưa biết. Nhưng có một điều tui biết là nó do bản thân tui viết ra vô hại, ai tin tưởng thì bỏ qua và dùng thử giùm tui xem file có bị lỗi chổ nào nửa hay không thôi. Còn nếu các thành viên sợ thì có thể bỏ qua.

ongke0711 · 24/7/21

giaiphap đã viết:
Thật sự thì tui cũng không biết file đó có dính virus hay không? Vì sao dính virus thì cũng chưa biết. Nhưng có một điều tui biết là nó do bản thân tui viết ra vô hại, ai tin tưởng thì bỏ qua và dùng thử giùm tui xem file có bị lỗi chổ nào nửa hay không thôi. Còn nếu các thành viên sợ thì có thể bỏ qua.

Tin tưởng thì tin rồi đó chỉ có cái là bạn kiểm tra lại máy bạn, quét tất cả các chương trình bạn dùng tạo file exe gì đó để tránh con trojan đó nó canh me, nhân bản vào file của bạn.

giaiphap · 25/7/21

ongke0711 đã viết:
Tin tưởng thì tin rồi đó chỉ có cái là bạn kiểm tra lại máy bạn, quét tất cả các chương trình bạn dùng tạo file exe gì đó để tránh con trojan đó nó canh me, nhân bản vào file của bạn.

Đã sử dụng thử chưa và kết quả như thế nào? Có gì khó khăn không? Có lỗi gì không?

Excel365 · 25/7/21

Chế độ hiển thị chưa tự co giãn với màn hình, bị khuất mất các nút lệnh phí dưới

ongke0711 · 25/7/21

Tình hình là khi tôi bấm tạo Ribbon thì báo lỗi như hình. Tôi chỉ tạo mấy cái tên Tab, group thôi.
Test trên:
- Win10 (64bit) - Office 2013 (32bit)
- Win 7 (64bit) - Office 2016 (64bit)
Cài đặt với "Run As Administrator".
Tạo ribbob trên "Tệp tin đã có" hay mới đều bị lỗi như vậy.
Tạo trên file xlsx cũng lỗi.

giaiphap · 26/7/21

ongke0711 đã viết:
Tình hình là khi tôi bấm tạo Ribbon thì báo lỗi như hình. Tôi chỉ tạo mấy cái tên Tab, group thôi.
Test trên:
- Win10 (64bit) - Office 2013 (32bit)
- Win 7 (64bit) - Office 2016 (64bit)
Cài đặt với "Run As Administrator".
Tạo ribbob trên "Tệp tin đã có" hay mới đều bị lỗi như vậy.
Tạo trên file xlsx cũng lỗi.

View attachment 263025

View attachment 263026 View attachment 263027

Tôi thấy hình như mình tạo file trên mạng nội bộ thì phải, cái này tôi chưa test nhưng mình có thể tạo trong ổ đĩa d thử xem. Thứ hai nửa là nếu không được thử tạo xuất ra file xml thử xem được không? Thứ ba nửa là ứng dụng không hổ trợ tạo ra file excel dạng xlsx.

ongke0711 · 26/7/21

giaiphap đã viết:
Tôi thấy hình như mình tạo file trên mạng nội bộ thì phải, cái này tôi chưa test nhưng mình có thể tạo trong ổ đĩa d thử xem. Thứ hai nửa là nếu không được thử tạo xuất ra file xml thử xem được không? Thứ ba nửa là ứng dụng không hổ trợ tạo ra file excel dạng xlsx.

À tôi cũng đã thử luôn vụ trên rồi là tạo mới lẫn cũ vào "My Document" vẫn bị lỗi.
Tôi xuất các dạng Excel để test đó mà (xlsx, xlsm, xlsb)
Xuất XML thì được nhé.

(Đường dẫn trên là do tôi dùng máy ảo Windows trên Mac nên nó như vậy chứ không phải mạng nội bộ)

Maika8008 · 26/7/21

Ứng dụng hay nè! Tôi sẽ dành thời gian chạy thử phát hiện lỗi cho bạn.

giaiphap · 26/7/21

Tui vẫn chưa tìm ra lỗi gì nửa, mặc dù kiểm tra rất kỹ. Đã test trên 3 máy tính đều chạy ngon, chỉ có office 2019 tạo file access bị lỗi còn câc trường hợp khác chạy ok. Tiếp tục tìm lỗi và khắc phục.

Maika8008 · 26/7/21

Hic. Defender của Win 10 còn chặn ngay, không cho tải file rar về luôn.

dinhduy · 27/7/21

Maika8008 đã viết:
Hic. Defender của Win 10 còn chặn ngay, không cho tải file rar về luôn.

Đã dùng Tool của Anh Huynh Vu Thang để mã hóa MD5 (tải về sẽ không bị chặn, không cần tắt Virus nha). Ai cần tải về, sau đó chạy File Convert MD5.cmd => Create Ribbon_708d07a02e05fd9263bdac6a22ef6a73.exe sẽ trả về như lúc chưa mã hóa MD5. Cài Đặt như bình thường.
Sau khi kiểm tra và kết quả chỉ có Kaspersky nhận diện là virus thôi, còn lại ok. Khả năng viết AutoIT (đoán như vậy) nên chương trình virus nhận diện nhầm thôi (thường xuyên ở BKAV bản quyền).

giaiphap · 27/7/21

Thật ra nó là vô hại, nhưng do trong ứng dụng có thực hiện thao tác nén và giải nén nên trình duyệt virus nhận diện nhầm thôi, ai thích thì tải dùng thử còn không thích thừ khỏi tải. Vừa mới cập nhật lại và trình diệt virus chỉ nhận dạng thấy 2/67 (Kết quả này là hết khả năng của tôi rồi).

Bài đã được tự động gộp: 27/7/21

dinhduy đã viết:
Đã dùng Tool của Anh Huynh Vu Thang để mã hóa MD5 (tải về sẽ không bị chặn, không cần tắt Virus nha). Ai cần tải về, sau đó chạy File Convert MD5.cmd => Create Ribbon_708d07a02e05fd9263bdac6a22ef6a73.exe sẽ trả về như lúc chưa mã hóa MD5. Cài Đặt như bình thường.
Sau khi kiểm tra và kết quả chỉ có Kaspersky nhận diện là virus thôi, còn lại ok. Khả năng viết AutoIT (đoán như vậy) nên chương trình virus nhận diện nhầm thôi (thường xuyên ở BKAV bản quyền).

Đã dùng thử chưa, và kết quả có tạo được ribbon hay không?

YêuCN · 27/7/21

Chương trình ý tưởng khá hay thực chất là tạo ra file XML rồi nén và giải nén lại vào folder customui của excel .

PhanTuHuong · 27/7/21

giaiphap đã viết:
Thật ra nó là vô hại, nhưng do trong ứng dụng có thực hiện thao tác nén và giải nén nên trình duyệt virus nhận diện nhầm thôi, ai thích thì tải dùng thử còn không thích thừ khỏi tải. Vừa mới cập nhật lại và trình diệt virus chỉ nhận dạng thấy 2/67 (Kết quả này là hết khả năng của tôi rồi).
View attachment 263096

Bài đã được tự động gộp: 27/7/21

Đã dùng thử chưa, và kết quả có tạo được ribbon hay không?

Anh kiểm tra xem có dùng addin hay Tool nào c r a c k trong Project không? Hoặc mã lệnh can thiệp sâu vào Windows...

Kiều Mạnh · 28/7/21

Tôi đoán thôi chứ không khẳng định và ko bàn cái Virus này ở đây

1/ do Tools viết quá trình builder có dính virus

2/ do chính ta code ... một số cấu trúc trong code của mình cũng làm cho trình diệt virus nhầm lẫn gắn cờ virus ( dương tính giả )

3/ do cơ chế nhận diện virus chưa cập nhật
...
...
Tôi nghi mục số 2 ... vì trên Delphi tôi đã từng bị xong mất mấy tuần tôi loại bỏ từng code 1 xong phát hiện ra có 1 procedure cứ cho vào là báo virus ... bỏ đi là hết xong tôi lại cho vào ... cuối cùng tôi hiểu ra 1 chút về cơ chế của nó

==> viết lại procedure 1 tẹo là xong

vui lòng ko trích dẫn bài của tôi và bàn vấn đề này tại đây ==> lịch sự 1 tí lập thớt mới mà bàn

Doãn Quốc Bình · 28/7/21

cần .NET Framework 4.7.2

hvt268 · 28/7/21

giaiphap đã viết:
Thật sự thì tui cũng không biết file đó có dính virus hay không? Vì sao dính virus thì cũng chưa biết. Nhưng có một điều tui biết là nó do bản thân tui viết ra vô hại, ai tin tưởng thì bỏ qua và dùng thử giùm tui xem file có bị lỗi chổ nào nửa hay không thôi. Còn nếu các thành viên sợ thì có thể bỏ qua.

Chào bạn, mình dùng thử, làm như video hướng dẫn đến bước cấu hình ribbon, do không hiểu tác dụng của nó nên mình để mặc định không tích vào chỗ nào cả, sau đó chuyển sang bước tạo ribbon, tích tạo mới, chọn đường dẫn và xuất, nhưng nó báo lỗi: đã có lỗi xảy ra trong quá trình tạo ribbon cho tệp tin ... không biết làm sao khắc phục, nhờ bạn hỗ trợ, xin cám ơn

hvt268 · 28/7/21

ongke0711 đã viết:
Tình hình là khi tôi bấm tạo Ribbon thì báo lỗi như hình. Tôi chỉ tạo mấy cái tên Tab, group thôi.
Test trên:
- Win10 (64bit) - Office 2013 (32bit)
- Win 7 (64bit) - Office 2016 (64bit)
Cài đặt với "Run As Administrator".
Tạo ribbob trên "Tệp tin đã có" hay mới đều bị lỗi như vậy.
Tạo trên file xlsx cũng lỗi.

View attachment 263025

View attachment 263026 View attachment 263027

Mình cũng bị lỗi này, nếu bạn đã khắc phục được thì hỗ trợ mình với nhé

ongke0711 · 28/7/21

hvt268 đã viết:
Mình cũng bị lỗi này, nếu bạn đã khắc phục được thì hỗ trợ mình với nhé

Tôi cũng chưa chạy được nha bạn, chỉ xuất XML thôi.

giaiphap · 28/7/21

hvt268 đã viết:
Chào bạn, mình dùng thử, làm như video hướng dẫn đến bước cấu hình ribbon, do không hiểu tác dụng của nó nên mình để mặc định không tích vào chỗ nào cả, sau đó chuyển sang bước tạo ribbon, tích tạo mới, chọn đường dẫn và xuất, nhưng nó báo lỗi: đã có lỗi xảy ra trong quá trình tạo ribbon cho tệp tin ... không biết làm sao khắc phục, nhờ bạn hỗ trợ, xin cám ơn

Mình có thể Update lại Office thử xem, tôi mới test ở một laptop Windows 10 64bit và Office 2016 64bit cũng bị báo lỗi giống như các bác, sau đó Update lại thì chạy ngon luôn.

giaiphap · 29/7/21

ongke0711 đã viết:
Tôi cũng chưa chạy được nha bạn, chỉ xuất XML thôi.

Đã cập nhật cho phép lưu ra file Word và Excel kèm Code ra file riêng, sau khi ra được file Word và Excel sau đó có thể Import File bas vào để tạo file hoàn chỉnh. @ongke0711 test thử xem được không?

giaiphap · 23/8/21

Đã tìm ra nguyên nhân không tạo được tệp tin Word, Excel và PowerPoint là do chưa bật chức năng cho phép chạy code cho tệp tin, chính vì vậy ứng dụng không thêm được code vào file khi tạo xong ribbon. Để tạo được file Word có chứa Ribbon thì trước khi chạy ứng dụng phải mở chức năng cho phép chạy macro của word (Excel và PowerPoint cũng vậy). Đã cập nhật hướng dẫn ở bài 1.

levanduyet · 27/8/21

PhanTuHuong đã viết:
Anh kiểm tra xem có dùng addin hay Tool nào c r a c k trong Project không? Hoặc mã lệnh can thiệp sâu vào Windows...

Không phải đâu Hướng ơi.
Khi viết các action làm cho các chương trình diệt virus "cho là virus". Tình trạng này trên mạng họ kêu ca nhiều.
Đăng ký tốn tiền thì chắc hết.

Lê Văn Duyệt

datvocnstu · 4/9/21

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

Tuanba1992 · 4/9/21

Doãn Quốc Bình đã viết:
cần .NET Framework 4.7.2

Nhờ tác giả ép xuống bản . .NET Framework thấp hơn hoặc bạn tự cài

giaiphap · 4/9/21

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

Khi thiết kế xong và tạo Ribbon thì trong file của bạn sẽ được thêm sẳn code để chạy nút lệnh. Tùy thuộc vào đối tượng bạn tạo trong Ribbon mà tên các Sub điều khiển sẽ khác nhau.

Cụ thể trên hình nếu đối tượng bạn tạo là Button thì tên Sub trong file sẽ là onAction, vậy để điều khiển cho nút lệnh bạn mở cửa sổ VBE lên và vào Module mdlCallBack và tìm đến Sub OnAction, đó là nơi bạn cần điều khiển code làm việc.

datvocnstu · 4/9/21

giaiphap đã viết:
Khi thiết kế xong và tạo Ribbon thì trong file của bạn sẽ được thêm sẳn code để chạy nút lệnh. Tùy thuộc vào đối tượng bạn tạo trong Ribbon mà tên các Sub điều khiển sẽ khác nhau.
View attachment 265427

Cụ thể trên hình nếu đối tượng bạn tạo là Button thì tên Sub trong file sẽ là onAction, vậy để điều khiển cho nút lệnh bạn mở cửa sổ VBE lên và vào Module mdlCallBack và tìm đến Sub OnAction, đó là nơi bạn cần điều khiển code làm việc.

Anh giúp em một ví dụ cụ thể được không ạ, em không rõ lắm id với Call Macro thì mình đặt nó vào đâu.
Em cảm ơn

giaiphap · 4/9/21

datvocnstu đã viết:
View attachment 265430Anh giúp em một ví dụ cụ thể được không ạ, em không rõ lắm id với Call Macro thì mình đặt nó vào đâu.
Em cảm ơn

Bạn xem file mẫu.

SGTaoLao · 18/10/21

Lỗi hiển thị khi chọn Style --> Black.
Khi tạo file vẩn bị lỗi "Đã bị xảy ra lỗi trong quá trình tạo ribbon...." mặc dù đã bật như hướng dẩn ở bài #1

giaiphap · 18/10/21

SGTaoLao đã viết:
View attachment 267939
Lỗi hiển thị khi chọn Style --> Black.
Khi tạo file vẩn bị lỗi "Đã bị xảy ra lỗi trong quá trình tạo ribbon...." mặc dù đã bật như hướng dẩn ở bài #1

Cái đó không phải lỗi nhé bạn, bạn chọn Black thì nó phải đen thôi chứ sao lại lỗi.
Bạn tạo file bị lỗi có thể chọn cách mở ứng dụng như sau: Nhấp phải vào Create Ribbon và chọn Run as administrator thử xem có tạo được hay không?

SGTaoLao · 18/10/21

giaiphap đã viết:
Cái đó không phải lỗi nhé bạn, bạn chọn Black thì nó phải đen thôi chứ sao lại lỗi.
Bạn tạo file bị lỗi có thể chọn cách mở ứng dụng như sau: Nhấp phải vào Create Ribbon và chọn Run as administrator thử xem có tạo được hay không?
View attachment 267940

Nền đen thì chữ phải trắng chứ a

))
Chạy run as Admin vẩn lỗi như v a

giaiphap · 18/10/21

SGTaoLao đã viết:
Nền đen thì chữ phải trắng chứ a ))
Chạy run as Admin vẩn lỗi như v a

Cái chữ đen là lý do nút lệnh nó bị vô hiệu hóa (Disable), còn nút nào dùng được nó sẽ có chữ màu trắng mà bạn. Cụ thể bạn nhìn nút chỉnh sửa đó. Để kiểm chứng lần nửa bạn chọn thử test 1 xem có gì khác biệt.
Nếu cho chạy với quyền administrator không được nửa thì tui thua rồi.

Luannguyen0811 · 24/11/21

Em đang xài thì báo như hình ( hết bản dùng thử), em cũng làm theo các bước như hình nhưng không thấy mail gửi về. Có ai biết chỉ giúp em
Em cám ơn.
p/s: em đã được gửi mail có mã đăng kí rồi.

tanldmonkey · 21/4/22

Xin hỏi làm cách nào để lấy hình ảnh của mình bỏ vào thay thế các hình ảnh mặc định các nút bấm. Xin cám ơn

nguyencongtinh · 20/6/22

Cái này vẫn bị lỗi, không xuất được, chỉ xuất được ra file xml. Cái này không được phát triển nữa thì phải ?

hvt268 · 14/12/22

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

Mình cũng đang thắc mắc vấn đề này nhưng chưa có bạn nào hỗ trợ

tranchautrungduong · 14/12/22

hvt268 đã viết:
Mình cũng đang thắc mắc vấn đề này nhưng chưa có bạn nào hỗ trợ

Mã:

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 ḍ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

Ứng dụng tạo Ribbon cho Word, Excel, Access và PowerPoint. (1 người xem)

Người dùng đang xem chủ đề này

==(^o^)==