在Excel VBA中为单元格分配日期

Question

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

以下是相同的代码。

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

它给了我

应用程序定义或对象定义错误

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