Question

我希望能够通过点击按钮将时间戳添加到Excel单元格。不幸的是，do = Now（）将始终更新为当前时间，因此不是静态的。

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

感谢。

Answer 1

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

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

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

或者日期＆amp;时间

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）

这是一个简单的宏。我保存了工作表宏，并添加了一个QuickAccess工具栏按钮来运行它。

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

excel中的静态时间戳

3 个答案: