Mình cần giúp đỡ tạo macro cho thao tác Uncheck của check box và tạo Ribbon dạng Option Button (2 người xem)

[hktanh]

Chào các bạn. Mình dùng Custom UI Editor để tạo Ribbon mới (cái Ribbon My Tab trong file của mình) và mình đã sử dụng ô check box để kích hoạt macro nhưng mình gặp phải một vấn đề đó là công việc của mình đòi hỏi một cái tùy chọn kiểu như cái Option Button (kiểu danh sách gồm nhiều tùy chọn) ý nhưng mình thấy Custom UI Editor không có, và mình cũng thấy là cái Custom UI Editor thì check box của nó chỉ có duy nhất một kiểu gọi macro là onAction, cái mà mình muốn đó là khi mình check chọn vào check box nó sẽ gọi một macro, khi mình bỏ chọn thì nó cũng sẽ gọi một macro, với mình cũng cần tạo Ribbon kiểu Option Button như mình đã trình bày nhé. Các bạn làm được rồi thì cho mình xin code với nhé Mong các bạn giúp đỡ mình, mình cảm ơn

 

[giaiphap]

Chào các bạn. Mình dùng Custom UI Editor để tạo Ribbon mới (cái Ribbon My Tab trong file của mình) và mình đã sử dụng ô check box để kích hoạt macro nhưng mình gặp phải một vấn đề đó là công việc của mình đòi hỏi một cái tùy chọn kiểu như cái Option Button (kiểu danh sách gồm nhiều tùy chọn) ý nhưng mình thấy Custom UI Editor không có, và mình cũng thấy là cái Custom UI Editor thì check box của nó chỉ có duy nhất một kiểu gọi macro là onAction, cái mà mình muốn đó là khi mình check chọn vào check box nó sẽ gọi một macro, khi mình bỏ chọn thì nó cũng sẽ gọi một macro, với mình cũng cần tạo Ribbon kiểu Option Button như mình đã trình bày nhé. Các bạn làm được rồi thì cho mình xin code với nhé Mong các bạn giúp đỡ mình, mình cảm ơn

Thay code trong file của bạn thành thế này xem có gì khác biệt không?

Sub a(control As IRibbonControl, pressed As Boolean)
    If pressed Then Macro1 Else Macro2
End Sub
Sub b(control As IRibbonControl, pressed As Boolean)
    If pressed Then Macro3 Else Macro4
End Sub

Public Sub Macro1()
    MsgBox "ban dang goc macro 1"
End Sub
Public Sub Macro2()
    MsgBox "ban dang goc macro 2"
End Sub
Public Sub Macro3()
    MsgBox "ban dang goc macro 3"
End Sub
Public Sub Macro4()
    MsgBox "ban dang goc macro 4"
End Sub

 

[hktanh]

Thay code trong file của bạn thành thế này xem có gì khác biệt không?

Sub a(control As IRibbonControl, pressed As Boolean)
    If pressed Then Macro1 Else Macro2
End Sub
Sub b(control As IRibbonControl, pressed As Boolean)
    If pressed Then Macro3 Else Macro4
End Sub

Public Sub Macro1()
    MsgBox "ban dang goc macro 1"
End Sub
Public Sub Macro2()
    MsgBox "ban dang goc macro 2"
End Sub
Public Sub Macro3()
    MsgBox "ban dang goc macro 3"
End Sub
Public Sub Macro4()
    MsgBox "ban dang goc macro 4"
End Sub

Cảm ơn bạn nhé, trưa nay mình làm lại file mình cũng dùng hàm If , hì hì )

 

[Kiều Mạnh]

Cảm ơn bạn nhé, trưa nay mình làm lại file mình cũng dùng hàm If , hì hì )

khi nào rảnh vào trang sau tải file PDF Or DOCX chuẩn của Bill về mà coi ... sau này nhiều cái cần phải tra cứu nó

[MS-CUSTOMUI]: Custom UI XML Markup Specification

Specifies the Custom UI XML Markup used to implement UI customization in the context of ECMA-376 Office Open XML File Formats [ECMA-376]. This

docs.microsoft.com

 

[hktanh]

khi nào rảnh vào trang sau tải file PDF Or DOCX chuẩn của Bill về mà coi ... sau này nhiều cái cần phải tra cứu nó

[MS-CUSTOMUI]: Custom UI XML Markup Specification

Specifies the Custom UI XML Markup used to implement UI customization in the context of ECMA-376 Office Open XML File Formats [ECMA-376]. This

docs.microsoft.com

thank bạn nhé