excel中的VB问题

来源：百度知道 编辑：UC知道 时间：2024/06/01 02:06:07
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub

Dim c As Range
For Each c In Target
If IsEmpty(c) Then
c.Offset(, 1).ClearContents
Else
c.Offset(, 1) = Now
End If
Next
End Sub

B列记录A列的输入时间。
如果是D列记录C列的输入时间，怎么写？

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Then Exit Sub
Dim c As Range
For Each c In Target
If IsEmpty(c) Then
c.Offset(, 1).ClearContents
Else
c.Offset(, 1) = Now
End If
Next
End Sub

代码如下。只需在第2行做一处改动。
===========================
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then

Dim c As Range
For Each c In Target
If IsEmpty(c) Then
c.Offset(, 1).ClearContents
Else
c.Offset(, 1) = Now
End If
Next
End If
End Sub