ChatGPTが作ったエクセルマクロを紹介！ChatGPTの簡単な使い方付き

エクセルでマクロを書いている時、こんな問題にぶつかることありませんか？

あれ？これどうやって書いたらいいんだろ？
どんな関数を使って、引数に何を指定すればいいんだろ？？

以前なら、Googleで１つずつ調べることが多かったです。
やりたいことを実現するにはどの関数を使えばいいのか？
その関数はどうやって使うのか？引数に何を指定すればいいのか？
この引数の意味は？

１つずつ調べると、まあまあ時間がかかりますよね。
でも、今はChatGPTというものがあります。
ChatGPTを使えば、ほぼ一瞬で答えがわかります。
めちゃくちゃ便利です。

というわけで、ChatGPTにエクセルのマクロを作ってもらいました。

ChatGPTについて
ChatGPTが作成したエクセルマクロのコード
1. [依頼①]　Excel VBAで全てのピボットテーブルを更新するコードを書いて
2. [依頼②]　ピボットテーブルで任意の列でソートするVBAコードを書いて
ChatGPTの使い方
1. ChatGPTに登録する
2. ChatGPTに質問する
ChatGPTでエクセルマクロを作るメリット
ChatGPTが作成したエクセルマクロを使うときの注意事項
まとめ

ChatGPTについて

ChatGPTに作ってもらったマクロを紹介する前に、少しだけChatGPTについて触れておきます。
せっかくなのでChatGPTに教えてもらいました。

Q [ChatGPTへの質問] ChatGPTとは？: A

ChatGPTは、OpenAIによって開発された対話型の言語モデルです。ChatGPTは、GPT（Generative Pre-trained Transformer）のアーキテクチャを基にしており、大量のテキストデータを学習して、様々な言語タスクに対して優れた性能を発揮することができます。

GPTモデルは、事前に大規模なデータセットで学習され、その後、特定のタスクにFine-tuningされることが一般的です。ChatGPTは、自然言語処理のタスクにおいてテキスト生成、質問応答、文章の要約、言語理解など、幅広い用途で活用されています。

ChatGPTはユーザーとの自然な対話をサポートし、質問への回答や情報提供、テキスト生成など、多岐にわたるタスクに対して有用なツールとして使われています。
ChatGPTの回答より

Q [ChatGPTへの質問] ChatGPTはいつから使えるようになった？: A

最初のChatGPTモデルは、2020年6月にリリースされました。その初期のバージョンは「ChatGPT」や「GPT-3」として知られています。その後も、OpenAIはモデルの改良や新しいバージョンの開発を進めています。現在、ChatGPTやそれに類するモデルは様々なアプリケーションで使用され、プログラムの開発、対話型インターフェースの構築、自然言語処理の研究などに役立てられています。
ChatGPTの回答より

308 Permanent Redirect

ChatGPTが作成したエクセルマクロのコード

では、本題です。
ChatGPTにエクセルマクロの作成を２つお願いしてみました。

[依頼①]　Excel VBAで全てのピボットテーブルを更新するコードを書いて

[回答①]ChatGPTが作成したエクセルマクロ

Sub UpdateAllPivotTables()
    Dim ws As Worksheet
    Dim pt As PivotTable
    
    ' すべてのワークシートを対象にする場合
    For Each ws In ThisWorkbook.Worksheets
        For Each pt In ws.PivotTables
            pt.RefreshTable
        Next pt
    Next ws

    ' 特定のワークシートの場合（例: Sheet1）
    'For Each pt In Sheets("Sheet1").PivotTables
    '    pt.RefreshTable
    'Next pt
End Sub

[依頼②]　ピボットテーブルで任意の列でソートするVBAコードを書いて

[回答②]ChatGPTが作成したエクセルマクロ

Sub SortPivotTable(pivotTableName As String, sortColumn As String)
    Dim ws As Worksheet
    Dim pt As PivotTable
    Dim pf As PivotField

    ' ピボットテーブルが存在するか確認
    On Error Resume Next
    Set pt = ActiveSheet.PivotTables(pivotTableName)
    On Error GoTo 0

    If pt Is Nothing Then
        MsgBox "指定された名前のピボットテーブルが見つかりません。", vbExclamation
        Exit Sub
    End If

    ' ソート対象の列が存在するか確認
    On Error Resume Next
    Set pf = pt.PivotFields(sortColumn)
    On Error GoTo 0

    If pf Is Nothing Then
        MsgBox "指定された名前の列が見つかりません。", vbExclamation
        Exit Sub
    End If

    ' ソートを実行
    pf.AutoSort xlAscending, sortColumn
End Sub

すごいですね。
このまま使えるレベルでコードが生成されています。
しかもコメントがきちんと書かれているのでメンテナンス性も良さそうです。