在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

你的代码看起来不错。但是，问题可能是您没有声明activesheet。或者看到什么是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