Question

我有一个奇怪的问题，一个命令按钮拒绝运行附加的宏。我收到消息＆＃34;无法运行宏＆＃34;＆＃34;。宏可能在此工作簿中不可用，或者可能禁用所有宏。＆＃34;

我有三个按钮在新工作表上创建并分配了宏。前两个按钮工作完美，但第三个没有。如果我将相同的宏重新分配给按钮（右键单击 - 指定宏）它可以正常工作，但这不能完成我需要的。

已启用所有宏等。我希望有人可以提供帮助，这是我的头脑！

    Sub AddButton()

    Dim ButtonName1, ButtonName2, ButtonName3 As String

    ActiveSheet.Buttons.Add(200, 5, 81, 36).Select
    ButtonName1 = Selection.Name
    Selection.OnAction = "CopyBack"
    ActiveSheet.Shapes(ButtonName1).TextFrame.Characters.Text = "Modify Scenario (Copy back)"

    ActiveSheet.Buttons.Add(285, 5, 81, 36).Select
    ButtonName2 = Selection.Name
    Selection.OnAction = "GotoPlanner"
    ActiveSheet.Shapes(ButtonName2).TextFrame.Characters.Text = "Return To Shift Planner"

    ActiveSheet.Buttons.Add(370, 5, 81, 36).Select
    ButtonName3 = Selection.Name
    Selection.OnAction = "DellCurrSheet"
    ActiveSheet.Shapes(ButtonName3).TextFrame.Characters.Text = "Delete This Scenario"

    ActiveSheet.Range("A1").Select

    End Sub

Answer 1

道歉，如果我浪费了任何时间，但我已经确定了导致宏名称分配问题的拼写错误。

Excel - 附加到表单的宏控制按钮未激活

1 个答案: