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

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

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

公開日 | 2023.08.18 更新日 | 2025.11.20

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