Excelfunction区自定义：dynamic菜单，getContent和OnAction

下面的代码产生由OnAction部分引起的以下错误：“错误的参数数量或无效的属性分配”。

Sub GetContent(control As IRibbonControl, ByRef returnedVal) Dim xml As String Dim i As Integer lastRow = ActiveSheet.Range("A100").End(xlUp).Row xml = "<menu xmlns=""http://schemas.microsoft.com/office/2009/07/customui"">" For i = 2 To lastRow xml = xml & "<button id=" & """but" & i & """" & " label=""" & ActiveSheet.Range("A" & i).Value & """" & " onAction=" & """" & ActiveSheet.Range("B" & i).Value & """" & " />" Next xml = xml & "</menu>" returnedVal = xml End Sub 

目标是在function区中根据工作表中两列的input创build一个dynamic菜单，一个表名（A），一个名称（B）。

Answer 1

我刚刚find解决scheme。 我正在尝试使用onAction语句执行的macros中需要以下内容：

ByRef control As IRibbonControl

所以：

 Sub Table1(ByRef control As IRibbonControl) code end sub