自定义选项卡的combobox控件的下拉列表显示

微时空

最近学了RibbonX开发，想做一个ComboBox动态显示当前工作簿所有工作表的名称，功能需求如下：
当新增或删除工作表时，单击选项卡中的ComboBox能看到Item List同步发生变化。
但做完了之后发现RibbonX只在打开工作簿时加载一次，

ComboBox的item无法发生变化，特来论坛求助各位兄弟，有没有好的方法思路可以实现？

请参照附件如下

yf_home

要做动态的，

山菊花

在增加、删除工作表时，要让下拉框动态更新，可以通过四个步骤完成：
1、声明一个变量，用来存储当前功能区引用。
Public grxIRibbonUI As IRibbonUI,

2、功能区有个onLoad事件，在这里，可以把当前功能区对象保存到变量 grxIRibbonUI 。
Sub rxIRibbonUI_onLoad(ribbon As IRibbonUI)
    Set grxIRibbonUI = ribbon
End Sub

3、onLoad事件运行的过程名自己定义，在XML代码中设定：
customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"  onLoad="rxIRibbonUI_onLoad"

4、在ThisWorkbook 模块中加入代码，当激活新的工作表时，刷新功能区的"ks_n"，即下拉框：
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    grxIRibbonUI.InvalidateControl ("ks_n")
End Sub

==================================
原附件打开时提示一个加载Dll错误。这个附件是新建的一个工作簿。

微时空

山菊花 发表于 2019-2-28 14:40
在增加、删除工作表时，要让下拉框动态更新，可以通过四个步骤完成：
1、声明一个变量，用来存储当前功能 ...

山菊花大哥你好，
感谢您的专业帮助，我还有一个问题需要你的援助，我需要把这个excel保存成xlam格式用来加载到其他excel中，这样的话下面这段代码就没办法用到，想问问还有什么好方法可以代替实现监测当前工作簿的工作表变化呢？
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    grxIRibbonUI.InvalidateControl ("ks_n")
End Sub

微时空

山菊花 发表于 2019-2-28 14:40
在增加、删除工作表时，要让下拉框动态更新，可以通过四个步骤完成：
1、声明一个变量，用来存储当前功能 ...

如果是想要做成xlam加载项加载到其他 EXCEL 中呢？怎么监测 当前工作簿的工作表变化 呢？
这样用ThisWorkbook 里面的代码就没办法对ActiveWorkbook起作用了。

山菊花

可以按需要改为ActiveWorkbook。

微时空

山菊花 发表于 2019-2-28 17:09
可以按需要改为ActiveWorkbook。

改成下面这样对吗？


Public grxIRibbonUI As IRibbonUI
Public selsht As String
Sub rxIRibbonUI_onLoad(ribbon As IRibbonUI)
Set grxIRibbonUI = ribbon
End Sub
Sub nCount(control As IRibbonControl, ByRef returnedVal)
    returnedVal = ActiveWorkbook.Sheets.Count
End Sub
Sub nID(control As IRibbonControl, index As Integer, ByRef id)
    id = control.id & index
End Sub
Sub nLabel(control As IRibbonControl, index As Integer, ByRef returnedVal)
    returnedVal = ActiveWorkbook.Sheets(index + 1).Name
End Sub

'设置默认值
Sub nMoren(control As IRibbonControl, ByRef returnedVal)
    If selsht = "" Then
    returnedVal = ActiveWorkbook.Sheets(1).Name
    End If
End Sub

'选择工作表保存到变量
Sub ksn_Click(control As IRibbonControl, text As String)
    selsht = text
    MsgBox selsht
End Sub
Sub ActiveWorkbook_SheetActivate(ByVal Sh As Object)
grxIRibbonUI.InvalidateControl ("ks_n")
End Sub

微时空

山菊花 发表于 2019-2-28 17:09
可以按需要改为ActiveWorkbook。

山哥，改成下面这样对吗？

Public grxIRibbonUI As IRibbonUI
Public selsht As String
Sub rxIRibbonUI_onLoad(ribbon As IRibbonUI)
Set grxIRibbonUI = ribbon
End Sub
Sub nCount(control As IRibbonControl, ByRef returnedVal)
    returnedVal = ActiveWorkbook.Sheets.Count
End Sub
Sub nID(control As IRibbonControl, index As Integer, ByRef id)
    id = control.id & index
End Sub
Sub nLabel(control As IRibbonControl, index As Integer, ByRef returnedVal)
    returnedVal = ActiveWorkbook.Sheets(index + 1).Name
End Sub

'设置默认值
Sub nMoren(control As IRibbonControl, ByRef returnedVal)
    If selsht = "" Then
    returnedVal = ActiveWorkbook.Sheets(1).Name
    End If
End Sub

'选择工作表保存到变量
Sub ksn_Click(control As IRibbonControl, text As String)
    selsht = text
    MsgBox selsht
End Sub
Sub ActiveWorkbook_SheetActivate(ByVal Sh As Object)
grxIRibbonUI.InvalidateControl ("ks_n")
End Sub

微时空

山菊花 发表于 2019-2-28 17:09
可以按需要改为ActiveWorkbook。

是改成这样就行吗？
Private Sub ActiveWorkbook_SheetActivate(ByVal Sh As Object)
grxIRibbonUI.InvalidateControl ("ks_n")
End Sub

微时空

山菊花 发表于 2019-2-28 17:09
可以按需要改为ActiveWorkbook。

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
grxIRibbonUI.InvalidateControl ("ks_n")
End Sub