AIを活用したExcelマクロ作成

作成方法

1. 全体像

従来のExcelマクロ（VBA）は、専門的なプログラミング知識が必要でした。しかし、AIを使うことで「やりたいことを日本語で説明するだけで、VBAコードのたたき台を作ってくれる」ようになり、導入のハードルが大きく下がります。
ただし、自動生成されたコードをそのまま使うのではなく、業務に合うように修正・テストすることが重要です。AIはあくまで“腕のいい補助エンジニア”と考え、最終確認は人間が行うのがポイントです。

---

2. マクロ作成の基本手順

1. 目的を明確にする
   • 例：「売上データを集計してグラフを自動生成したい」
   • 曖昧な指示より、具体的なゴールを言語化するのが大事。
2. 処理の流れを整理する
   • 入力データはどこにあるか？
   • 出力はどんな形にしたいか？
   • 手作業ならどんな手順でやっているか？をメモしておく。
3. AIに依頼する
   • ChatGPTなどに「Excel VBAで○○を自動化するマクロを作って」と指示。
   • 処理条件（シート名・セル範囲・出力形式など）を具体的に書くほど精度UP。
4. 生成されたコードをExcelに貼り付ける
   • Excel → Alt+F11 でVBAエディタを開き、標準モジュールにコードを貼る。
5. テスト実行 & デバッグ
   • サンプルデータで試し、動作確認。（サンプルデータもAIで作成）
   • エラーが出た場合は、AIに「このエラーを直して」と相談。
6. 実務に合わせて微調整
   • 出力形式を変更したり、例外ケースを追加。
   • 改善したい点が出てきたら、再度AIに相談し改修。
7. マクロの保存と共有
   • ファイル形式は「.xlsm」で保存。
   • 権限を持つ人だけが変更できるように注意。

---

3. 留意点

• セキュリティ対策
  • マクロはセキュリティ警告が出るため、信頼できる環境でのみ利用。
• AIの提案は完璧ではない
  • 動作しないコードや想定外の処理が含まれることがある。
  • あくまで“たたき台”として活用。
• 社内共有の工夫
  • マクロの使い方を簡単なマニュアルにまとめておくと安心。
  • 特定の担当者だけに依存しない仕組みを作る。
• 業務フローの見直しチャンス
  • マクロ化する前に「そもそもこの作業は必要？」と整理すると、効果が倍増。

---

4. 方法・手順・留意点のまとめ

項目	内容	ポイント
方法	AIに自然言語で依頼してVBAコードを生成	「やりたいこと」を具体的に伝える
手順	目的設定 → 流れ整理 → AI依頼 → コード貼付 → テスト → 微調整 → 保存・共有	小さく作って改善を繰り返す
留意点	セキュリティ、AIコードの誤り、社内共有、業務整理	完璧を求めず“楽になる仕組み”として導入

---

---

以下に、美容院の場合のマクロによる効率化案を示しています。ステップは以下のとおりです。

ステップ①マクロ効率化案を10個出してもらう
ステップ②そのうちから、自社のニーズにあうものからAIによりマクロ作成

他の業種についても、同様にAIに効率化案を出してもらい、マクロを作成することになります。

美容院向けExcelマクロ案10選

以下は請求書作成、メール送付のマクロです。

マクロ作成事例

プロンプト

あなたはExcel VBAの専門家です。

以下の要件に沿って、実行可能なVBAコードを2つ作成してください。
①「Data」シートのデータをもとに、会社名ごとに新しいシート（請求書）を作成します。

【前提】

• 「Data」シートには、以下のような構成でデータが格納されています（行1はヘッダー）：
• A列：納品日
• B列：会社名
• C列：品名
• D列：数量
• E列：単価
• F列：合計金額

【動作】

• B列（会社名）でユニークな会社ごとに新しい請求書シートを作成
• 各請求書シートのA1に「請求書」、A2に発行日、A3に請求先を記載
• A5〜E5に見出し（納品日, 品名, 数量, 単価, 合計）
• 各行のデータを転記（A〜F列から）
• 最後に「請求金額合計」をSUM関数で計算
• 列幅を自動調整
• 作業後は「Data」シートに戻る

② ①で作成した各請求書シートをPDF化し、メールで送信後に削除します。

【動作】

• A1セルが「請求書」となっているシートのみを対象
• シート名＋日付（yyyymmdd）をPDFファイル名にして保存
• Outlookでメールを作成し、PDF添付、宛先は仮に「test@arm-csl.com」
• メール本文には簡単な送付メッセージ
• PDF送信後、PDFファイルとExcel上の請求書シートを削除
• 最後に完了メッセージを表示

※できるだけエラーハンドリング（名前エラー、Outlook未起動、ファイル削除失敗など）も含めてください。
※コードは読みやすく、コメントも適宜付けてください。

回答

Sub ExportInvoicesToPDFAndSend()
Dim ws As Worksheet
Dim pdfPath As String
Dim fName As String
Dim outlookApp As Object
Dim outlookMail As Object
Dim todayStr As String
Dim tempFolder As String

On Error GoTo ErrHandler

todayStr = Format(Date, "yyyymmdd")
tempFolder = Environ$("TEMP") & "\"

' Outlook 起動チェック
On Error Resume Next
Set outlookApp = GetObject(, "Outlook.Application")
If outlookApp Is Nothing Then Set outlookApp = CreateObject("Outlook.Application")
If outlookApp Is Nothing Then
    MsgBox "Outlook が起動していません。", vbExclamation
    Exit Sub
End If
On Error GoTo ErrHandler

' 各シートをチェック
For Each ws In ThisWorkbook.Sheets
    If Trim(ws.Range("A1").Text) = "請求書" Then
        ' ファイル名作成（記号除去）
        fName = Replace(ws.Name, " ", "_") & "_" & todayStr & ".pdf"
        fName = Replace(fName, "\", "_")
        fName = Replace(fName, "/", "_")
        pdfPath = tempFolder & fName

        ' シートをアクティブにしてからPDF化
        ws.Activate
        DoEvents ' ← 安定化のため追加
        ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath, Quality:=xlQualityStandard

        ' メール作成
        Set outlookMail = outlookApp.CreateItem(0)
        With outlookMail
            .To = "test@arm-csl.com"
            .Subject = "【請求書】" & ws.Name
            .Body = "お世話になっております。" & vbCrLf & _
                    "請求書をお送りしますので、ご確認のほどよろしくお願いいたします。"
            .Attachments.Add pdfPath
            .Display ' 自動送信する場合は .Send に変更
        End With

        ' PDFファイル削除（存在確認付き）
        If Dir(pdfPath) <> "" Then Kill pdfPath

        ' 請求書シート削除（確認ダイアログ抑制）
        Application.DisplayAlerts = False
        ws.Delete
        Application.DisplayAlerts = True
    End If
Next ws

MsgBox "PDF送信と請求書シート削除が完了しました！", vbInformation
Exit Sub

ErrHandler:
MsgBox “エラーが発生しました：” & Err.Description, vbCritical
Application.DisplayAlerts = True
End Sub

請求データ

請求書様式

請求書作成マクロ実行

請求書メール送付マクロ実行