使用VB代码在输入数据时创建时间戳,可以正常工作,但仍返回错误

时间:2019-04-08 17:32:20

标签: excel vba

我想捕获输入到(第5列)的每个值的数据输入时间(在第1列中)。我正在使用从这里获得的这段经过修改的代码: Excel Formula which places date/time in cell when data is entered in another cell in the same row

此代码可正常运行,但仍返回“运行时错误'1004':应用程序定义或对象定义的错误”。有什么办法可以忽略此错误,或者解决问题吗?我在这方面还很新,请多多包涵。

  • 我的目标列(5)是我要检查的数字是否大于0的地方,这是更新列1中时间的触发器

  • 第5列中的文本单元格超出我要检查的范围(E9:E50)。可能是造成问题的原因

  • 去调试时,代码的第二行突出显示,没有其他提示

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 5 And Target.Offset(0, -4).Value = "" Then
        If Target.Column > 0 Then
            Target.Offset(0, -4) = Format(Now(), "HH:MM:SS")
        End If
    End If
End Sub

0 个答案:

没有答案