Розмір відео: 1280 X 720853 X 480640 X 360
Показувати елементи керування програвачем
Автоматичне відтворення
Автоповтор
これは便利！API呼び出しをVBAで作るのしんどいので、参考になりますあとは、使用モデルの指定や、system role リクエストの指定もできるようにするともっといいかなーって思いました。修正イメージ：例えば・B1セルをSystemメッセージ入力セル・D6を、モデル名入力セル（"gpt-3.5-turbo"、"gpt-4"、"gpt-3.5-turbo-16k"など）とした場合、Dim systemText As StringsystemText = ws.Range("B1").ValueDim model As Stringmodel = ws.Range("D6").Valuetext = "{""model"": """ & model & """, ""temperature"": " & temperature & ", ""max_tokens"": 2000" & ", ""messages"": [{""role"": ""system"", ""content"": """ & systemText & """},{""role"": ""user"", ""content"": """ & text & """}]}"こんな感じですね。ちなみに、この修正コードもchatGPTが創ってくれました😆😆
むちゃくちゃ参考になりました。動画ありがとうございます。
安心してくださいで、はいてます🫣のあの人が出てたのが笑えた😊
❶3/15Excelの活用レベルを今年1年間で格段に向上させたい。現段階ではほとんど利用できないから頑張る🔥
面白いことしてますね、vbaでapi呼び出すと複雑なことなりますね。xlwingsでPython呼び出したらシンプルに済みそう
影響されて、GPT-4登録しました！仕事でよく使うんですけど、プロンプトの管理してないと、どんどん増えてくので4〜5つに絞りたいですね、、
SERIESSUM関数やってみてください
わたしもb5に正しく表示されないです。解決策をおしえていただけたら幸いです。
すみません。なぜかマクロを実行してもB5に:{が表示されるだけになってしまいます。もし解決策がわかるなら教えていただければ嬉しいです。
（何度かコメントしましたが、コメント投稿されていないようなので再コメントします。）API_URL の値が最後まで（completions で終わるまで）正しく入力されているか確認してみてください。それで動くと思いますよ。
@@kwkm2000 なんでかrだけしか表示されなくなった
@@user-hc6qv5cu2b このコードは、データの送受信処理が超簡略化されているので、特殊文字（たとえば、ダブルクォート(")やバックスラッシュ(/)など）が質問文や回答に含まれると、正しく表示されないんですよね。改善するには、VBA-JSONなどのライブラリを使って、JSONの文字列生成とパース処理を正しく組み込む必要があるみたいです。
質問文の途中に改行が含まれるとrしか表示されないようです。対策としては「sendAPIRequest」の一番上（Dim request As Objectの上の行あたり）に以下のコードを追加するといいようです。text = Replace(text, Chr(10), "") '改行文字を変換する
途中のムスカに草はえた
Обучу заработку - @sliv_shem5
これは便利！
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が創ってくれました😆😆
むちゃくちゃ参考になりました。動画ありがとうございます。
安心してくださいで、はいてます🫣のあの人が出てたのが笑えた😊
❶3/15Excelの活用レベルを今年1年間で格段に向上させたい。現段階ではほとんど利用できないから頑張る🔥
面白いことしてますね、vbaでapi呼び出すと複雑なことなりますね。xlwingsでPython呼び出したらシンプルに済みそう
影響されて、GPT-4登録しました！
仕事でよく使うんですけど、
プロンプトの管理してないと、どんどん増えてくので4〜5つに絞りたいですね、、
SERIESSUM関数やってみてください
わたしもb5に正しく表示されないです。解決策をおしえていただけたら幸いです。
すみません。なぜかマクロを実行してもB5に
:{
が表示されるだけになってしまいます。もし解決策がわかるなら教えていただければ嬉しいです。
（何度かコメントしましたが、コメント投稿されていないようなので再コメントします。）
API_URL の値が最後まで（completions で終わるまで）正しく入力されているか確認してみてください。
それで動くと思いますよ。
@@kwkm2000 なんでかrだけしか表示されなくなった
@@user-hc6qv5cu2b
このコードは、データの送受信処理が超簡略化されているので、特殊文字（たとえば、ダブルクォート(")やバックスラッシュ(/)など）が質問文や回答に含まれると、正しく表示されないんですよね。
改善するには、VBA-JSONなどのライブラリを使って、JSONの文字列生成とパース処理を正しく組み込む必要があるみたいです。
質問文の途中に改行が含まれるとrしか表示されないようです。
対策としては「sendAPIRequest」の一番上（Dim request As Objectの上の行あたり）に以下のコードを追加するといいようです。
text = Replace(text, Chr(10), "
") '改行文字を変換する
途中のムスカに草はえた
Обучу заработку - @sliv_shem5