路出定决路思
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim jg
Dim i%
Dim r As Range
For i = 2 To 12
Select Case Cells(i, 1)
Case Is < 60
jg = "不及格"
Case Is < 70
jg = "及格"
Case Is < 85
jg = "良好"
Case Else
jg = "优秀"
End Select
Cells(i, 1).Offset(0, 1) = jg
Next
End Sub
这个事件程序代码错在哪里啦
为啥不能运行啊
