使用工作表名称动态填充ComboBox

Question

我无法动态填充excel功能区上的组合框。 我希望动态地使用工作簿的工作表名称来填充组合框。 我能够选择已放置在功能区上的组合框中已经存在的工作表名称，但是如果我添加它们或修改名称，我就不能编码以使用工作表名称来填充组合框。 / p>

我写了下面的代码，但它不起作用：

Sub SelectionFeuille_GetItemLabel(control As IRibbonControl, index As Integer, ByRef returnedVal)


 Dim dTime As Date

dTime = Now + TimeValue("00:00:01") 'hh:mm:ss
Application.OnTime dTime, "Refresh_all"

returnedVal = ActiveWorkbook.Worksheets(index + 1).Name

End Sub

请帮助我....

Answer 1

我发现这样做的最简单方法是捕获div事件，然后通过为其单元格中的每个工作表创建一个带有公式的隐藏工作表来实现。它远非完美，如果说实话，这是一个非常丑陋的解决方法，但至少它是你思考的食物。我想计时器也可以工作，但这看起来同样难看。

所有这些代码都在您工作簿背后的代码中：

Calculate