【ノーコード】VBAコードを作成する無料アプリ

AIで自分の価値を高める方法とは🙄

MENU

【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セルから、その最終行まで。
処理1:ユーザーが入力範囲に値を入力したら、処理2、処理3を自動実行する。
処理2:値を入力した右隣のセルに、入力日を入れる。
処理3:カーソルを一つ下の行のA列に移動する。

 

ChatGPTで作成しました

無料のChatGPT(Microsoft Copilot)で作成しました。

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

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

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

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

 

 

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