Sub test()
Dim response
response = MsgBox("请点击下面的按钮", vbOKCancel)
If response = 1 Then
MsgBox "你点击了确定,很棒" '如果response的值是1,执行这条语句
Else
Exit Sub '如果response的值不是1,退出过程
End If
End Sub
Dim response
response = MsgBox("请点击下面的按钮", vbOKCancel)
If response = 1 Then
MsgBox "你点击了确定,很棒" '如果response的值是1,执行这条语句
Else
Exit Sub '如果response的值不是1,退出过程
End If
End Sub