[已解决]求老师帮忙修改代码

野渡无舟

能不能让判断的速度更快一些
在此谢谢各位老师

最佳答案

月排行榜 / 总排行榜

zjdh

2012-12-21 15:15

加2段语句：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 2 And Target.Count = 1 Then
If (Target.Column - 2) Mod 5 = 0 And Target.Value <> "" Then
Application.EnableEvents = False
Dim y%, arr
'..............
End If
Application.EnableEvents = True
End Sub

跳转到最佳答案楼层

hoogle

代码什么目的，就是怎么判断合格和不合格？

zjdh

加2段语句：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 2 And Target.Count = 1 Then
If (Target.Column - 2) Mod 5 = 0 And Target.Value <> "" Then
Application.EnableEvents = False
Dim y%, arr
'..............
End If
Application.EnableEvents = True
End Sub