|
楼主 |
发表于 2014-10-21 11:03
|
显示全部楼层
422904z 发表于 2014-10-20 14:43
这个最好。
不好意思,本来不想再麻烦你了,但发的帖子没人回复,又要急着要用,不知道怎样能把两个VBA代码合用,就是一个工作表中同时运行两个代码.
第一段:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Row > 2 And Target.Column = 2 Then
Cells(Target.Row, 1) = Int(Now())
End If
End Sub
第二段:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
On Error Resume Next
Application.EnableEvents = False
i = Target.Row
If Target.Value = "" Then
Cells(i, 6) = ""
Cells(i, 7) = ""
Else
Cells(i, 6) = Application.UserName
Cells(i, 7) = VBA.Environ("computername")
End If
Application.EnableEvents = True
End Sub
|
|