隣接するセルがExcelで更新されたときに、セルに日付を自動入力するにはどうすればよいですか？

特定の列のセルを更新するときに、更新に関する最新の日付をマークしたい場合があります。 この記事では、この問題を解決するためのVBAメソッドを推奨します。 セルが更新されると、隣接するセルに現在の日付がすぐに自動的に入力されます。

隣接するセルがVBAコードで更新されると、セルに現在の日付が自動的に入力されます

隣接するセルがVBAコードで更新されると、セルに現在の日付が自動的に入力されます

更新する必要のあるデータが列Bにあり、列Bのセルが更新されると、現在の日付が列Aの隣接するセルに入力されます。スクリーンショットを参照してください。

次のVBAコードを実行して、この問題を解決できます。

1.隣接する更新されたセルに基づいて日付を自動入力する必要があるシートタブを右クリックし、[ コードを表示 右クリックメニューから。

2. Microsoft Visual Basic for Applicationsウィンドウで、以下のVBAコードをコピーしてコードウィンドウに貼り付けてください。

VBAコード：隣接するセルが更新されたときに、セルに現在の日付を自動入力します

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Updated by Extendoffice 2017/10/12
    Dim xRg As Range, xCell As Range
    On Error Resume Next
    If (Target.Count = 1) Then
        If (Not Application.Intersect(Target, Me.Range("B:B")) Is Nothing) Then _
            Target.Offset(0, -1) = Date
        Application.EnableEvents = False
        Set xRg = Application.Intersect(Target.Dependents, Me.Range("B:B"))
        If (Not xRg Is Nothing) Then
            For Each xCell In xRg
                xCell.Offset(0, -1) = Date
            Next
        End If
        Application.EnableEvents = True
    End If
End Sub

ノート:

3。 押す 他の + Q 同時にキーを閉じて アプリケーション向け Microsoft Visual Basic 窓。

これ以降、列Bのセルを更新すると、列Aの隣接するセルに現在の日付がすぐに入力されます。 スクリーンショットを参照してください：

Kutools AI で Excel の魔法を解き放つ

• スマートな実行: セル操作の実行、データの分析、グラフの作成など、すべて簡単なコマンドで実行できます。
• カスタム式: カスタマイズされた数式を生成してワークフローを効率化します。
• VBAコーディング: VBA コードを簡単に記述して実装します。
• 式の解釈: 複雑な数式を簡単に理解できます。
• テキスト翻訳: スプレッドシート内の言語の壁を打ち破ります。

AI を活用したツールで Excel の機能を強化します。 今すぐダウンロード これまでにない効率性を体験してください!

関連記事：

• Excelのドロップダウンリストで値を選択するときに他のセルに自動入力するにはどうすればよいですか？
• Excelのドロップダウンリストに入力するときにオートコンプリートするにはどうすればよいですか？