VBA代码如何表示,当我单击A2单元格,触发msgbox,选择是否修改,如果点击Yes,则再次弹出msgbox。求修改

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Row = 2 Then
response = MsgBox("你确定要修改吗", vbYesNo)
If response = vbYes Then
MsgBox "你选择了YES"
Else
MsgBox "你选择了NO"
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Row = 2 Then
response = MsgBox("你确定要修改吗", vbYesNo)
If response = vbYes Then
MsgBox "你选择了YES"
Else
MsgBox "你选择了NO"
End If
End If
End Sub
温馨提示:答案为网友推荐,仅供参考
相似回答