在excel vba中为单元格指定日期

Question

我只是想通过excel vba宏将当前日期输入到单元格中。

以下是相同的代码。

Cells(i,j).value = Format(Date, "mm-dd-yyyy")

它给了我

  

应用程序定义的OR Object定义错误

Answer 1

Cells(i,j).value = Format(Now, "mm-dd-yyyy")

Answer 2

你的代码看起来不错。但是，问题可能是您没有声明活动表。或者查看i和j的价值是什么：

debug.print i; j
ActiveSheet.Cells(i,j).value = Format(Date, "mm-dd-yyyy")

或

Worksheets(1).Cells(i,j).value = Format(Date, "mm-dd-yyyy")

在这里查看一下范围对象： https://msdn.microsoft.com/en-us/library/office/ff838238.aspx

Answer 3

由于建议的方法对我不起作用，因此我找到了另一种解决方案：

ActiveSheet.Cells(i,j).Value2 = Date