ChatGPTを使って知識ゼロからExcelマクロを作成する

2023.08.18

最終更新日：2024年10月22日

ChatGPT、使ってますか？

2022年の年末頃から話題になり始め、今ではかなり浸透したツールになっている会話型AIのChatGPTですが、

・最初は使ってみたけど結局使わなくなった・・
・AIが求める答えを出してこないから自分で調べた方が早い

みたいな感想のまま今では使わなくなってしまった人も多いのではないでしょうか？

適切な命令方法(プロンプト)の書き方みたいな所はネット上に膨大な数があるので、今回は私が日常業務で利用した内容を紹介したいと思います。

余談ですが、ChatGPTに対する命令方法は株式会社noteの深津貴之さん考案の「深津式プロンプト」が個人的にはわかりやすく、私もこのプロンプトを念頭に入れて利用しています。

ご興味がある方はご本人が解説しているこちらの動画を見てみてください

レポート作成時短の為のVBA作成
- やりたい事と自分の知識量
- 実際にやってみた
終わりに

レポート作成時短の為のVBA作成

日々のレポートをExcelで作成する場合ですが、
提出した後にExcelの誤操作で数値が変わってしまわないようにCSVデータから抽出し、数式で反映した各数値を「値貼り付け」する作業が弊社の場合だとあります。

タブ数の少ないレポートであれば作業時間も少なくミスもほぼないのですが、複数媒体の配信でタブ数が増えてくると値貼り付け忘れなど、ヒューマンエラーがどうしても発生しがちだった為にこの作業を自動化できないか？ということでChatGPTを利用しました。

やりたい事と自分の知識量

・Excelのマクロ/VBAを使えばなんとなくできるであろうことだけは理解している

・ただ作成方法やコードの書き方は一切把握してない状態

この状態でChatGPTを使ってマクロを作成していきます。

実際にやってみた

まずは自分のやっている事とやりたい事をChatGPTに伝えました。

回答結果は以下のようになりました。

今回はマクロの作成手順や登録手順は質問に含んでいなかったのですが、AIが意図を組んでくれたのか手順も合わせて答えてくれました。

実際にAIが書いてくれたコードは以下のものとなります。

Sub 値のみ貼り付け()

Dim ws As Worksheet
Dim rng As Range

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

For Each ws In ThisWorkbook.Worksheets
For Each rng In ws.UsedRange
If rng.HasFormula Then
rng.Value = rng.Value
End If
Next rng
Next ws

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

End Sub