結果
成功

初心者でも再現できるか
基本操作が分かれば再現可能です。

Step1 AIに依頼

【AIへの指示】

データベースシートの内容を担当者別に集計し、印刷できるVBAを作成してください。
そして、データベースシートのスクショと関数で計算したシートのスクショを貼付しました。

👉 なぜこの指示にしたか

登録した案件データを担当者別に一覧化したかったためです。

Step2 AIの回答

AIは担当者別の件数を集計し、印刷用シートへ出力するコードを提案しました。

シート名や列位置も指定できる内容でした。

👉 一言評価

最初からかなり実用的でした。

Step3 実際に実行

実際に集計表を作成して動作確認を行いました。

集計自体は問題なく動作しました。

Step4 結果確認

✅ 成功

担当者別集計表は正常に作成できました。

ただし実務では作成直後に印刷することは少なく、一度内容確認を行いたいと感じました。

Step5 AIに修正依頼

【修正プロンプト】

印刷ではなくPDF保存に変更してください。

さらに保存前に内容確認を行いたいので、集計作成とPDF保存を別のボタンに分けてください。

👉 修正した理由

実務では確認後に保存や印刷を行うことが多いためです。

Step6 修正版の結果

最終的に以下の3機能へ分割しました。

・担当者別集計作成
・PDF保存
・集計クリア

実務に近い流れで利用できるようになりました。

関数版との比較

今回の担当者別集計は、最初に関数を使って作成していました。
関数版では、
・担当者名をあらかじめ作成
・進捗状況ごとの集計欄を作成
・COUNTIF関数（データベースに担当者の名前の数をカウント）
・COUNTIFS関数（データベースに担当者の名前と進捗状況の数をカウント）
を利用して集計を行いました。
ただし担当者が増えたり、レイアウトを変更したりする場合は手作業で修正が必要になります。
今回作成したVBA版とGAS版では、案件データベースの内容から自動で集計表を作成できるため、メンテナンスの手間を減らせるようになりました。
まずは関数で仕組みを理解し、その後に自動化へ進める流れは初心者にもおすすめです。

GAS検証で気付いたこと

PDF保存機能を初回実行した際、Googleの認証画面が複数回表示されました。
最初はエラーかと思いましたが異常ではありませんでした。
今回のコードでは

SpreadsheetApp

↓

DriveApp

↓

UrlFetchApp

を利用しています。

そのため、
・スプレッドシートへのアクセス
・Google Driveへのアクセス
・PDF変換処理
の許可確認が順番に表示されることがあります。
認証画面が複数回表示されても正常動作です。
エラーではありません。

今回のAI評価

今回のコードは集計機能として十分実用的でした。
また、実務フローに合わせて機能を分割する改善提案もスムーズに行えました。
PDF保存機能まで短時間で完成できた点は非常に便利でした。

今回の気付き

・最初の指示では確認作業が考慮されていなかった
・印刷よりPDF保存の方が管理しやすい
・機能を分割した方が実務では使いやすい
・関数で仕組みを理解してから自動化すると理解しやすい
・GASは認証画面が複数回表示される場合がある
・AIは仕様整理にも役立つ

完成コード

今回完成したコードはこちらです。

【VBA版】

▶ VBA完成コード記事（集計表作成）

▶ VBA完成コード記事（PDF保存）

【GAS版】

▶ GAS完成コード記事（集計表作成）

▶ GAS完成コード記事（PDF保存）

AIへ依頼する時のコツ

同じ機能を作る場合は

・入力場所

・出力場所

・保存先

・確認作業の有無

を具体的に伝えると精度が上がります。

結論

✅ AIで担当者別集計表は作れる

✅ PDF保存機能も作れる

✅ 実務フローを伝えるとさらに使いやすくなる

ひとこと

まずは集計機能だけでも試してみてください。

次回予告

新規プロジェクト開始予定

お楽しみに。

このコードでできること

・担当者別集計表をPDF保存

・Google Driveへ自動保存

・保存フォルダを自動作成

初回実行時の注意

初めて実行するとGoogleの承認画面が表示されます。
このコードはGoogle DriveへPDFを保存するため、利用許可が必要です。
承認後にすぐ動作しない場合がありますが、その場合はもう一度実行してみてください。
環境によっては2～3回実行すると正常に動作します。
「エラーかな？」と思うかもしれませんが、Googleの権限設定が行われているだけなので心配ありません。
一度承認が完了すれば、次回以降はスムーズに利用できます。

GASコード

function exportStaffSummaryPDF() {

const ss = SpreadsheetApp.getActiveSpreadsheet();
const sheet = ss.getSheetByName("担当者別集計(GAS)");

const folderName = "担当者別集計PDF";

let folder;

const folders = DriveApp.getFoldersByName(folderName);

if (folders.hasNext()) {
folder = folders.next();
} else {
folder = DriveApp.createFolder(folderName);
}

const gid = sheet.getSheetId();

const url =
"https://docs.google.com/spreadsheets/d/" +
ss.getId() +
"/export?format=pdf" +
"&gid=" + gid +
"&size=A4" +
"&portrait=false" +
"&fitw=true" +
"&sheetnames=false" +
"&printtitle=false" +
"&pagenumbers=false" +
"&gridlines=false" +
"&fzr=false";

const token = ScriptApp.getOAuthToken();

const response = UrlFetchApp.fetch(url, {
headers: {
Authorization: "Bearer " + token
}
});

const fileName =
"担当者別集計_" +
Utilities.formatDate(
new Date(),
Session.getScriptTimeZone(),
"yyyyMMdd_HHmmss"
) +
".pdf";

const file = folder.createFile(
response.getBlob().setName(fileName)
);

SpreadsheetApp.getUi().alert(
"PDF保存が完了しました。\n\n" +
"保存先フォルダ：担当者別集計PDF\n" +
"ファイル名：" + file.getName()
);

}

カスタマイズ例

パターン①

保存フォルダ名を変更する

const folderName = "案件管理PDF";

パターン②

縦向きPDFで保存する

"&portrait=true"

よくあるエラー

症状

Googleの承認画面が何度も表示される

対処法
・承認処理を最後まで完了する
・再度スクリプトを実行する

症状

PDFが保存されない

対処法
・Google Driveの容量を確認する
・担当者別集計(GAS)シート名を確認する

サンプルファイル

このコードを試せるGoogleスプレッドシートを配布しています。

▶ サンプルシートをコピーする（前回までのデータ）

▶ 完成版シートをコピーする（案件管理システム_完成版）

関連記事

▶ GASで案件データを登録するコード

▶ GASで担当者別集計表を自動作成するコード

▶ GASで入力フォームを自動クリアするコード

次回予告

次回から新プロジェクトを開始します。
お楽しみに

このコードでできること

・担当者ごとの総案件数を集計

・完了、進行中、未着手件数を集計

・担当者別集計表を自動作成

GASコード

function createStaffSummary() {

const ss = SpreadsheetApp.getActiveSpreadsheet();

const wsData = ss.getSheetByName("案件データベース");
const wsOut = ss.getSheetByName("担当者別集計(GAS)");

const lastRow = wsData.getLastRow();

const data = wsData.getRange(2, 1, lastRow - 1, 9).getValues();

let summary = {};

data.forEach(row => {

const person = row[4];
const status = row[7];

if (!person) return;

if (!summary[person]) {

  summary[person] = {
    total: 0,
    complete: 0,
    progress: 0,
    waiting: 0
  };

}

summary[person].total++;

switch (status) {

  case "完了":
    summary[person].complete++;
    break;

  case "進行中":
    summary[person].progress++;
    break;

  case "未着手":
    summary[person].waiting++;
    break;

}

});

// 出力エリア初期化
wsOut.getRange("B4:O14").clearContent();

// 列幅設定
[4, 7, 10, 13].forEach(col => {
wsOut.setColumnWidth(col, 30);
});

const startCols = [2, 5, 8, 11, 14, 2, 5, 8, 11, 14];

let count = 0;

for (let person in summary) {

if (count >= 10) break;

const topRow = count <= 4 ? 4 : 10;
const col = startCols[count];

const item = summary[person];

wsOut.getRange(topRow, col).setValue(person);
wsOut.getRange(topRow, col + 1).setValue("件数");

wsOut.getRange(topRow + 1, col).setValue("総件数");
wsOut.getRange(topRow + 1, col + 1).setValue(item.total);

wsOut.getRange(topRow + 2, col).setValue("完了");
wsOut.getRange(topRow + 2, col + 1).setValue(item.complete);

wsOut.getRange(topRow + 3, col).setValue("進行中");
wsOut.getRange(topRow + 3, col + 1).setValue(item.progress);

wsOut.getRange(topRow + 4, col).setValue("未着手");
wsOut.getRange(topRow + 4, col + 1).setValue(item.waiting);

// 担当者名太字
wsOut.getRange(topRow, col).setFontWeight("bold");

// 下罫線
wsOut.getRange(topRow, col, 1, 2)
  .setBorder(false, false, true, false, false, false);

// 中央揃え
wsOut.getRange(topRow, col, 5, 1)
  .setHorizontalAlignment("center")
  .setVerticalAlignment("middle");

wsOut.getRange(topRow, col + 1)
  .setHorizontalAlignment("center");

count++;

}

SpreadsheetApp.getUi().alert(
"担当者別集計を作成しました。内容を確認してください。"
);

}

カスタマイズ例

パターン①

担当者数を15名まで表示する

if (count >= 15) break;

パターン②

表示開始行を変更する

const topRow = count <= 4 ? 15 : 21;

よくあるエラー

症状

集計結果が表示されない

対処法
・シート名を確認する
・担当者列がE列か確認する

症状

実行時エラーが発生する

対処法
・担当者別集計(GAS)シートが存在するか確認する
・案件データベースシート名を確認する

サンプルファイル

このコードを試せるGoogleスプレッドシートを配布しています。

▶ サンプルシートをコピーする（前回までの完成版）

▶ 完成版シートをコピーする（案件管理システム_完成版）

関連記事

▶ GASで案件データを登録するコード

▶ GASで入力フォームを自動クリアするコード

▶ GASでチェックボックスにチェックしたら別シートへ転記するコード

次回予告

次回は「GASで担当者別集計表をPDF保存するコード」を紹介予定です。

このコードでできること

・担当者別集計表をPDFで保存
・保存先フォルダを自由に選択
・保存後にPDFを自動で開く

VBAコード

Sub 担当者別集計PDF保存()

Dim wsOut As Worksheet
Dim fd As FileDialog
Dim saveFolder As String
Dim pdfPath As String

Set wsOut = Worksheets("担当者別集計(VBA)")

Set fd = Application.FileDialog(msoFileDialogFolderPicker)

With fd

    .Title = "PDF保存先フォルダを選択してください"

    If .Show <> -1 Then Exit Sub

    saveFolder = .SelectedItems(1)

End With

pdfPath = saveFolder & "\" & _
          "担当者別集計_" & _
          Format(Now, "yyyymmdd_hhnnss") & ".pdf"

wsOut.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=pdfPath, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=True

MsgBox "PDF保存が完了しました。", vbInformation

End Sub

カスタマイズ例

パターン①

PDF保存後に自動で開かない

OpenAfterPublish:=False

パターン②

ファイル名に担当者別集計表を追加する

pdfPath = saveFolder & "\" & _
          "担当者別集計表_" & _
          Format(Now, "yyyymmdd_hhnnss") & ".pdf"

よくあるエラー

症状

PDFが保存されない

対処法

・保存先フォルダへの権限を確認する

・同名ファイルが開かれていないか確認する

症状

実行時エラーが発生する

対処法
・担当者別集計(VBA)シートが存在するか確認する
・印刷範囲設定を確認する

サンプルファイル

このコードを試せるサンプルファイルを配布しています。

▶ サンプルファイルをダウンロード（.zip）

関連記事

▶ VBAで案件データを登録するコード

▶ VBAで担当者別集計表を自動作成するコード

▶ VBAで入力フォームを自動クリアするコード

次回予告

次回は新プロジェクトを開始します。

お楽しみに。

このコードでできること

・担当者ごとの総案件数を集計
・完了、進行中、未着手件数を集計
・集計結果を担当者別に一覧表示

VBAコード

Sub 担当者別集計作成()

Dim wsData As Worksheet
Dim wsOut As Worksheet

Dim lastRow As Long
Dim r As Long

Dim dic As Object
Dim person As String
Dim status As String
Dim info

Dim startCols As Variant
Dim topRow As Long
Dim col As Long
Dim cnt As Long

Dim key As Variant
Dim c As Variant

'=================================
' シート設定
'=================================
Set wsData = Worksheets("案件データベース")
Set wsOut = Worksheets("担当者別集計(VBA)")

Set dic = CreateObject("Scripting.Dictionary")

'=================================
' 最終行取得
'=================================
lastRow = wsData.Cells(wsData.Rows.Count, "E").End(xlUp).Row

'=================================
' 集計
'=================================
For r = 2 To lastRow

    person = Trim(wsData.Cells(r, "E").Value)
    status = Trim(wsData.Cells(r, "H").Value)

    If person <> "" Then

        If Not dic.Exists(person) Then
            dic.Add person, Array(0, 0, 0, 0)
        End If

        info = dic(person)

        info(0) = info(0) + 1

        Select Case status

            Case "完了"
                info(1) = info(1) + 1

            Case "進行中"
                info(2) = info(2) + 1

            Case "未着手"
                info(3) = info(3) + 1

        End Select

        dic(person) = info

    End If

Next r

wsOut.Range("B4:O14").ClearContents

For Each c In Array("D", "G", "J", "M")
    wsOut.Columns(c).ColumnWidth = 3.75
Next c

startCols = Array(2, 5, 8, 11, 14, 2, 5, 8, 11, 14)

cnt = 0

For Each key In dic.Keys

    If cnt > 9 Then Exit For

    If cnt <= 4 Then
        topRow = 4
        col = startCols(cnt)
    Else
        topRow = 10
        col = startCols(cnt)
    End If

    info = dic(key)

    wsOut.Cells(topRow, col).Value = key
    wsOut.Cells(topRow, col + 1).Value = "件数"

    wsOut.Cells(topRow + 1, col).Value = "総件数"
    wsOut.Cells(topRow + 1, col + 1).Value = info(0)

    wsOut.Cells(topRow + 2, col).Value = "完了"
    wsOut.Cells(topRow + 2, col + 1).Value = info(1)

    wsOut.Cells(topRow + 3, col).Value = "進行中"
    wsOut.Cells(topRow + 3, col + 1).Value = info(2)

    wsOut.Cells(topRow + 4, col).Value = "未着手"
    wsOut.Cells(topRow + 4, col + 1).Value = info(3)

    wsOut.Cells(topRow, col).Font.Bold = True

    With wsOut.Range( _
        wsOut.Cells(topRow, col), _
        wsOut.Cells(topRow, col + 1) _
        ).Borders(xlEdgeBottom)

        .LineStyle = xlContinuous
        .Weight = xlThin

    End With

    With wsOut.Range( _
        wsOut.Cells(topRow, col), _
        wsOut.Cells(topRow + 4, col))

        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter

    End With

    wsOut.Cells(topRow, col + 1).HorizontalAlignment = xlCenter
    wsOut.Cells(topRow, col + 1).VerticalAlignment = xlCenter

    cnt = cnt + 1

Next key

wsOut.Activate

MsgBox "担当者別集計を作成しました。" & vbCrLf & _
       "内容を確認してください。", vbInformation

End Sub

カスタマイズ例

パターン①

担当者数を15名まで表示する

If cnt > 14 Then Exit For

パターン②

集計開始行を変更する

topRow = 15

よくあるエラー

症状

実行時エラーが発生する

対処法
・案件データベースシート名を確認する
・担当者別集計(VBA)シート名を確認する

症状

集計結果が0件になる

対処法
・担当者列がE列か確認する
・状態列がH列か確認する

サンプルファイル

このコードを試せるサンプルファイルを配布しています。

▶ サンプルファイルをダウンロード（.zip）

関連記事

▶ VBAで案件データを登録するコード

▶ VBAで入力フォームを自動クリアするコード

▶ VBAでチェックボックスにチェックしたら別シートへ転記するコード

次回予告

次回は「VBAで担当者別集計表をPDF保存するコード」を紹介予定です。