2024-10-17

【VBAとChatGPT入門】複数列でフィルターし、結果をコピーする

ChatGPT

複数列でフィルターし、結果をコピーする
ChatGPTで作成したVBAコード
上のコードを作成するChatGPTのプロンプト
- ChatGPTで作成しました

複数列でフィルターし、結果をコピーする

店舗が「世田谷」で賞味期限が「2024/07/07」以降でフィルターし、結果をコピーする事例です。

ChatGPTで作成したVBAコード

Sub FilterAndCopy()

    ' 処理対象シートを設定
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' A1:D1 の範囲にオートフィルタを適用
    ws.Range("A1:D1").AutoFilter

    ' １列目を「世田谷」、４列目を「2024/07/07」より大きい日付でフィルター
    ws.Range("A1:D1").AutoFilter Field:=1, Criteria1:="世田谷"
    ws.Range("A1:D1").AutoFilter Field:=4, Criteria1:=">2024/07/07", Operator:=xlAnd

    ' フィルタリングされたデータをコピー
    ws.Range("A2:D" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy

    ' 「Sheet1」の「G1」セルに貼り付け
    ws.Range("G1").PasteSpecial Paste:=xlPasteValues

    ' コピー状態を解除
    Application.CutCopyMode = False

    ' フィルタを解除
    ws.AutoFilterMode = False

End Sub

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

 
下記のVBAコードを、日本語のコメントをいれて作成してください。
処理対象：「Sheet1」シートのA1セルからD1セルが見出しの表にオートフィルタを適用する。
処理１：処理対象の１列目を「世田谷」、４列目を「2024/07/07」より大きい日付でフィルターする。
処理２：フィルタリングされたデータをコピーし、「Sheet1」シートの「G1」セルに貼り付ける。
処理３：コピー状態を解除し、フィルタを解除する。