2023年3月1日(現地時間)ChatGPTのAPIが公開されたぞ！マジか…
APIって何ぞや？って人のためにも簡単なAPIの解説と、それによってこれからどうなっていくか解説！
最近革命起きすぎてて寝れん
【ChatGPT API関連の情報】
platform.openai.com/docs/intr...
【ExcelとChatGPTを連携させるVBA】
※雑に作ったので参考程度にどうぞ。
なんかミスってたらごめんね
Sub getChatGPTResponse()
Dim request As Object
Dim response As String
Dim strModel As String
Dim url As String
Dim text As String
Dim apiKey As String
Dim text_rng As Range
Dim ans_rng As Range
'APIキーを設定
apiKey = "ここにAPIキーを入力"
'質問と回答のセルを設定。シート指定や場所などはお好みで
Set text_rng = Sheet1.Range("B2")
Set ans_rng = Sheet1.Range("B4").MergeArea
'前回の回答を削除
ans_rng.ClearContents
'APIエンドポイントのURLを設定
url = "api.openai.com/v1/chat/comple..."
'入力するテキストを取得
text = Replace(text_rng.text, vbLf, "
")
text = "{""model"": ""gpt-3.5-turbo"", ""messages"": [{""role"": ""user"", ""content"": """ & text & """}]}"
'ログ用全テキスト
Debug.Print text
'APIリクエストを作成
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "POST", url, False
request.setRequestHeader "Content-Type", "application/json"
request.setRequestHeader "Authorization", "Bearer " & apiKey
request.send text
'APIレスポンスを取得
response = Replace(request.responseText, "
", "")
Debug.Print response
'レスポンスから回答の部分を抽出
response = Mid(response, InStr(response, """content"":""") + 11)
response = Left(response, InStr(response, """") - 1)
'セルに出力
ans_rng.Value = response
End Sub
【ChatGPT-Plus】
openai.com/blog/chatgpt-plus/
【ChatGPT】
openai.com/blog/chatgpt/
【関連】
【ヤバすぎ】ガチでヤバすぎるAI。ChatGPTで今までのExcel作業に革命が起きてもうてます…【ChatGPT】
• 【ヤバすぎ】ガチでヤバすぎるAI。ChatG...
【目次】
0:00 冒頭
0:30 1.ChatGPTのAPIが一般公開されたぞ！
2:06 2.APIが公開されたことによる影響
4:00 3.早速ExcelとChatGPTを連携させてみたぞ！
5:55 4.注意点、補足
＜Twitter＞
わちょん
/ wachi_yukkuri
＜チャンネル紹介＞
ExcelやVBA中心。時には真剣に、時には楽しく【ゆっくり動画】を作っています
/ @wachi-excel
＜動画編集ソフト＞
ゆっくりMovieMaker4
manjubox.net/ymm4/
＜音楽・効果音＞
甘茶の音楽工房 さん
amachamusic.chagasi.com/terms...
効果音ラボ さん
soundeffect-lab.info/sound/an...
＜おすすめの本＞
カリスマKZfaqrが教えるExcel超時短メソッド
Amazon：
px.a8.net/svt/ejp?a8mat=3NCUS...
楽天：
rpx.a8.net/svt/ejp?a8mat=2NQJ...
＜しっかり勉強したい方向け＞
侍テラコヤ(プログラミング言語全般を体系的に学びたい人向け)
msm.to/6kyRIg3
クーポン→WACHI30
#chatgpt
#Excel