带有“ CommandBarControl.onaction”的“ Worksheet.activate”不起作用

Question

我有一个动态的右键单击菜单，该菜单可用于在工作表之间切换，并选择必要的行。我的问题是，当程序开始使用“ .onaction”方法运行宏时，Worksheets（“ xy”）并不占优势。

这是一个不完整的示例：

[...]
Dim ws As Worksheet, i as long
i=0
For Each ws In ActiveWorkbook.Worksheets
    Menu1.Controls.add (msoControlButton)
    Menu1.Controls(i).Caption = ws.Name
    Menu1.Controls(i).OnAction = "SheetChange(""" & ws.Name & """)"
    i=i+1
Next

[...]

Sub SheetChange(x as string)
        worksheets(x).activate
        worksheets(x).Range("A1").select
end sub

有什么方法可以在子程序（称为“ .onaction”）中使用“激活”和“选择”方法吗？

Answer 1

不要使用“（” ...“）” 尝试：

set_values()