用按钮插入今天的日期，作为日期，没有功能？
Insert today's date with button, as date, not function?
我用这个VBA:
ActiveCell.FormulaR1C1 = "=NOW()"
ActiveCell.Offset(1, 0).Range("A1").Select
但单元格的值变为 =NOW()，而不是日期。
我想按一下按钮得到2015-03-13，明天打开sheet时，应该还是 2015-03-13.
考虑：
ActiveCell.Value=Now
也许你应该考虑：
Ctrl+:
你的代码 ActiveCell.FormulaR1C1 = "=NOW()"
绝对完美。它在我的系统上正常工作。你不需要直到
明天检查此代码的输出，首先编写此代码和 运行 宏并保存并关闭它（请检查日期）。关闭文件后更改系统日期，即假设今天是 3 月 13 日，然后将系统时间设置为 3 月 14 日，然后打开文件，您将观察到日期发生变化。
你可以在打开工作簿事件中写这个Thisworkbook。
私人订阅 Workbook_Open()
ActiveCell.FormulaR1C1 = "=NOW()"
结束子
私人订阅 Workbook_Open()
ActiveCell.Value = 现在
结束子
我用这个VBA:
ActiveCell.FormulaR1C1 = "=NOW()"
ActiveCell.Offset(1, 0).Range("A1").Select
但单元格的值变为 =NOW()，而不是日期。
我想按一下按钮得到2015-03-13，明天打开sheet时，应该还是 2015-03-13.
考虑：
ActiveCell.Value=Now
也许你应该考虑：
Ctrl+:
你的代码 ActiveCell.FormulaR1C1 = "=NOW()" 绝对完美。它在我的系统上正常工作。你不需要直到 明天检查此代码的输出，首先编写此代码和 运行 宏并保存并关闭它（请检查日期）。关闭文件后更改系统日期，即假设今天是 3 月 13 日，然后将系统时间设置为 3 月 14 日，然后打开文件，您将观察到日期发生变化。 你可以在打开工作簿事件中写这个Thisworkbook。
私人订阅 Workbook_Open() ActiveCell.FormulaR1C1 = "=NOW()" 结束子
私人订阅 Workbook_Open() ActiveCell.Value = 现在 结束子