AccessでChatGPTを使って計算させる技｜VBA×APIで業務効率を爆上げ！

こんにちは、なかぜんです。

Accessの中でちょっと複雑なロジックを計算しようと思った時、「VBAだけではしんどいなぁ…」と思ったことはありませんか？

そんなとき、ChatGPTのAPIを使って外部に“頭脳”を借りてしまうという発想が役立ちます。

この記事では、AccessとOpenAIのChatGPT APIを連携させ、VBAから複雑な計算処理を行う方法を丁寧に解説します。少し上級者向けですが、業務の幅が一気に広がる技術ですので、ぜひ最後までお付き合いください。

ChatGPTに計算させるとは？
1. 普通のVBAでは難しい処理も得意
2. ChatGPT APIを使えばVBAから直接指示が出せる
準備：OpenAIのAPIキーとVBAの環境
1. OpenAI APIの取得
2. VBAでHTTP通信を行う準備
実装例：Access VBAでChatGPTに計算を依頼する
1. サンプル：商品のコストから販売価格と利益を計算
2. このコードの解説
注意点とよくあるミス
応用ポイント
まとめ：AIを味方にすればAccessはもっと進化する

ChatGPTに計算させるとは？

普通のVBAでは難しい処理も得意

たとえば「請求書の明細から利益率を計算しつつ、特例条件を加味したコメントをつけてほしい」など、単なる数式では処理しきれないケースがあります。

こうした“人間が判断するような”処理を、ChatGPTに任せることで簡潔に解決できます。

ChatGPT APIを使えばVBAから直接指示が出せる

OpenAIが提供するAPIを利用すれば、HTTPリクエストを使ってChatGPTに「これを計算して」と命令できます。そして、その結果をAccessに戻すことも可能です。

準備：OpenAIのAPIキーとVBAの環境

OpenAI APIの取得

OpenAIのアカウントを作成
ダッシュボードからAPIキーを取得

このAPIキーは後ほどVBA内で使います。

VBAでHTTP通信を行う準備

参照設定で「Microsoft XML, v6.0」ライブラリを有効にしておいてください。

実装例：Access VBAでChatGPTに計算を依頼する

サンプル：商品のコストから販売価格と利益を計算

' ChatGPTを使って販売価格を提案させる
Sub AskChatGPT()
    Dim http As Object
    Dim url As String
    Dim apiKey As String
    Dim prompt As String
    Dim jsonBody As String
    Dim response As String

    apiKey = "sk-xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" ' ←取得したAPIキーに置き換え
    url = "https://api.openai.com/v1/chat/completions"

    prompt = "原価が380円の商品の、利益率30％で販売価格と利益額を計算してください。"

    jsonBody = "{""model"":""gpt-3.5-turbo"",""messages"":[{""role"":""user"",""content"":""" & prompt & """}]}"

    Set http = CreateObject("MSXML2.XMLHTTP")
    http.Open "POST", url, False
    http.setRequestHeader "Content-Type", "application/json"
    http.setRequestHeader "Authorization", "Bearer " & apiKey
    http.Send jsonBody

    response = http.responseText

    MsgBox "ChatGPTの返答：" & vbCrLf & ParseChatGPTResponse(response)
End Sub

Function ParseChatGPTResponse(json As String) As String
    Dim startPos As Long, endPos As Long
    startPos = InStr(json, """content"":""") + 11
    endPos = InStr(startPos, json, """}")
    ParseChatGPTResponse = Mid(json, startPos, endPos - startPos)
End Function