【他人が作ったマクロの修正】ChatGPTで瞬時にVBAの問題解決！

誰が作ったか分からないエクセルマクロ。
修正したいが解読不能！

ChatGPTを使えば、瞬時にVBAの問題を解決できます！

職場で代々受け継がれる誰が作ったか分からないエクセルマクロですが、それを修正したいときにどのように手を付けてよいかが分からないものです。

実際によくある困りごとです。

大昔に誰かが作った呪文のようなマクロでもChatGPTを活用すればVBA初心者でも瞬時に簡単に解決できますので、その方法をお伝えしたいと思います。

例：Yahoo知恵袋での実際の悩み
ChatGPTでマクロの悩みを初心者でも解決できる！
ChatGPTで効率の良い業務を

例：Yahoo知恵袋での実際の悩み

例として、実際にYahoo知恵袋で相談されていたマクロの悩みについて、ChatGPTで瞬時に解決する方法をお伝えしたいと思います。

実際にあった悩みは下記です。

マクロの悩み相談

前任者より代々受け継がれている
データが重くマクロ完了までに時間がかかる
相談：マクロ完了までの進捗が分かるバーの機能を追加したい

※悩みの全文(コード含む)は下記に書いています。興味のある方はクリックで開いてみてください。

実際の悩み全文(コード含む)

※Yahoo知恵袋より抜粋「https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q11257406006」

前任者より、代々受け継がれているExcelのマクロブックがあります。複数のCSVファイルを一つのブックに集約するマクロです。複数のCSVファイルは具体的に1日1ブックがり半期分（183日分、183ブック）を別のブックに取り込みするマクロです。引継ぎを受けた際に、半期分のデータを取り込むのに時間がかかるとのことで半期分のデータを取込む際に進捗状況を可視化したいです。ユーザーフォームで進捗バーの作成(画像を参照ください)をするのはなんとかできそうですがその後のマクロコードをどのように書けばいいのかわかりません。私は簡単なコピペ作業のコードなら作成できるレベルでまだまだVBA初心者です。実際の引き継いだマクロコードは以下です。ちなみに250箇所ある施設の5秒データを1時間値に修正するマクロです。

Sub 情報データ抽出()
Dim DIR_PATH As String: DIR_PATH = ThisWorkbook.Path & “/情報データ”
Dim file_name As String, file_path As String
Dim i As Long, day As Long, ave As Long
Dim WB1 As Workbook, WB2 As Workbook

Application.ScreenUpdating = False
day = 1

Set WB1 = ThisWorkbook
file_name = Dir(DIR_PATH & “\*.csv*”)

Do Until file_name = “”
file_path = DIR_PATH & “\” & file_name
Application.DisplayAlerts = False
Workbooks.Open file_path
Set WB2 = ActiveWorkbook

For j = 2 To 251
For i = 1 To 24
ave = Application.worksheetfunctin.Average(Range(Cells(1 + i * 720 – 719, j), Cells(1 * i * 720, j)))
WB1.Worksheets(“マクロ数値抽出”).Cells(5 + i + 24 * (day – 1), j).Value = ave
Next
Next
WB2.Close

Application.DisplayAlerts = True
file_name = Dir
day = day + 1
Loop
MsgBox “情報データの抽出が終了しました。

” Application.ScreenUpdating = False
End Sub

言葉足らずなところがありましたら、申し訳ありません。どなたか、ご教授ください。よろしくお願い致します。