在vba中使用哪个buttonselect？
我相信这可能是一个简单的问题。 我正在尝试将新macros分配给放在工作表上的button。 这是我的代码分配macros的button。
.Shapes("Atlanta MFG").OnAction = "Atlanta" .Shapes("Denver MFG").OnAction = "Denver" .Shapes("Louisville MFG").OnAction = "Louisville" 我的代码一直运行。 那么这个片段是最后一部分。 它将亚特兰大macros指定给亚特兰大button，但之后代码只是STOPS。 其他button不分配，看起来代码完全停止。 然后我可以打f8重新开始。 为什么我的代码会停止，而不是在第一个button之后将macros分配给其余的button？ 先谢谢你！ 我猜我需要添加一些其他types的代码，以继续分配给他们的macros。
UPDATE ————————————————- ————-
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个button不是所有的代码都在那里。 我添加button，然后将它们移动一些，然后我为每个位置制作私人潜艇。 例如，
Private Sub Atlanta() MsgBox "Atlanta MFG do your thing!" End Sub
我有这些每个位置之一。 当我运行它时，我可以点击亚特兰大button，但是之后的每一个我都不能点击。 他们只是这样做，所以我可以移动框，而不是实际运行button。
第二次更新!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!
显然这是工作。 我不知道是否按Ctrl-Shift-F9做了它或什么…但今天早上我试了一下，按Ctrl-Shift-F9，然后它跑了。 所以也许我昨天刚刚搞乱了。 谢谢您的帮助！
如果你曾经rest过一次，Excel有时会认为它仍然存在。 尝试控制+转移+ F9清除所有之前再次尝试