在vba中使用哪个按钮选择?

在vba中使用哪个按钮选择?,vba,excel,Vba,Excel,我相信这可能是一个简单的问题。我试图将新宏分配给我放在工作表上的按钮。这是我为按钮分配宏的代码 .Shapes("Atlanta MFG").OnAction = "Atlanta" .Shapes("Denver MFG").OnAction = "Denver" .Shapes("Louisville MFG").OnAction = "Louisville" 我的代码一直在运行。那么上面的这个片段就是最后一部分了。它会将Atlanta宏指定给Atlanta按钮,但

我相信这可能是一个简单的问题。我试图将新宏分配给我放在工作表上的按钮。这是我为按钮分配宏的代码

    .Shapes("Atlanta MFG").OnAction = "Atlanta"
    .Shapes("Denver MFG").OnAction = "Denver"
    .Shapes("Louisville MFG").OnAction = "Louisville"
我的代码一直在运行。那么上面的这个片段就是最后一部分了。它会将Atlanta宏指定给Atlanta按钮,但之后代码就停止了。其他按钮没有被分配,看起来代码完全停止了。然后我可以按f8重新开始。为什么我的代码在执行第一个按钮后停止并没有将宏分配给其余按钮?提前谢谢你!我猜我需要添加一些其他类型的代码,以便继续将宏分配给它们

更新--------------------------------------------------------------

With ActiveSheet
    .BUTTONS.Add(53.25, 36.75, 190.5, 41.25).Select
    .BUTTONS("Button 1").Text = "Atlanta MFG"
    .BUTTONS("Button 1").name = "Atlanta MFG"
    .Shapes("Atlanta MFG").IncrementTop -12

    .BUTTONS.Add(53.25, 36.75, 190.5, 41.25).Select
    .Shapes("Button 2").IncrementLeft 222
    .Shapes("Button 2").IncrementTop -12
    .BUTTONS("Button 2").Text = "Denver MFG"
    .BUTTONS("Button 2").name = "Denver MFG"
    .BUTTONS("Button 7").Text = "Modesto MFG"
    .BUTTONS("Button 7").name = "Modesto MFG"
    .BUTTONS("Button 8").Text = "Seattle MFG"
    .BUTTONS("Button 8").name = "Seattle MFG"
    .BUTTONS("Button 9").Text = "Tustin MFG"
    .BUTTONS("Button 9").name = "Tustin MFG"
    .BUTTONS("Button 10").Text = "York MFG"
    .BUTTONS("Button 10").name = "York MFG"
    .BUTTONS("Button 11").Text = "Button 11"
    .BUTTONS("Button 11").name = "Button 11"
    .BUTTONS("Button 12").Text = "Button 12"
    .BUTTONS("Button 12").name = "Button 12"

    .Shapes("Atlanta MFG").OnAction = "Atlanta"
    .Shapes("Denver MFG").OnAction = "Denver"
    .Shapes("Jackson MFG").OnAction = "Jackson"
    .Shapes("Louisville MFG").OnAction = "Louisville"

    Range("A1").Select

End With
所以我添加了10个按钮,并不是所有的代码都在那里。我添加按钮,然后将它们移动一些,然后为每个位置制作专用Sub。比如说,

Private Sub Atlanta()

MsgBox "Atlanta MFG do your thing!"

End Sub
每个位置我都有一个。当我运行它的时候,我可以点击亚特兰大按钮,但之后的每一个按钮我都不能点击。他们只是让我可以移动盒子,而不是实际运行按钮

第二次更新


显然,它正在发挥作用。我不确定是按ctrl-shift-f9还是什么。。。但我今天早上试过了,按ctrl-shift-f9,然后它就全部运行了。也许我昨晚只是搞砸了。谢谢你的帮助

如果你曾经在一行上放了一个休息或手表,Excel有时会认为它还在那里。在重试之前,请尝试control+shift+F9将其全部清除

此处缺少一些信息/上下文:请使用完整的代码进行更新(如果代码太长,可以删除不相关的部分)更新到目前为止没有更多内容。我刚开始的时候,我只是做了一些按钮,移动了一些,然后告诉他们玩一个宏,宏只会弹出一个消息框,看看它是否工作。编辑-所以很明显它现在工作了。我不知道发生了什么事。昨天我下班的时候它不工作。。。。在我尝试之前,我确实尝试了另一个家伙说的话,所以可能按ctrl-shift-f9有效…我不确定这是否有效,但我从昨晚开始根本没有更改我的代码,然后我做了这个,然后再次运行,一切都正常。。。所以我不知道发生了什么。哈哈,我想这可能奏效了!