VBA

 

Sub aaaa()
    If vbOK = (MsgBox("请点击确定按钮", vbOKCancel, "提示")) Then
        MsgBox "确定按钮被点击", vbOKOnly
    End If

    Worksheets("Sheet3").Range("B2:C3").ClearContents
End Sub