Excel自定义选项卡ComboBox选择后重置为默认项的实现方案

要实现排序完成后将ComboBox重置回“Choix”选项，需要借助Ribbon的刷新机制和状态跟踪，具体步骤如下：

1. 修改Ribbon XML代码 #

添加onLoad回调（用于获取Ribbon实例）和getSelectedItemIndex回调（用于控制选中项）：

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="Ribbon_Load">
    <ribbon>
        <!-- 保留你的原有Ribbon结构 -->
        <comboBox id="Tri_Col" label="Tri_colonne" 
            screentip="Tri la base selon le contenu de la colonne Active"
            supertip="Filtrez la base des écriture selon la colonne active, vous pourrez retrouver un ordre logique avec le bouton tri complet" 
            onChange="Tri_Col" 
            getItemLabel="Tri_ColGetLabel"
            getItemCount="Tri_ColGetCount"
            getSelectedItemIndex="Tri_Col_GetSelectedIndex">
            <!--Chaque item correspond à un élément de la liste déroulante :-->
            <item id="itF0" label="Choix" imageMso="Help" />  
            <item id="itF1" label="Ascendant" imageMso="SortAscendingExcel" /> 
            <item id="itF2" label="Descendant" imageMso="SortDescendingExcel" /> 
        </comboBox>
        <!-- 保留你的其他Ribbon控件 -->
    </ribbon>
</customUI>

2. 修改VBA代码 #

• 声明全局变量跟踪Ribbon实例和当前选中项索引
• 实现onLoad回调初始化Ribbon实例
• 实现getSelectedItemIndex回调返回当前选中索引
• 在排序完成后重置选中索引并刷新控件

' 全局变量：保存Ribbon实例和当前选中项索引
Dim gRibbon As IRibbonUI
Dim gTriColSelectedIndex As Integer

' Callback for customUI onLoad
Sub Ribbon_Load(ribbon As IRibbonUI)
    Set gRibbon = ribbon
    gTriColSelectedIndex = 0 ' 默认选中第一个选项“Choix”
End Sub

' Callback for Tri_Col getSelectedItemIndex
Sub Tri_Col_GetSelectedIndex(control As IRibbonControl, ByRef returnedVal)
    returnedVal = gTriColSelectedIndex
End Sub

' Callback for Tri_Col onChange
Sub Tri_Col(control As IRibbonControl, text As String)
    MsgBox "Vous avez choisi : " & text
    ' 执行排序逻辑
    TrierTableau_Col text
    
    ' 重置选中项为“Choix”（索引0）并刷新控件
    gTriColSelectedIndex = 0
    gRibbon.InvalidateControl "Tri_Col"
End Sub

' 你的排序过程（保留原有逻辑）
Sub TrierTableau_Col(sortType As String)
    If sortType = "Ascendant" Then
        ' 升序排序逻辑
    ElseIf sortType = "Descendant" Then
        ' 降序排序逻辑
    End If
End Sub

原理说明 #

• gRibbon变量保存Ribbon实例，用于调用InvalidateControl方法刷新指定控件
• gTriColSelectedIndex跟踪ComboBox的选中项索引，重置为0即对应“Choix”选项
• 调用InvalidateControl后，Ribbon会触发getSelectedItemIndex回调，返回重置后的索引，从而更新ComboBox的显示

内容的提问来源于stack exchange，提问作者phmauber