Question

正如标题所述，我正在尝试创建一个清除一系列单元格的按钮。在清除单元格之前，我弹出一个对话框以确认选择。这是我的代码：

Private Sub CommandButton1_Click()

    If MsgBox("THIS WILL CLEAR EVERYTHING IN THE CART! Are you sure?", vbYesNo) = vbNo Then Exit Sub

    Range("A28:AA47").ClearContents

End Sub

当我处于设计模式并按“播放”时代码有效，但当我退出设计模式时，按钮在我的工作表上不起作用。

当我选择“否”时代码是否完全结束，即使我再次点击按钮它也不会再次运行？

Answer 1

您的代码看起来有点不完整。试试这个：

编辑：再清理一下。不需要vbNo，好像你没有选择是，子程序就会结束。

Private Sub CommandButton1_Click()

If MsgBox("THIS WILL CLEAR EVERYTHING IN THE CART! Are you sure?", vbYesNo) = vbYes Then
    Range("A28:AA47").ClearContents
End If

End Sub

VBA按钮清除一系列单元格

1 个答案: