excel - excel中的静态时间戳

Question

我希望能够通过单击按钮将时间戳添加到 Excel 单元格。不幸的是， =Now() 总是会更新到当前时间，因此不是静态的。

我可以在记事本中做F5，然后将其转移到excel，但我宁愿去掉中间人。

谢谢。

Answer 1

在单元格旁边创建一个按钮。

然后对于该按钮的“onclick”事件中的 VBA 代码执行以下操作：

Sheets("Sheetname").Range("C1").value = time()

或日期和时间

Sheets("Sheetname").Range("C1").value = Now()

无论哪种方式，只有在单击按钮时，该单元格的值才会设置为当前时间。

笔记：

如果您从未将按钮对象插入到 Excel 中，这里是 Excel 2003、2007 和 2010 的分步指南

http://www.excel-vba-easy.com/vba-how-to-create-macro-excel.html#create-macro-excel-2003

更新：

如果您只想将时间戳添加到当前选定的单元格，请使用以下代码行：

ActiveCell.value = Now()

Answer 2

如果您只使用 Ctrl+Shift+: 帮助说 Ctrl+: 您可能真的不需要按钮，但不要忘记使用 Shift 来获得它。

Answer 3

我见过的所有例子都没有真正简单地按照要求做。（注意使用 Excel 2010）

这是一个简单的宏。我保存了启用的​​工作表宏，并添加了一个快速访问工具栏按钮来运行它。

Sub MyTimeStamp()
Dim DT
'
' MyTimeStamp Macro
'
' Keyboard Shortcut: Ctrl+t
'

DT = Format(Now, "mm/dd/yyyy hh:mm:ss AM/PM")
ActiveCell.Select
Selection.NumberFormat = "mm/dd/yyyy hh:mm AM/PM"
ActiveCell.Value = DT

End Sub