|
不确定是不是这样,试试看
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.CountLarge = 1 Then
If Not Intersect(Target, Range("a:a")) Is Nothing Then
If Len(Target.Value) <= 8 Then
Application.EnableEvents = False
Cells(Target.Row, "B").Value = Mid(Target.Value, 3, Len(Target.Value) - 2)
Cells(Target.Row, "C").Value = Left(Target.Value, 2)
Application.EnableEvents = True
If Len(Target.Value) = 8 Then
Cells(Target.Row, "K").Value = Cells(Target.Row, "B").Value
End If
End If
ElseIf Not Intersect(Target, Range("K:K")) Is Nothing Then
If Target.Value = "" Then
Cells(Target.Row, "L").Value = ""
Else
Cells(Target.Row, "L").NumberFormat = "yyyy/m/d"
Cells(Target.Row, "L").Value = Date
End If
ElseIf Not Intersect(Target, Range("L:L")) Is Nothing Then
myId = Cells(Target.Row, "K")
myTime = 0
For i = 2 To Target.Row
If Cells(i, "K").Value = myId Then
myTime = myTime + 1
End If
Next i
If myTime Mod 2 Then
Cells(Target.Row, "M").NumberFormat = "HH:MM:SS"
Cells(Target.Row, "M").Value = Now
Else
Cells(Target.Row, "N").NumberFormat = "HH:MM:SS"
Cells(Target.Row, "N").Value = Now
End If
End If
End If
End Sub |
-
评分
-
2
查看全部评分
-
|