excel - 消息框需要帮助

Question

嗨，下面的代码除了消息框外都有效，当用户单击“否”时，它仍然运行代码，因为我缺乏知识，我看不出它是否出错了欢迎任何帮助

谢谢

Private Sub CommandButton1_Click()
Dim Msg, Style, Title, Help, Ctxt, Response, MyString

If WorksheetFunction.CountA(Sheets("Sheet2").Range("V11:DM88")) <> 0 Then
MsgBox "Destination range is not empty"
Exit Sub
End If


Msg = "Do you want to continue ?"            ' Define message.
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Define buttons.
Title = "Warning, This Action Canot be undone Once Accepted!  " ' Define title.
'Help = "DEMO.HLP"    ' Define Help file.
Ctxt = 1000                                  ' Define topic context.
' Display message.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)

If Response = vbYes Then                     ' User chose Yes.
    MyString = "Yes"                         ' Perform some action.
Else                                         ' User chose No.
    MyString = "No"                          ' Perform some action.
End If

Sheets("Sheet1").Range("b11:cs88").Copy Destination:=Sheets("Sheet2").Range("v11")
Range("b11:cs88").ClearContents

结束子

标签： excel