在Excel中的静态时间戳

我想能够添加一个时间戳点击一个Excel单元格的button。 不幸的是= Now（）会一直更新到当前时间，因此不是静态的。

我可以在记事本中做F5，然后把它转移到excel中，但是我宁愿剪掉中间人。

谢谢。

Answer 1

在单元格旁边创build一个button。

然后，对于该button的“onclick”事件中的VBA代码做这样的事情：

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

或者date和时间

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

无论哪种方式，只有当button被点击时，该单元格的值将被设置为当前时间。

注意：

如果您从未将button对象插入到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 +：你可能不需要一个button：help说Ctrl +：但是不要忘了用Shift来获取它。

Answer 3

我所看到的例子都不是简单地做所要求的。 （注意使用Excel 2010）

这是一个简单的macros。 我保存了工作表macros启用，我添加了一个QuickAccess的工具栏button来运行它。

 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