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