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

Excel では、日付を挿入する際にタイムスタンプを入力するのは一般的な操作です。このチュートリアルでは、さまざまなケースに基づき、Excel のセルに手動または自動で日付やタイムスタンプを挿入する複数の方法をご紹介します。

日付を挿入するとショートカットキーによるタイムスタンプの挿入

日付を挿入すると数式によるタイムスタンプの挿入

他の列にデータを入力する際に自動でタイムスタンプを挿入する数式

他の列にデータを入力する際に自動でタイムスタンプを挿入する VBA

---

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

現在の日付を挿入：Ctrl+;

現在の時刻を挿入：Shift+Ctrl+;

スクリーンショットを参照してください：

ヒント：

1。出力を必要に応じて日付形式または時刻形式に書式設定するには、セルの書式設定ダイアログをご利用ください。

2。Kutools for Excelをお持ちなら、日付を挿入する機能を使って、現在の日付や任意の日付を、必要な形式で簡単に挿入できます。無料ダウンロードはこちら

---

自動更新される日付やタイムスタンプを挿入したい場合は、以下の数式をご利用いただけます。

現在の日付を挿入

=TODAY()

Enterキーを押すと、セルに現在の日付が入力されます。

現在の時刻を挿入：

=NOW()

Enter キーを押すと、セルに現在の日時が自動的に入力されます。

ヒント：

1。出力を必要に応じて日付形式または時刻形式に書式設定するには、セルの書式設定ダイアログを使用します。たとえば、現在の時刻のみを表示したい場合は、=NOW()数式を入力した後、セルを「時刻」形式に書式設定してください。

2。ワークシートのヘッダーまたはフッターに現在の日時を挿入したい場合は、Kutools for Excelのブック情報の挿入機能を使えば、この作業をスピーディーに完了できます！無料ダウンロードはこちら

---

A 列と B 列の2 列があると仮定します。A 列にデータを入力したときに、B 列に自動的に現在のタイムスタンプを挿入するには、どうすればよいでしょうか？

データ入力時にタイムスタンプを自動挿入する

1。まず、ファイル > オプションをクリックしてExcel のオプションダイアログを開き、左側のペインで数式を選択します。次に、計算オプショングループ内の反復計算を有効にするにチェックを入れ、OKをクリックします。

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

=IF(A1<>「」,IF(B1<>「」,B1,NOW()),「」)

次に、オートフィルハンドルを下方向にドラッグして、セル範囲に適用します。

3。その後、数式が入力されたセルを必要な日時形式に書式設定します。セルの書式設定ダイアログで行います。数式セルを選択した状態で右クリックし、コンテキストメニューからセルの書式設定を選択すると、セルの書式設定ダイアログが開きます。数値タブのユーザー定義セクションで、種類テキストボックスに必要な形式を入力し、OKをクリックしてください。

これで、A 列にデータを入力すると、B 列に自動的に現在の日時が挿入されます。

他の列のセルが変更された際にタイムスタンプを自動挿入・更新する

セルに入力した際に自動でタイムスタンプを挿入し、その後、そのセルの内容が変更されたらタイムスタンプも自動更新したい場合は、以下の数式をご利用いただけます。

=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 はタイムスタンプを挿入する数式セルです。

オートフィルハンドルを下方向に、使用するセル範囲までドラッグします。

その後、数式セルを必要な日時形式に設定します。セルの書式設定ダイアログで書式をカスタマイズするには、数式セルを選択したまま右クリックし、コンテキストメニューからセルの書式設定を選択してください。セルの書式設定ダイアログが開いたら、数値タブのユーザー定義セクションにある種類テキストボックスに必要な形式を入力し、OKをクリックします。

---

VBA コードに慣れている方は、以下のように操作できます。

1。使用するワークシートのタブを右クリックし、コンテキストメニューからコードの表示を選択してください。

2。次に表示されるMicrosoft Visual Basic for Applicationsウィンドウに、以下のコードを貼り付けてください。

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

3。このコードを保存すると、A 列にデータを入力または変更するたびに、B 列に新しいタイムスタンプが自動で挿入されます。

注：VBA コード内の A 列と B 列、および「mm/dd/yyyy hh:mm:ss」形式の時刻表示は、実際の要件に応じてカスタマイズできます。

ユーザー定義関数をご利用になりたい場合は、以下のように操作してください。

1。Alt + F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。次に、挿入 > モジュールをクリックして、空のモジュールを挿入します。

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

3。タイムスタンプを挿入したいセルに、次の数式を入力してください。

=FormatDate(F1)

F1 はデータを入力または変更するセルです。その後、オートフィルハンドルを下方向にドラッグして、そのセル範囲に適用します。

セル F1 にデータが入力または更新されると、現在の日時が自動的に入力されます。

---