刷新Excel CustomUI功能区下拉菜单不会打开工作簿

时间:2014-09-28 19:32:46

标签: xml vba excel-vba excel-2007 ribbonx

我希望有人对此有所了解...我了解如何根据单元格将Excel CustomUI Ribbon下拉列表更新为默认值...以下方法完美无缺,但下面引用的单元格& #34; AX6"可以通过用户表单进行更新。我希望功能区下拉菜单刷新/更新并反映用户窗体中选择的内容(userform只会更新单元格" AX6"其值反映XML代码中的下拉列表)...是否存在也许是一种方法来调用下面的VB子并让功能区下拉更新?我似乎无法找到一种方法来调用sub" control as IRibbonControl"没有它错误,我不确定子语句中的声明变量是否会引发另一个扳手......任何对此的帮助都将非常感激!!

XML:

<dropDown id="chooseFilter" showLabel="true" label="LOB" getSelectedItemID="GetSelectedItemID"
onAction="OnAction" tag="SkillDetail4" getEnabled="GetEnabledMacro"> 

VB:

Private mCurrentItemID As Variant
------------------------------------------------------------------------
Sub GetSelectedItemID(control As IRibbonControl, ByRef itemID As Variant)
  If IsEmpty(mCurrentItemID) Then
    mCurrentItemID = Worksheets("Skill Detail").Range("AX6").Value
  End If
  itemID = mCurrentItemID
End Sub

0 个答案:

没有答案