如何使用VBA将Excel单元格设置为当前日期？

Question

每当有人在工作表中的其他单元格中进行更改时，尝试将excel单元格设置为当前日期时，我都会遇到错误。

这是代码：

Dim EditDate As Date

RowNum = ActiveCell.Row
ColNum = ActiveCell.Column

If ColNum = 11 Or ColNum = 13 Or ColNum = 19 Or ColNum = 20 Or ColNum = 21 Or ColNum = 22 _
Or ColNum = 23 Or ColNum = 24 Then

    Application.EnableEvents = False

    EditDate = Date()
    ActiveWorksheet.Range("Y," & RowNum).Value = EditDate

    Application.EnableEvents = True

End If

每当我尝试在其中一个单元格中进行更改时，我都会收到一个对象必需的错误。 我该如何做？

Answer 1

我认为您的问题不是将RowNum或ColNum声明为任何东西。 您希望它们都是某种数字type （在此示例中，我使用Long ）。

就像PatricK所说的那样， ActiveWorksheet应该是ActiveSheet 。 您还遇到了其他一些语法错误，但是请看一下我想要的工作版本的代码。

我不知道您是否输入了这段代码。 我会将代码作为Change Event托管在Worksheet对象中。

工作代码：

Sub Worksheet_Change(ByVal Target As Range)
    Dim EditDate As Date
    Dim RowNum As Long
    Dim ColNum As Long

    RowNum = ActiveCell.Row
    ColNum = ActiveCell.Column

    If ColNum = 11 Or ColNum = 13 Or ColNum = 19 Or ColNum = 20 Or ColNum = 21 Or ColNum = 22 _
    Or ColNum = 23 Or ColNum = 24 Then
        Application.EnableEvents = False
        EditDate = Format(Now(), "d/m/yyyy hh:mm")
        ActiveSheet.Range("Y" & RowNum).Value = EditDate
        Application.EnableEvents = True
    End If   
End Sub

Answer 2

您应该使用ActiveSheet.Range("Y," & RowNum).Value = EditDate ，而不是ActiveWorksheet