Excel宏，在下一行按按钮添加日期

Question

我在excel文档中添加日期按钮时出现问题。我想通过单击第一行附加的按钮来加快在文档中添加日期。它工作得很好，在下一行添加额外的单元格和日期。但是当小时改变时，所有早期的条目也会改变。我应该如何修改它？

    Sub Makro1()
'
' Makro1 Makro
'

'
    Cells(Rows.Count, "B").End(xlUp).Offset(1).Select
    ActiveCell.Formula = "=NOW()"


End Sub

Answer 1

如果您希望每个日期都不要更改（您只想保留调用宏时的NOW()值），则可以将当前日期的值设置为单元格值：

Sub Makro1()

    Cells(Rows.Count, "B").End(xlUp).Offset(1).Value = NOW()

End Sub

不需要Select，您可以直接访问该值。 实际上，如果将Now()设置为单元格公式，则在调用宏（包含函数）工作表或重新计算工作表时，值应该更改：

http://office.microsoft.com/en-au/excel-help/now-function-HP010062293.aspx

希望这就是你想要的东西