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

【问题标题】：How to add today's date if cell is empty, and if not skip to next column?如果单元格为空，如何添加今天的日期，如果没有跳到下一列？
【发布时间】：2021-06-08 17:10:41
【问题描述】：

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

我的代码的目的是创建一个按钮，用于检查单元格是否不为空，它应该偏移到下一列，如果它是空的，那么它应该添加今天日期。所以每天我按下按钮，它都会在旧日期旁边添加一个新日期。

这是我写的代码：

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 行缺少等号。

What My sheet looks like

【问题讨论】：

标签： date if-statement offset is-empty

【解决方案1】：

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

以下是代码的工作方式：

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

我真的想多了。

在 mrexcel 上向 Fluff 大喊！

【讨论】：