ChatGPTでExcel VBAを自動生成する文書【設計文変報告8300c】

「マクロって便利そうだけど、プログラミングは無理…」と思っているエンジニアの方、朗報です。

ChatGPTがあれば、コードを書けなくてもVBAマクロが作れます。

私もSolidWorksのVBAマクロを作るまで、プログラミングはほぼ未経験でした。それでも今では、部品表の整形・PDF一括出力・工程表の自動生成など、設計業務の反復作業をマクロで自動化しています。その経験をもとに、設計者目線で「最短でVBAを動かすまで」を解説します。

なぜ「コードを書けない設計者」にVBAが必要なのか

設計業務で毎週繰り返している作業を思い浮かべてください。部品表の整形、図面番号の採番、工程管理表への転記……これらは1回あたり30分でも、月20回やれば10時間が消えています。

VBAマクロにすれば、ボタン1つで終わる。しかもExcelがあれば動く。サーバーも専用ソフトも不要です。

唯一のハードル「コードが書けない」を、ChatGPTが解決してくれます。

Step 1：ChatGPTへのVBA依頼プロンプトの書き方

ポイントは「Excelの状態」「やりたいこと」「出力形式」を具体的に伝えることです。

Step 2：生成したコードをExcelで動かす手順

1. ExcelでAlt + F11を押してVBAエディタを開く
2. 左パネルの「VBAProject（ブック名）」を右クリック →「挿入」→「標準モジュール」
3. 右側の白いエリアに、ChatGPTが生成したコードを貼り付ける
4. F5キーで実行（または「実行」メニュー →「Sub/ユーザーフォームの実行」）

Step 3：エラーが出たときの直し方

エラーが出ても焦らないでください。ChatGPTに以下のように投げるだけです。

エラーメッセージとハイライトされた行をそのまま貼り付けるだけで、原因と修正版コードを返してくれます。これだけでエラーの80%は解決できます。

実務で即使えるVBAコード3選

①部品表の空白行を削除して番号を振り直す

Sub 部品表整形()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    Set ws = ThisWorkbook.Sheets("Sheet1") ' シート名を変更してください
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 空白行を下から削除（上から削除すると行番号がずれるため）
    For i = lastRow To 2 Step -1
        If ws.Cells(i, "A").Value = "" Then
            ws.Rows(i).Delete
        End If
    Next i
    
    ' A列に連番を振り直す
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    For i = 2 To lastRow
        ws.Cells(i, "A").Value = i - 1
    Next i
    
    MsgBox "整形完了！" & lastRow - 1 & "件の部品が処理されました。"
End Sub

②シートを月別に自動作成する

Sub 月別シート作成()
    Dim i As Integer
    Dim sheetName As String
    
    ' 1月〜12月のシートを作成
    For i = 1 To 12
        sheetName = i & "月"
        
        ' 同名シートが存在する場合はスキップ
        On Error Resume Next
        If Worksheets(sheetName) Is Nothing Then
            Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = sheetName
        End If
        On Error GoTo 0
    Next i
    
    MsgBox "12ヶ月分のシートを作成しました。"
End Sub

VBA生成の精度をさらに上げたい方へ

ChatGPTに「より良いコードを出してもらう」には、プロンプトの構造を理解していることが重要です。

「なんとなく使える」から「意図通りに動かせる」へのステップは、AIの仕組みを少し知るだけで一気に縮まります。

CADHACK — 設計者のAI・CAD効率化メディア