Tô sáng các button trên Ribbon tự tạo

[chucuoi92]

Chào các Anh/Chị trên diễn đàn.
Em có tạo một Ribbon cho một file, trên Ribbon này có các nút để di chuyển đến các sheet trong file.
Các anh chị cho em hỏi là làm thế nào để tô sáng các nút tương ứng với sheet hiện hành khi di chuyển qua lại giữa các sheet

 

[thaipv]

Chào các Anh/Chị trên diễn đàn.
Em có tạo một Ribbon cho một file, trên Ribbon này có các nút để di chuyển đến các sheet trong file.
Các anh chị cho em hỏi là làm thế nào để tô sáng các nút tương ứng với sheet hiện hành khi di chuyển qua lại giữa các sheet

Bạn nghiên cứu ToggleButton nha

 

[chucuoi92]

Bạn nghiên cứu ToggleButton nha

Bạn có thể hướng dẫn làm trên file mình đã gửi không ?

 

[thaipv]

Bạn có thể hướng dẫn làm trên file mình đã gửi không ?

Bạn tải về file trong bài #14 chủ đề này : http://www.giaiphapexcel.com/forum/...Menu-RibbonTiếng-Việt-Có-Dấu-Cho-Office/page2

Sau đó mở Tab 'XEM LẠI' nghiên cứu nhé.

 

[giaiphap]

Chào các Anh/Chị trên diễn đàn.
Em có tạo một Ribbon cho một file, trên Ribbon này có các nút để di chuyển đến các sheet trong file.
Các anh chị cho em hỏi là làm thế nào để tô sáng các nút tương ứng với sheet hiện hành khi di chuyển qua lại giữa các sheet

Bạn xem đúng ý bạn chưa, hên xui nghe!

 

[chucuoi92]

Bạn xem đúng ý bạn chưa, hên xui nghe!

Cám ơn bạn nhiều nhé!
code đáp ứng được một nửa yêu cầu của mình(Khi chuyển sheet bằng "Ctrl" + "Page Up" hoặc "Ctrl" + "Page Down" thì các nút vẫn không tô sáng tương ứng)
Mình sẽ ngâm cứu thêm code của bạn.

 

[giaiphap]

Cám ơn bạn nhiều nhé!
code đáp ứng được một nửa yêu cầu của mình(Khi chuyển sheet bằng "Ctrl" + "Page Up" hoặc "Ctrl" + "Page Down" thì các nút vẫn không tô sáng tương ứng)
Mình sẽ ngâm cứu thêm code của bạn.

Vậy thêm code sau vào ThisWorkBook.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
       ValE = False
       MyRibbon.InvalidateControl Sheet_Name
       Sheet_Name = Sh.Name
       ValE = True
       MyRibbon.InvalidateControl Sheet_Name
End Sub

 

[chucuoi92]

Vậy thêm code sau vào ThisWorkBook.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
       ValE = False
       MyRibbon.InvalidateControl Sheet_Name
       Sheet_Name = Sh.Name
       ValE = True
       MyRibbon.InvalidateControl Sheet_Name
End Sub

OK !
Cám ơn bạn nhiều!
Code đã thỏa mãn yêu cầu.