问与答70： 如何记录指定单元格每次修改的时间？

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngInput As Range
    Dim rngLog As Range
 
    '要记录其修改时间的单元格
    Set rngInput = Range("B2")
   
    '确定单元格是目标单元格
    If Intersect(rngInput, Target.Cells(1, 1)) Is Nothing Then Exit Sub
 
    '修改为小于0的值不记录
    If rngInput.Value <= 0 Then Exit Sub
 
    '将修改单元格时的时间记录到工作表LogB2
    With Worksheets("LogB2")
        '工作表最后一行
        Set rngLog = .Cells(.Rows.Count,1).End(xlUp)
       
        '确定工作表最后一行单元格含有值
        If Len(rngLog.Value) > 0 Then
            '移至下方相邻的空单元格
            Set rngLog = rngLog.Offset(1, 0)
        End If
    End With
   
    '写入当前时间
    rngLog.Value = Now
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngLog As Range
    Dim wksLog As Worksheet
   
    '根据所修改的单元格
    '赋值相应的工作表
    Select Case Target.Cells(1, 1).Address
        Case "$B$2"
            Set wksLog =Worksheets("LogB2")
        Case "$D$2"
            Set wksLog =Worksheets("LogD2")
        Case Else
            Exit Sub
    End Select
 
    '如果修改的值小于0则不记录修改时间
    If Target.Cells(1, 1).Value <= 0 ThenExit Sub
 
    With wksLog
        '工作表数据所在的最后一行
        Set rngLog = .Cells(.Rows.Count, 1).End(xlUp)
       
        '如果最后一个数据单元格包含值
        If Len(rngLog.Value) > 0 Then
            '偏移到下方相邻单元格
            Set rngLog = rngLog.Offset(1, 0)
        End If
    End With
   
    '写入当前时间
    rngLog.Value = Now
End Sub