Static timestamp en excel

Me gustaría poder agregar una timestamp con un clic en un button a una celda de Excel. Desafortunadamente doing = Now () siempre se actualizará a la hora actual, y por lo tanto no es estático.

Podría hacer F5 en el bloc de notas, y luego transferirlo a Excel, pero preferiría cortar al intermediario.

Gracias.

Crea un button al lado de una celda.

Luego, para el código de VBA dentro del evento "onclick" de ese button, haga algo como esto:

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

O para date y hora

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

De cualquier manera, solo cuando se click el button se establecerá el valor de esa celda en la hora actual.

Nota:

Si nunca ha insertado un object de button en excel, aquí hay una guía paso a paso para Excel 2003, 2007 y 2010.

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

Actualizar:

Si solo desea agregar la timestamp a la celda actualmente seleccionada, utilice la siguiente línea de código:

 ActiveCell.value = Now() 

Es posible que no necesites un button si solo utilizas Ctrl + Shift +: la ayuda dice Ctrl +: pero no olvides usar Shift para getlo.

Ninguno de los ejemplos que he visto realmente simplemente hace lo que se pide. (Nota utilizando Excel 2010)

Aquí hay una macro simple. Guardé la macro de la hoja de trabajo habilitada y agregué un button de la barra de herramientas de QuickAccess para ejecutarlo.

 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