【VBAとChatGPT入門】セルに値を入力したら、処理を自動実行する

セルに値を入力したら、処理を自動実行する

C列に数量を入れると、確認日が入力され、カーソルが次の行にジャンプします。

ChatGPTで作成したVBAコード

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 対象範囲をシート1のC3セルからその最終行までに設定
    Dim InputRange As Range
    Set InputRange = Me.Range("C3:C" & Me.Cells(Me.Rows.Count, "C").End(xlUp).Row)

    ' 変更されたセルが対象範囲内かどうかを確認
    If Not Intersect(Target, InputRange) Is Nothing Then
        ' 入力された値の右隣のセルに入力日を設定
        Target.Offset(0, 1).Value = Date

        ' カーソルを1行下のA列に移動
        Me.Cells(Target.Row + 1, 1).Select
    End If
End Sub

上のコードを作成するChatGPTのプロンプト

 
下記のVBAコードを、日本語のコメントをいれて作成してください。
処理範囲：「Sheet1」シートのC3セルから、その最終行まで。
処理１：ユーザーが入力範囲に値を入力したら、処理２、処理３を自動実行する。
処理２：値を入力した右隣のセルに、入力日を入れる。
処理３：カーソルを一つ下の行のA列に移動する。

ChatGPTで作成しました

無料のChatGPT（Microsoft Copilot）で作成しました。

３０年前の私は、必要なVBAコードの完成に６か月かかりました。しかしChatGPTを使えば、初心者でもわずか５分でコードを作成できます。

上記のChatGPTのシートやセルを変更して、あなたのVBAコードを作成してください。

VBAコードは、期待通りに動作し、エラーが発生しないかを必ずテストしてください。

知りたいことやエラー修正は、ChatGPT(Microsoft Copilot)がダイレクトにお答えします。

【重要】このコードは通常の標準モジュールではなく、該当シートのコードウィンドウに貼り付けてください。