[已解决]看看这个代码为什么这样执行

variable

这是在常见问题区一个朋友遇到的情况，代码为：Private Sub Worksheet_SelectionChange(ByVal Target As Range)   MsgBox Target.Value
If Target.Column = 2 And Target.Row > 1 And Target.Row < 12 Then
    [A1].Select
    MsgBox Target.Value
End If
End Sub
此时点击b2单元格，连续出现三个MsgBox 分别是2,1,2
朋友认为出现两个才对，我的理解是应该出现三个，因为，点击b2,选区发生变化执行MsgBox Target.Value语句，然后由于b2,满足if语句，a1被选中，选区再次发生变化，第一条的MsgBox Target.Value语句会再次被执行，然后执行后面一个MsgBox Target.Value语句。也就是说最后一条MsgBox Target.Value重复。我的问题是为什么最后msgbox显示为２，现在定位在a1位置上，a1的值是１。那么显示2、1、1才合理呀。

最佳答案

月排行榜 / 总排行榜

mxg825

2011-11-26 23:32

1.   Private Sub Worksheet_SelectionChange(ByVal Target As Range)   
2.   MsgBox Target.Value
3.   If Target.Column = 2 And Target.Row > 1 And Target.Row < 12 Then
4.    [A1].Select‘ 这里 又触发 选取事件 跳到1。，然后才 执行 没完成的 下面那句  
5 .   MsgBox Target.Value
6.    End If
7.    End Sub

你可以按F8  调试 一下
7.End Sub

跳转到最佳答案楼层

mxg825

1.   Private Sub Worksheet_SelectionChange(ByVal Target As Range)   
2.   MsgBox Target.Value
3.   If Target.Column = 2 And Target.Row > 1 And Target.Row < 12 Then
4.    [A1].Select‘ 这里 又触发 选取事件 跳到1。，然后才 执行 没完成的 下面那句  
5 .   MsgBox Target.Value
6.    End If
7.    End Sub

你可以按F8  调试 一下
7.End Sub

variable

不在模块里的代码怎么调试，你的对象窗口和vbe窗口怎么弄到一起的。

Benol

点到B2时，触发了事件，执行一次该过程（第一个事件）。在不考虑选中A1的情况，将有两次弹窗，两次都是[B2].VALUE
但是在第一个事件的第二次弹窗之前，触发了另一个事件，相当于又CALL了 Worksheet_SelectionChange （这是一个独立的过程，虽然跟上面的过程名是一样的，但其Target参数却是[A1]，并且它不会影响第一个事件过程中的TARGET）。由于这个事件在B2触发事件后的第二个弹窗之前，那么B2触发的第二个弹窗自然在这个过程的任何弹窗之后发生。

Benol

楼主客气了，二楼说的比我说的形象多了。我只是觉得如果能给二楼再配一点文字说明，可能更容易理解，于是冒昧发表自己的理解。大家都是为了学习，不是为了“最佳”。