メインコンテンツへスキップ

Excelに日付とタイムスタンプをすばやく自動的に挿入します

Excelでは、日付とタイムスタンプの挿入は通常の操作です。 このチュートリアルでは、さまざまなケースを提供することにより、Excelセルに日付とタイムスタンプを手動または自動で挿入する複数の方法を紹介します。

ショートカットを使用して日付とタイムスタンプを挿入します

式を使用して日付とタイムスタンプを挿入します

別の列にデータを入力するときにタイムスタンプを自動挿入する式

別の列にデータを入力するときにタイムスタンプを自動挿入するVBA


ショートカットを使用して日付とタイムスタンプを挿入します

いくつかのセルに日付とタイムスタンプを挿入する必要がある場合は、ショートカットを押して手動で挿入できます。

現在の日付を挿入: 管理 + :
doc挿入タイムスタンプ1

現在の時刻を挿入: シフト + 管理 + :
doc挿入タイムスタンプ2

スクリーンショットを参照してください:
doc挿入タイムスタンプ3

ヒント:

1.必要に応じて、出力を日付形式または時刻形式としてフォーマットできます。 セルの書式設定 ダイアログ。

2.お持ちの場合 Kutools for Excel、現在の日付または他の日付を、必要に応じて指定した日付形式で挿入できます。 日付を挿入 機能。 クリックして無料ダウンロード
日付を挿入


式を使用して日付とタイムスタンプを挿入します

自動的に更新できる日付またはタイムスタンプを挿入する場合は、以下の式を使用できます。

現在の日付を挿入

= TODAY()

イベント 入力します キーを押すと、現在の日付がセルに挿入されます。

現在の時刻を挿入:

= NOW()

Enterキーを押すと、現在の日付と時刻がセルに挿入されます。
doc挿入タイムスタンプ4

ヒント:

1.必要に応じて、出力を日付形式または時刻形式としてフォーマットできます。 セルの書式設定 ダイアログ。 たとえば、現在の時刻のみを表示したい場合は、セルを使用後に時刻としてフォーマットするだけです。 = NOW()

2.現在の日付と時刻をワークシートのヘッダーまたはフッターに挿入する場合は、 ワークブック情報を挿入する の機能 Kutools for Excel この仕事をすばやく処理します。 クリックして無料ダウンロード
ブック情報を挿入する


別の列にデータを入力するときにタイムスタンプを自動挿入する式

列Aと列BのXNUMXつの列があり、列Aにデータを入力するときに、現在のタイムスタンプを列Bに挿入するとします。どうすればよいですか?
自動挿入タイミングスタンプ1

データ入力中にタイムスタンプを自動挿入

1.まず、をクリックします File > オプション を開く Excelのオプション ダイアログで選択 左側のペインで、チェックします 反復計算を有効にする in 計算オプション グループ。 そしてクリック OK.
doc挿入タイムスタンプ5

2.列B、たとえばセルB1に、次の数式を入力します

= IF(A1 <> ""、IF(B1 <> ""、B1、NOW())、 "")

次に、自動入力ハンドルをセルまでドラッグします。
doc挿入タイムスタンプ6

3.次に、数式セルを必要に応じて日時形式としてフォーマットします。 セルの書式設定 ダイアログ:数式セルを選択したまま、右クリックしてコンテキストメニューを表示し、を選択します。 セルの書式設定、 そうして セルの書式設定 ダイアログがポップアップします。 カスタム 下のセクション タブで、必要な形式を入力します テキストボックスをクリックし、 OK.
doc挿入タイムスタンプ7

これで、列Aにデータを入力すると、現在の日時が列Bに挿入されます。
doc挿入タイムスタンプ8

別の列のセルが変更されている間、タイムスタンプを自動挿入および更新します

セルの入力中にタイムスタンプを自動的に挿入すると同時に、入力が変更されると、挿入されたタイムスタンプが更新される場合は、次の数式を使用できます。

=IF(A1<>"",IF(AND(B1<>"",CELL("address")=ADDRESS(ROW(A1),COLUMN(A1))),NOW(),IF(CELL("address")<>ADDRESS(ROW(A1),COLUMN(A1)),B1,NOW())),"")

A1はデータを入力するセルであり、B1はタイムスタンプを挿入する数式のセルです。

自動入力ハンドルを、使用するセルの下にドラッグします。
自動挿入タイミングスタンプ2

次に、数式セルを必要に応じて日時形式としてフォーマットします。 セルの書式設定 ダイアログ:数式セルを選択したまま、右クリックしてコンテキストメニューを表示し、を選択します。 セルの書式設定、 そうして セルの書式設定 ダイアログがポップアップします。 カスタム 下のセクション タブで、必要な形式を入力します テキストボックスをクリックします OK.


別の列にデータを入力するときにタイムスタンプを自動挿入するVBA

VBAコードに精通している場合は、次のように実行できます。

1.使用するワークシートタブを右クリックして、 コードを表示 コンテキストメニューから選択します。
doc挿入タイムスタンプ9

2.次に、 アプリケーション向け Microsoft Visual Basic ウィンドウ、コードの下に貼り付けます。

VBA:タイムスタンプの自動挿入

Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyKutools20190919
Dim xRInt As Integer
Dim xDStr As String
Dim xFStr As String
On Error Resume Next
xDStr = "A" 'Data Column
xFStr = "B" 'Timstamp Column
If (Not Application.Intersect(Me.Range(xDStr & ":" & xDStr), Target) Is Nothing) Then
       xRInt = Target.Row
       Me.Range(xFStr & xRInt) = Format(Now(), "mm/dd/yyyy hh:mm:ss")
End If
End Sub

doc挿入タイムスタンプ10

3.次に、このコードを保存します。 これ以降、列Aにデータを入力するか、データを変更する限り、新しいタイムスタンプが列Bに挿入されます。

Note:実際のニーズに合わせて、VBAコードのA列とB列およびmm / dd / yyyy hh:mm:ss時間形式を変更できます。

定義された関数を使用する場合は、次のように実行できます。

1。 ホールド Altキー+ F11 を有効にするためのキー アプリケーション向け Microsoft Visual Basic 窓。 そしてクリック インセット > モジュール 空のモジュールを挿入します。
doc挿入タイムスタンプ11

2.以下のコードを新しいモジュールに貼り付けます。 次に、コードを保存してワークシートに戻ります。

Function FormatDate(xRg As Range)
'UpdatebyKutools20190919
On Error GoTo Err_01
If xRg.Value <> "" Then
    FormatDate = Format(Now, "mm/dd/yyyy hh:mm:ss")
Else
    FormatDate = ""
End If
Exit Function
Err_01:
    FormatDate = "Error"
End Function

doc挿入タイムスタンプ12

3.タイムスタンプが挿入されるセルに、次の数式を入力します

= FormatDate(F1)

F1は、データを入力または変更するセルです。 次に、自動入力ハンドルをセルまでドラッグします。
doc挿入タイムスタンプ13

これで、セルF1がデータを入力または更新した場合、現在の日時が挿入されます。


DateTimeに関連するその他の操作(記事)

テキストとして保存された日付をExcelの日付に変換する
日付を他のデータソースからExcelセルにコピーまたはインポートすると、日付がフォーマットされてテキストとして保存される場合があります。 そしてここでは、テキストとして保存されているこれらの日付をExcelの標準の日付に変換するための秘訣を紹介します。

Excelで日付または時刻に半年/月/時間を加算/減算
Excelの日常業務では、年、月、または時間を日付または時刻に追加するのが一般的です。 日付または時刻に半年、月、または時間を追加しようとしたことがありますか? ここでは、この仕事で扱うコツを紹介します。

ExcelでのXNUMX日の平均タイムスタンプ
たとえば、特定のユーザーがExcelでWebサイトにアクセスするたびにログインタイムスタンプを記録し、これらのタイムスタンプを平均して、このユーザーが将来Webサイトにアクセスする可能性のある時間を予測したいとします。 ?

Excelで深夜以降の時間の間の時間を計算します
勤務時間を記録するタイムテーブルがあるとすると、列Aの時刻は今日の開始時刻であり、列Bの時刻は翌日の終了時刻です。 通常、2つの時間の時間差を直接マイナス「= B2-AXNUMX」で計算すると、正しい結果が表示されません。


  • スーパーフォーミュラバー (複数行のテキストと数式を簡単に編集できます); 読書レイアウト (多数のセルを簡単に読み取って編集する); フィルター範囲に貼り付け...
  • セル/行/列をマージする およびデータの保持。 分割セルコンテンツ; 重複する行と合計/平均を組み合わせる...重複セルを防止します。 範囲を比較する...
  • [複製]または[一意]を選択します 行; 空白行を選択 (すべてのセルは空です); スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
  • 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
  • お気に入りの数式をすばやく挿入する、範囲、チャート、写真; セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
  • スーパーフィルター (フィルタースキームを保存して他のシートに適用します); 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
  • ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
  • ピボットテーブルのグループ化 週番号、曜日など... ロック解除された、ロックされたセルを表示する さまざまな色で; 式/名前を持つセルを強調表示する...
kteタブ201905
  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
officetab下部
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
If anyone can assist, I'm seeking help to create a formula that, when I change the status to 'Complete,' automatically records the date of that moment. Similarly, if I change the status for subsequent entries, it should capture the date of that day. Any guidance on creating this formula would be greatly appreciated.
This comment was minimized by the moderator on the site
Hi, We have used the following formula for auto-update timestamp

=IF(A1<>"",IF(AND(B1<>"",CELL("address")=ADDRESS(ROW(A1),COLUMN(A1))),NOW(),IF(CELL("address")<>ADDRESS(ROW(A1),COLUMN(A1)),B1,NOW())),"")

But, sometimes it works sometimes it doesn't. even faced for some user's it's working fine for some not.
Sometimes it shows circular reference pop message error for some-user.
when tried to rectify the error, we saw circular reference is grad out. Not sure how do we fix it.

Any help much apricated!!! Thankyou
This comment was minimized by the moderator on the site
Hi, thank you for this, it is very helpful with my project.

I' m running calculations on stock market information that is populating the spreadsheet with RTD;
I' m trying to create a timestamp when there is an update in the stock price, but this does not work, the "timestamp" cell remains blank.
(The cell that receives the stock price is RTD formula)

Any ideas what i should do ?
This comment was minimized by the moderator on the site
In the cells where the time stamp should show up, red text saying Time stamp shows up instead. No value in format mm/dd/yyyy hh:mm:ss is visible.
This comment was minimized by the moderator on the site
Hi, Celeste, I did not get your question clearly. If you want to show "Time Stamp" in the cell if there is empty in the entried cell, you just change the formula to:
=IF(A1<>"",IF(B1<>"",B1,NOW()),"Time Stamp")
This comment was minimized by the moderator on the site
the function uptades every time you open the excel file
it also updates the earlier data when you insert rows.
This comment was minimized by the moderator on the site
Hi, try to click Formulas tab and go to Calculation group to click Calculation Options > Manual, then the formula will not auto update.
https://www.extendoffice.com/images/stories/comments/sun-comment/doc-manual-calculation.png
This comment was minimized by the moderator on the site
Thank you very much for your kind help. Unfortunately, the manual setting would stop my other formulas in the table, which is not good from my point of view.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations