请问单元格输入内容后，在旁边单元格自动输入时间的问题

o0star0o

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. '当H列（第8列）输入后，D列（第4列）写入更新时间
   
3.     If CDec(Target.Rows.Count) * Target.Columns.Count <> 1 Then Exit Sub
   
4.     If Target.Column = 8 Then
   
5.         If Len(Target.Value) Then
   
6.              Target.Offset(, -4) = Date
   
7.         End If
   
8.     End If
   

复制代码

这是原始代码，意思是在第8列输入内容后，第4列写入时间

我现在需要在第8列 或 第13列 或 第17列，其中一列输入内容后，都可以在第4列写入时间，请问这个代码怎么实现呢？

smsn

    If Target.Column = 8 Or Target.Column = 13 Or Target.Column = 17 Then
        If Len(Target.Value) Then
            Cells(Target.Row, 4) = Now()
        End If
    End If

a18b88

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Column = 8 And Target.Row > 3 Then
        Target.Offset(0, -4) = Date
        End If '
    If Target.Column = 13 And Target.Row > 3 Then
        Target.Offset(0, -9) = Date
        End If '
     If Target.Column = 17 And Target.Row > 3 Then
        Target.Offset(0, -13) = Date
        End If '
End Sub

zxsea_7426

Private Sub Worksheet_Change(ByVal Target As Range)
'当H列（第8列）输入后，D列（第4列）写入更新时间
    If CDec(Target.Rows.Count) * Target.Columns.Count <> 1 Then Exit Sub
    If Target.Column = 8 or Target.Column = 13 or Target.Column = 17 Then
        If Len(Target.Value) Then
             cells(Target.row,4) = Date
        End If
    End If

a18b88

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 8 Or Target.Column = 13 Or Target.Column = 17 And Target.Row > 1 Then
m = Target.Row
Cells(m, 4) = Date
End If

End Sub

学良

smsn 发表于 2022-11-30 00:11
If Target.Column = 8 Or Target.Column = 13 Or Target.Column = 17 Then
        If Len(Target.Val ...

0点11分还在回贴；赞一个！！！