如果单元格为空，如何添加今天的日期，如果没有，请跳到下一列？

Question

我是一个完整的VBA noob，我正在尝试做一件看似简单的事情。

我的代码的目的是制作一个按钮，检查单元格是否为而不是空，它应该偏移到下一列，如果为空，则应该添加今天的日期。因此，我每天按下按钮，它都会在旧日期的旁边添加一个新日期。

这是我写的代码：

Private Sub New_Date_Click()
ActiveSheet.Range("E1").Select
If Not IsEmpty(ActiveCell.Value) Then
ActiveCell.Offset(0,1)
Else
ActiveCell.Value = Date
End Sub

它给了我一个错误消息，即偏移量所在的第4行缺少等号。

我的纸张看起来像

Answer 1

另一个论坛上的一个人回答了。

以下是代码的工作方式：

Sub New_Date_Click()
Cells(1, Columns.Count).End(xlToLeft).Offset(, 1).Value = Date
End Sub

我真的想得太多了。

在mrexcel上向Fluff大喊！