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

私が見た例のどれも、求められたことを本当に単純に実行するものではありません。(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

Answer 3

Ctrl+Shift+: を使用するだけであれば、実際にはボタンは必要ないかもしれません。