Excel功能区下拉列表

Question

我有一个Excel加载项，它使用XML为我的功能区添加了一个选项卡。

该标签包含一个包含三个选项的下拉列表。当我选择与当前值不同的选项时，宏运行正常，但是当我单击下拉列表并且值保持不变时，宏不会运行。

宏更新所选单元格的格式。当我点击下拉菜单时，如何运行宏，即使值保持不变。这是我的xml和vb代码：

XML：

<group id="pvt" label="Formatting">       
  <dropDown id="ddItem" label="Date Format" onAction="dtFormat">
  <item id="Item1" label="dd-mmm-yyyy"/>
  <item id="Item2" label="dd-mmm-yy"/>
  <item id="Item3" label="dd/mmm/yyyy"/>
  </dropDown>
</group >

VB.NET：

Public Sub dtFormat(control As IRibbonControl, ID As String, index As Integer)
    If index = 0 Then
        Selection.NumberFormat = "dd-mmm-yyyy"
    ElseIf index = 1 Then
        Selection.NumberFormat = "dd-mmm-yy"
    ElseIf index = 2 Then
        Selection.NumberFormat = "dd\/mmm\/yyyy"
    End If

End Sub