Dim YesNoYesNo=msgbox("确定删除?",vbYesNo,"警告")If YesNo=vbYes then '执行点了Yes的代码 Else '执行点了No的代码End If
你这个不就是判断点击是了吗