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

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

MENU

【VBAとChatGPT入門】フィルターオプションでフィルターを実行

条件に合うデータを抽出して別シートへ転記する

 

フィルターオプションでフィルターを実行します。

 

ChatGPTで作成したVBAコード

Sub FilterWithOptions()
    ' リスト範囲を設定(Sheet1のA1セルから右方向へ)
    Dim listRange As Range
    Set listRange = Sheet1.Range("A1").CurrentRegion

    ' 検索条件範囲を設定(Sheet1のE1セルから右方向へ)
    Dim criteriaRange As Range
    Set criteriaRange = Sheet1.Range("E1").CurrentRegion

    ' 抽出結果シートを作成または既存シートをクリア
    Dim resultSheet As Worksheet
    On Error Resume Next
    Set resultSheet = Worksheets("抽出結果")
    On Error GoTo 0
    If resultSheet Is Nothing Then
        Set resultSheet = Worksheets.Add
        resultSheet.Name = "抽出結果"
    Else
        resultSheet.Cells.Clear
    End If

    ' フィルターオプション処理を実行し、抽出結果シートのA1セルに出力
    listRange.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=criteriaRange, CopyToRange:=resultSheet.Range("A1"), Unique:=False
End Sub

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

 
下記のVBAコードを、日本語のコメントをいれて作成してください。
 Sheet1A1セルの右上セルをリスト範囲とし、Sheet1E1セルの右上セルを検索条件範囲とし、「抽出結果」シートのA1セルを出力先とするフィルターオプション処理。

 

ChatGPTで作成しました

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

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

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

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

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