AI与Excelの連携（プラグイン）

これまでは、ChatGPTウィンドウとExcelウィンドウを行き来しながら作業していましたね。AIに質問して、回答をコピーして、Excelに貼り付けて...面倒だったと思います。

今やExcelの中から直接AIを呼び出すことができます!セルに=GPT("これを翻訳して")と入力するだけで、すぐに結果が表示されます。数百、数千のデータにAI分析を一括適用することも可能です。

AIとExcelを連携すれば、作業効率が大幅に向上します。テキスト要約、感情分析、翻訳、カテゴリ分類...これらの作業をExcel関数のように使えるようになります。

今回は、AIとExcelを連携する様々な方法を学びます。Microsoft 365 CopilotからChatGPT API連携、Google Sheetsまで、実務ですぐに活用できる方法を段階的に見ていきましょう。

1. Microsoft 365 Copilot

Copilot基本機能

Microsoft 365購読者は、Excelに内蔵されたCopilotを使用できます。

主要機能:

1. 自然言語でデータ分析
   「今月の売上上位5製品を表示して」

2. 数式自動生成
   「前月比増減率を計算して」

3. チャート推薦
   「このデータを最もよく表現するチャートは?」

4. データ整理
   「重複行を削除して日付順に並べ替えて」

5. インサイト発見
   「このデータから特異なパターンを見つけて」

Copilot活用例

[Copilotプロンプト]
「過去12ヶ月の売上データを分析して
季節別トレンドと最もよく売れる製品を教えて」

[Copilot回答]
分析結果:
- 夏（6-8月）に売上が平均25%増加
- 製品Aが全体売上の35%を占める
- 12月に特に高い売上（年末特需）

チャートとピボットテーブルを生成しました。

2. ChatGPT API連携

OpenAI API設定

AIプロンプト:

ExcelでChatGPT APIを呼び出すVBA関数を作ってください。
APIキーを安全に保存し、回答をセルに返してください。

AI生成VBA:

' APIキーはVBAプロジェクトプロパティに保存
' または別ファイルに暗号化して保存

Public Const OPENAI_API_KEY As String = "your-api-key-here"

' ChatGPT呼び出し関数
Function AskGPT(prompt As String, Optional model As String = "gpt-4") As String
    On Error GoTo ErrorHandler

    Dim http As Object
    Dim url As String
    Dim requestBody As String
    Dim response As String

    Set http = CreateObject("MSXML2.XMLHTTP")

    url = "https://api.openai.com/v1/chat/completions"

    ' JSONリクエストボディ
    requestBody = "{" & _
        """model"": """ & model & """," & _
        """messages"": [{""role"": ""user"", ""content"": """ & _
        Replace(prompt, """", "\""") & """}]," & _
        """max_tokens"": 1000," & _
        """temperature"": 0.7" & _
        "}"

    ' HTTPリクエスト
    With http
        .Open "POST", url, False
        .setRequestHeader "Content-Type", "application/json"
        .setRequestHeader "Authorization", "Bearer " & OPENAI_API_KEY
        .send requestBody

        If .Status = 200 Then
            response = .responseText

            ' JSONパース（簡単な方法）
            Dim startPos As Long, endPos As Long
            startPos = InStr(response, """content"": """) + 13
            endPos = InStr(startPos, response, """")

            AskGPT = Mid(response, startPos, endPos - startPos)

            ' エスケープ文字処理
            AskGPT = Replace(AskGPT, "\n", vbCrLf)
            AskGPT = Replace(AskGPT, "\""", """")
        Else
            AskGPT = "Error: " & .Status & " - " & .statusText
        End If
    End With

    Set http = Nothing
    Exit Function

ErrorHandler:
    AskGPT = "Error: " & Err.Description
End Function

' Excelワークシート関数として使用
Function GPT(prompt As String) As String
    GPT = AskGPT(prompt)
End Function

使用例

// セルで直接使用
=GPT("この文を英語に翻訳して: こんにちは")

// データ分析
=GPT("次の売上データを分析してインサイトを提供して: "&A2:A100)

// テキスト要約
=GPT("次の顧客レビューを一文で要約して: "&B2)

// カテゴリ分類
=GPT("次の製品名を家電/衣類/食品のいずれかに分類して: "&C2)

3. 高度なAI関数ライブラリ

AIプロンプト:

様々なAIタスクを実行するユーザー定義関数ライブラリを作ってください:
- テキスト要約
- 感情分析
- 翻訳
- カテゴリ分類
- キーワード抽出

AI生成VBA:

' AI関数ライブラリ

' テキスト要約
Function AI_Summarize(text As String, Optional maxLength As Integer = 100) As String
    Dim prompt As String
    prompt = "次のテキストを" & maxLength & "字以内で要約して:" & vbCrLf & text
    AI_Summarize = AskGPT(prompt)
End Function

' 感情分析（ポジティブ/中立/ネガティブ）
Function AI_Sentiment(text As String) As String
    Dim prompt As String
    prompt = "次のテキストの感情を「ポジティブ」、「中立」、「ネガティブ」のいずれかで答えて:" & vbCrLf & text
    AI_Sentiment = AskGPT(prompt)
End Function

' 翻訳
Function AI_Translate(text As String, targetLang As String) As String
    Dim prompt As String
    prompt = "次のテキストを" & targetLang & "に翻訳して:" & vbCrLf & text
    AI_Translate = AskGPT(prompt)
End Function

' カテゴリ分類
Function AI_Categorize(text As String, categories As String) As String
    Dim prompt As String
    prompt = "次のテキストをこのカテゴリのいずれかに分類して（" & categories & "）:" & vbCrLf & text
    AI_Categorize = AskGPT(prompt)
End Function

' キーワード抽出
Function AI_Keywords(text As String, Optional count As Integer = 5) As String
    Dim prompt As String
    prompt = "次のテキストから主要キーワード" & count & "個をカンマ区切りで教えて:" & vbCrLf & text
    AI_Keywords = AskGPT(prompt)
End Function

' データ検証
Function AI_Validate(value As String, rules As String) As String
    Dim prompt As String
    prompt = "次の値がこのルールを満たすか「はい」または「いいえ」で答えて。" & vbCrLf & _
             "ルール: " & rules & vbCrLf & _
             "値: " & value
    AI_Validate = AskGPT(prompt)
End Function

' メール生成
Function AI_Email(situation As String, tone As String) As String
    Dim prompt As String
    prompt = "次の状況について" & tone & "トーンのメールを作成して:" & vbCrLf & situation
    AI_Email = AskGPT(prompt)
End Function

' データクレンジング（不要な文字削除、標準化）
Function AI_CleanData(text As String) As String
    Dim prompt As String
    prompt = "次のデータをクリーンアップして標準化した形式で返して:" & vbCrLf & text
    AI_CleanData = AskGPT(prompt)
End Function

一括処理マクロ

Sub AI一括処理()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim taskType As String

    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    ' タスクタイプ選択
    taskType = InputBox( _
        "タスクタイプを選択してください:" & vbCrLf & _
        "1: 要約" & vbCrLf & _
        "2: 感情分析" & vbCrLf & _
        "3: 翻訳（英語）" & vbCrLf & _
        "4: キーワード抽出", _
        "AI一括処理", "1")

    Application.ScreenUpdating = False

    ' 進捗表示
    Dim progressForm As Object

    For i = 2 To lastRow
        Dim inputText As String
        Dim result As String

        inputText = ws.Cells(i, 1).Value

        ' タスク実行
        Select Case taskType
            Case "1"
                result = AI_Summarize(inputText)
            Case "2"
                result = AI_Sentiment(inputText)
            Case "3"
                result = AI_Translate(inputText, "英語")
            Case "4"
                result = AI_Keywords(inputText)
        End Select

        ws.Cells(i, 2).Value = result

        ' 進捗更新
        Application.StatusBar = "処理中... " & _
            Format((i - 1) / (lastRow - 1), "0%") & _
            " (" & i - 1 & "/" & lastRow - 1 & ")"

        ' API制限考慮（秒あたりリクエスト数）
        Application.Wait Now + TimeValue("00:00:01")
    Next i

    Application.StatusBar = False
    Application.ScreenUpdating = True

    MsgBox "AI一括処理が完了しました。", vbInformation
End Sub

4. Google Sheets用Apps Script

AIプロンプト:

Google Sheetsで使用できる
ChatGPT API連携Apps Scriptを作ってください。

AI生成Apps Script:

// Google Apps Script
// ツール > スクリプトエディタ

const OPENAI_API_KEY = 'your-api-key-here';

/**
 * ChatGPT API呼び出し
 * @param {string} prompt 質問またはコマンド
 * @param {string} model モデル名（デフォルト: gpt-4）
 * @return {string} AI回答
 * @customfunction
 */
function GPT(prompt, model = 'gpt-4') {
  if (!prompt) return '';

  const url = 'https://api.openai.com/v1/chat/completions';

  const payload = {
    model: model,
    messages: [{
      role: 'user',
      content: prompt
    }],
    max_tokens: 1000,
    temperature: 0.7
  };

  const options = {
    method: 'post',
    contentType: 'application/json',
    headers: {
      'Authorization': 'Bearer ' + OPENAI_API_KEY
    },
    payload: JSON.stringify(payload),
    muteHttpExceptions: true
  };

  try {
    const response = UrlFetchApp.fetch(url, options);
    const json = JSON.parse(response.getContentText());

    if (json.choices && json.choices.length > 0) {
      return json.choices[0].message.content;
    } else {
      return 'Error: ' + JSON.stringify(json);
    }
  } catch (e) {
    return 'Error: ' + e.toString();
  }
}

/**
 * テキスト要約
 * @param {string} text 要約するテキスト
 * @param {number} maxLength 最大長
 * @return {string} 要約されたテキスト
 * @customfunction
 */
function AI_SUMMARIZE(text, maxLength = 100) {
  const prompt = `次のテキストを${maxLength}字以内で要約して:\n${text}`;
  return GPT(prompt);
}

/**
 * 感情分析
 * @param {string} text 分析するテキスト
 * @return {string} ポジティブ/中立/ネガティブ
 * @customfunction
 */
function AI_SENTIMENT(text) {
  const prompt = `次のテキストの感情を「ポジティブ」、「中立」、「ネガティブ」のいずれかで答えて:\n${text}`;
  return GPT(prompt);
}

/**
 * 翻訳
 * @param {string} text 翻訳するテキスト
 * @param {string} targetLang 目標言語
 * @return {string} 翻訳されたテキスト
 * @customfunction
 */
function AI_TRANSLATE(text, targetLang = '英語') {
  const prompt = `次のテキストを${targetLang}に翻訳して:\n${text}`;
  return GPT(prompt);
}

/**
 * 範囲内すべてのセルにAI関数適用
 */
function AI_BATCH_PROCESS() {
  const sheet = SpreadsheetApp.getActiveSheet();
  const range = sheet.getActiveRange();
  const values = range.getValues();

  const taskType = Browser.inputBox(
    'AIタスク選択',
    '1: 要約\\n2: 感情分析\\n3: 翻訳（英語）\\n4: キーワード抽出',
    Browser.Buttons.OK_CANCEL
  );

  if (taskType === 'cancel') return;

  const results = values.map(row => {
    const text = row[0];
    let result = '';

    switch(taskType) {
      case '1':
        result = AI_SUMMARIZE(text);
        break;
      case '2':
        result = AI_SENTIMENT(text);
        break;
      case '3':
        result = AI_TRANSLATE(text, '英語');
        break;
      case '4':
        result = GPT(`次のテキストから主要キーワード5個を抽出して:\n${text}`);
        break;
    }

    Utilities.sleep(1000); // API制限考慮
    return [result];
  });

  // 結果を次の列に出力
  const outputRange = sheet.getRange(
    range.getRow(),
    range.getColumn() + 1,
    range.getNumRows(),
    1
  );
  outputRange.setValues(results);

  Browser.msgBox('AI処理が完了しました。');
}

/**
 * メニュー追加
 */
function onOpen() {
  const ui = SpreadsheetApp.getUi();
  ui.createMenu('AIツール')
    .addItem('一括処理', 'AI_BATCH_PROCESS')
    .addToUi();
}

5. リアルタイムAIダッシュボード

AIプロンプト:

ExcelでリアルタイムにデータをAIが分析し
ダッシュボードを更新するシステムを作ってください。

AI生成VBA:

' ThisWorkbookモジュールに追加

Dim RefreshTimer As Double

Sub リアルタイムAIダッシュボード開始()
    RefreshTimer = Now + TimeValue("00:05:00") ' 5分ごと
    Application.OnTime RefreshTimer, "AIダッシュボード更新"

    MsgBox "リアルタイムAIダッシュボードが開始されました。" & vbCrLf & _
           "5分ごとに自動更新されます。", vbInformation
End Sub

Sub リアルタイムAIダッシュボード停止()
    On Error Resume Next
    Application.OnTime RefreshTimer, "AIダッシュボード更新", , False
    MsgBox "リアルタイムAIダッシュボードが停止されました。", vbInformation
End Sub

Sub AIダッシュボード更新()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("ダッシュボード")

    Application.ScreenUpdating = False

    ' 最新データ取得
    Dim lastRow As Long
    Dim dataWs As Worksheet
    Set dataWs = ThisWorkbook.Sheets("元データ")
    lastRow = dataWs.Cells(dataWs.Rows.Count, "A").End(xlUp).Row

    ' AI分析1: トレンド分析
    Dim recentData As String
    recentData = Join(Application.Transpose( _
        dataWs.Range("B" & lastRow - 6 & ":B" & lastRow).Value), ", ")

    ws.Cells(2, 2).Value = AskGPT( _
        "次の最近7日間の売上データのトレンドを一文で説明して: " & recentData)

    ' AI分析2: 異常値検知
    ws.Cells(3, 2).Value = AskGPT( _
        "次のデータに異常値があれば教えて: " & recentData)

    ' AI分析3: 予測
    ws.Cells(4, 2).Value = AskGPT( _
        "次の売上トレンドに基づいて明日の売上を予測して: " & recentData)

    ' AI分析4: 推薦事項
    ws.Cells(5, 2).Value = AskGPT( _
        "この売上データを見て経営陣に伝える助言を一文で作成して: " & recentData)

    ' 更新時刻表示
    ws.Cells(1, 4).Value = "最終更新: " & Format(Now, "yyyy-mm-dd hh:mm:ss")

    Application.ScreenUpdating = True

    ' 次の更新予約
    RefreshTimer = Now + TimeValue("00:05:00")
    Application.OnTime RefreshTimer, "AIダッシュボード更新"
End Sub

6. AI関数キャッシング（APIコスト削減）

AIプロンプト:

同じ質問を繰り返さないように
AI回答をキャッシングするシステムを作ってください。

AI生成VBA:

' キャッシュ用Dictionary
Private AICache As Object

Sub InitializeCache()
    If AICache Is Nothing Then
        Set AICache = CreateObject("Scripting.Dictionary")
    End If
End Sub

Function GPT_Cached(prompt As String) As String
    Call InitializeCache

    ' キャッシュ確認
    If AICache.Exists(prompt) Then
        GPT_Cached = AICache(prompt)
        Debug.Print "Cache Hit: " & Left(prompt, 50)
    Else
        ' API呼び出し
        GPT_Cached = AskGPT(prompt)
        AICache.Add prompt, GPT_Cached
        Debug.Print "Cache Miss: " & Left(prompt, 50)
    End If
End Function

Sub キャッシュ初期化()
    Set AICache = Nothing
    MsgBox "AIキャッシュが初期化されました。", vbInformation
End Sub

Sub キャッシュ統計()
    Call InitializeCache
    MsgBox "キャッシュ項目数: " & AICache.Count, vbInformation
End Sub

7. エラー処理と再試行ロジック

Function AskGPT_Robust(prompt As String, Optional maxRetries As Integer = 3) As String
    Dim retryCount As Integer
    Dim result As String
    Dim lastError As String

    retryCount = 0

    Do While retryCount < maxRetries
        result = AskGPT(prompt)

        ' 成功確認
        If Not (Left(result, 6) = "Error:") Then
            AskGPT_Robust = result
            Exit Function
        End If

        lastError = result
        retryCount = retryCount + 1

        ' 再試行前の待機
        If retryCount < maxRetries Then
            Application.Wait Now + TimeValue("00:00:02")
        End If
    Loop

    ' すべての再試行失敗
    AskGPT_Robust = "すべての再試行失敗: " & lastError
End Function

8. コスト監視

' モジュール上部に追加
Private APICallCount As Long
Private TotalTokens As Long

Sub API統計初期化()
    APICallCount = 0
    TotalTokens = 0
End Sub

Sub API統計表示()
    Dim estimatedCost As Double

    ' GPT-4基準: $0.03/1K tokens（入力）+ $0.06/1K tokens（出力）
    ' 平均トークン数で推定
    estimatedCost = TotalTokens / 1000 * 0.045

    MsgBox "API使用統計:" & vbCrLf & _
           "呼び出し回数: " & APICallCount & vbCrLf & _
           "予想トークン: " & TotalTokens & vbCrLf & _
           "予想コスト: $" & Format(estimatedCost, "0.00"), _
           vbInformation
End Sub

Function AskGPT_Monitored(prompt As String) As String
    ' 呼び出し前カウント
    APICallCount = APICallCount + 1

    ' トークン推定（約4文字=1トークン）
    TotalTokens = TotalTokens + Len(prompt) / 4 + 250 ' 回答予想トークン

    ' 実際の呼び出し
    AskGPT_Monitored = AskGPT(prompt)
End Function

まとめ

AIとExcel連携方法:

• ✅ Microsoft 365 Copilot活用
• ✅ ChatGPT APIでユーザー定義関数
• ✅ Google Sheets Apps Script連携
• ✅ キャッシングと監視でコスト最適化

次回は、これらすべての技術を総合した業務自動化ワークフローを設計します。