两组代码合并后，其中一组无效，请求高手修改！

[qq_33669478]

Private Sub worksheet_change(ByVal Target As Range)
If Intersect(Target, [H5,X4]) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Target.Address = "$H$5" Then
[X4] = [H5]
Else
[H5] = [X4]
End If
If Intersect(Target, [H7,y6]) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Target.Address = "$H$7" Then
[y6] = [H7]
Else
[H7] = [y6]
End If
Application.EnableEvents = True
End Sub

[笨狗先飞]

代码没看懂，合并一下还是会的。。。

Private Sub worksheet_change(ByVal Target As Range)
  Application.EnableEvents = False   
  If Not Intersect(Target, [H5,X4]) Is Nothing Then
    If Target.Address = "$H$5" Then
      [X4] = [H5]               
    Else
      [H5] = [X4]
    End If
  End If
 If Not Intersect(Target, [H7,y6]) Is Nothing Then
    If Target.Address = "$H$7" Then
      [y6] = [H7]              
    Else
      [H7] = [y6]              
    End If
  End If 
  Application.EnableEvents = True   
End Sub 

[笨狗先飞]

还有错的地方？

[笨狗先飞]

逻辑上Application.EnableEvents = False  重叠了，而且当[H7,y6]不合条件退出时Application.EnableEvents还是False状态。

[qq_33669478]

这位朋友，太谢谢你了。这对我的采矿程序简单化了很多。这是两组代码合并的，遇上三组同样的代码能合并吗？如果能的话请抽时间帮我编一个，不胜感激。