[Giúp đỡ]Tạo menu Ribbon với checkbox (Thay đổi Label, Sub với giá trị checkbox) (5 người xem)

[quyenpv]

Xin chào anh chị!
Mình đang làm 1 cái nho nhỏ phục vụ công việc, hiện đang vướng mắc với phần Tạo menu Ribbon với checkbox (Thay đổi Label, Sub với giá trị checkbox)
VD: Nếu giá trị checkbox = True thì Label sẽ thay đổi là Hiện và chạy Sub 1, ngược lại Label thay đổi là Ẩn và chạy Sub 2 (hay msgbox)
Mong anh chị giúp và hướng dẫn em với nhé

 

[NgoctrinhUSA]

Xin chào anh chị!
Mình đang làm 1 cái nho nhỏ phục vụ công việc, hiện đang vướng mắc với phần Tạo menu Ribbon với checkbox (Thay đổi Label, Sub với giá trị checkbox)
VD: Nếu giá trị checkbox = True thì Label sẽ thay đổi là Hiện và chạy Sub 1, ngược lại Label thay đổi là Ẩn và chạy Sub 2 (hay msgbox)
Mong anh chị giúp và hướng dẫn em với nhé

Có nghĩa là click vào Check box ẩn.check=true thì chạy code1 còn false thì chạy Code 2
Tương tự checkbox hiện ?

 

[quyenpv]

Dạ đúng rồi ạ, ngoài việc chạy code thì Label sẽ ẩn hoặc hiện theo giá trị của checkbox ạ

 

[giaiphap]

Xin chào anh chị!
Mình đang làm 1 cái nho nhỏ phục vụ công việc, hiện đang vướng mắc với phần Tạo menu Ribbon với checkbox (Thay đổi Label, Sub với giá trị checkbox)
VD: Nếu giá trị checkbox = True thì Label sẽ thay đổi là Hiện và chạy Sub 1, ngược lại Label thay đổi là Ẩn và chạy Sub 2 (hay msgbox)
Mong anh chị giúp và hướng dẫn em với nhé

Của bạn theo tôi hiểu thì khi mình đánh dấu chọn checkbox thì nút lệnh mnu0 (Nút Menu) thay đổi label, nhưng tôi lại thấy bạn có 2 cái checkbox, vậy nếu lỡ đánh dấu chọn cả 2 cái checkbox này (giống hình dưới) thì cái label của menu sẽ hiển thị cái gì?

Thì ra bây giờ mới hiểu, tôi làm cái checkbox thứ nhất về Ẩn / Hiện vật liệu, cái còn lại Ẩn / Hiện ca máy bạn tự nghiên cứu nhé.

 

[quyenpv]

Anh giaiphap làm dạng tổng quát giúp em với

 

[giaiphap]

Anh giaiphap làm dạng tổng quát giúp em với

Muốn tổng quát thì phải có nơi lưu giá trị thay đổi, tôi tạm thời lưu vào sheet còn bạn tùy chỉnh nơi lưu theo ý muốn nhé. Trong file có nhiều code không dùng tới tôi tạm thời xóa hết để dễ quan sát. Bạn xem thử file.

 

[quyenpv]

Cách làm của anh rất hay và đúng ý em rồi a. Tuy nhiên trong Menu Ribbon sẽ có cả Buttom và các loại khác nữa
Dựa theo ý của anh ở trên anh giúp em trường hợp sau với ạ
1. Trong Ribbon sẽ lẫn lộn lúc Buttom, lúc Checkbox
2. Check cột C nếu là checkbox thì Label lấy từ Cột B thêm giá trị Ẩn / Hiện tùy vào giá trị Cột C
3. Khi chọn đúng Control.ID thì chạy Code tại cột D-F
Mong anh hỗ trợ

 

[giaiphap]

Cách làm của anh rất hay và đúng ý em rồi a. Tuy nhiên trong Menu Ribbon sẽ có cả Buttom và các loại khác nữa
Dựa theo ý của anh ở trên anh giúp em trường hợp sau với ạ
1. Trong Ribbon sẽ lẫn lộn lúc Buttom, lúc Checkbox
2. Check cột C nếu là checkbox thì Label lấy từ Cột B thêm giá trị Ẩn / Hiện tùy vào giá trị Cột C
3. Khi chọn đúng Control.ID thì chạy Code tại cột D-F
Mong anh hỗ trợ

Bạn nhận file nhé.

 

[quyenpv]

Cám ơn anh Giaiphap nhiều!!!

 

[quyenpv]

Tại sự kiện bị lỗi này, anh giaiphap giúp em với ạ

 

[giaiphap]

Tại sự kiện bị lỗi này, anh giaiphap giúp em với ạ

Là do bạn mở file và chỉnh code, thay đổi dữ liệu,... lúc đó nó khởi tạo lại mảng arr nên nó báo lỗi. Bạn đóng file và mở lại sẽ hết, còn khi bạn tạo xong file và sử dụng (lúc này sẽ không thao tác chỉnh sửa code nửa) thì sẽ không báo lỗi nửa.

 

[HeSanbi]

Tại sự kiện bị lỗi này, anh giaiphap giúp em với ạ

Bạn thêm đoạn code này vào Code của Workbook, sau khi chỉnh sửa code xong ấn Save trước khi thực thi ở Ribbon:
Và nên thay đổi tên biến Arr thành tên khác vì nó là biến toàn cục.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  Arr = Sheet1.Range("A4:F16").Value
  'sửa tất cả Arr = thành Arr = KhoiTaoArr
End Sub
'Hoặc tạo một Thủ tục để khởi tạo biến toàn cục đặt vào một Module:
'Khai báo rõ Workbook
Function KhoiTaoArr()
     KhoiTaoArr= ThisWorkbook.Worksheets("Sheet1").Range("A4:F16").Value
End Function

Thêm khảo Add-ins tạo ribbon này, bạn sẽ tự thực hiện mà không cần nhiều sự trợ giúp
Add-ins tạo Ribbon

 

[quyenpv]

Hi các anh!
Code khi chạy trên file excel thì rất tốt, còn khi tạo Addin thì ko chạy được. Mong các anh giúp đỡ

 

[giaiphap]

Hi các anh!
Code khi chạy trên file excel thì rất tốt, còn khi tạo Addin thì ko chạy được. Mong các anh giúp đỡ

Đó là điều hiển nhiên, code đó viết cho file excel cụ thể, còn muốn dùng cho add-ins thì phải sửa chút code mới được chứ. Nếu muốn dùng cho add-ins thì không thể lưu dữ liệu vào sheet của add-ins nửa mà phải có giải pháp khác.

 

[quyenpv]

Anh có cao kiến nào chỉ giúp em với ạ

 

[giaiphap]

Anh có cao kiến nào chỉ giúp em với ạ

Thì thay gì lưu vào sheet thì mình lưu vào file text hoặc file excel khác hoặc regedit hoặc ....