【Excel】VBAでChatGPT(GPT-API)と連携する方法を割と詳しく解説

[@kwkm2000]

これは便利！ API呼び出しをVBAで作るのしんどいので、参考になります あとは、使用モデルの指定や、system role リクエストの指定もできるようにすると もっといいかなーって思いました。 修正イメージ： 例えば ・B1セルをSystemメッセージ入力セル ・D6を、モデル名入力セル（"gpt-3.5-turbo"、"gpt-4"、"gpt-3.5-turbo-16k"など） とした場合、 Dim systemText As String systemText = ws.Range("B1").Value Dim model As String model = ws.Range("D6").Value text = "{""model"": """ & model & """, ""temperature"": " & temperature & ", ""max_tokens"": 2000" & ", ""messages"": [{""role"": ""system"", ""content"": """ & systemText & """},{""role"": ""user"", ""content"": """ & text & """}]}" こんな感じですね。 ちなみに、この修正コードもchatGPTが創ってくれました😆😆

[@r4unit]

むちゃくちゃ参考になりました。動画ありがとうございます。

[@THEpurple5-mt5fb]

❶3/15Excelの活用レベルを今年1年間で格段に向上させたい。現段階ではほとんど利用できないから頑張る🔥

[@pikarin7401]

面白いことしてますね、vbaでapi呼び出すと複雑なことなりますね。xlwingsでPython呼び出したらシンプルに済みそう

[@HM-cv2mp]

わたしもb5に正しく表示されないです。解決策をおしえていただけたら幸いです。

[@origami3847]

安心してくださいで、はいてます🫣のあの人が出てたのが笑えた😊

[@000s-r3r]

影響されて、GPT-4登録しました！ 仕事でよく使うんですけど、 プロンプトの管理してないと、どんどん増えてくので4〜5つに絞りたいですね、、

[@hiroshisakata413]

SERIESSUM関数やってみてください

[@shutak7157]

すみません。なぜかマクロを実行してもB5に :{ が表示されるだけになってしまいます。もし解決策がわかるなら教えていただければ嬉しいです。

[@kwkm2000]

（何度かコメントしましたが、コメント投稿されていないようなので再コメントします。） API_URL の値が最後まで（completions で終わるまで）正しく入力されているか確認してみてください。 それで動くと思いますよ。

[@ちょむ-x4y]

@@kwkm2000 なんでかrだけしか表示されなくなった

[@kwkm2000]

@@ちょむ-x4y このコードは、データの送受信処理が超簡略化されているので、特殊文字（たとえば、ダブルクォート(")やバックスラッシュ(/)など）が質問文や回答に含まれると、正しく表示されないんですよね。 改善するには、VBA-JSONなどのライブラリを使って、JSONの文字列生成とパース処理を正しく組み込む必要があるみたいです。

[@橋本神流]

質問文の途中に改行が含まれるとrしか表示されないようです。 対策としては「sendAPIRequest」の一番上（Dim request As Objectの上の行あたり）に以下のコードを追加するといいようです。 text = Replace(text, Chr(10), " ") '改行文字を変換する

[@yozakura_ren]

途中のムスカに草はえた

[@SunnyEdward-os2yr]

Обучу заработку - @sliv_shem5