【速報】ChatGPTのAPIが公開されたってマジ！？→一瞬で色んなツール爆誕してて震え止まらん…

2023年3月1日(現地時間)ChatGPTのAPIが公開されたぞ！マジか…
APIって何ぞや？って人のためにも簡単なAPIの解説と、それによってこれからどうなっていくか解説！
最近革命起きすぎてて寝れん

【ChatGPT API関連の情報】
https://platform.openai.com/docs/introduction

【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 = “https://api.openai.com/v1/chat/completions”

‘入力するテキストを取得
text = Replace(text_rng.text, vbLf, “n”)
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, “n”, “”)
Debug.Print response

‘レスポンスから回答の部分を抽出
response = Mid(response, InStr(response, “””content””:”””) + 11)
response = Left(response, InStr(response, “”””) – 1)

‘セルに出力
ans_rng.Value = response

End Sub

【ChatGPT-Plus】
https://openai.com/blog/chatgpt-plus/

【ChatGPT】
https://openai.com/blog/chatgpt/

【関連】
【ヤバすぎ】ガチでヤバすぎるAI。ChatGPTで今までのExcel作業に革命が起きてもうてます…【ChatGPT】

【目次】
0:00 冒頭
0:30 1.ChatGPTのAPIが一般公開されたぞ！
2:06 2.APIが公開されたことによる影響
4:00 3.早速ExcelとChatGPTを連携させてみたぞ！
5:55 4.注意点、補足

＜Twitter＞
わちょん
Tweets by wachi_yukkuri

＜チャンネル紹介＞
ExcelやVBA中心。時には真剣に、時には楽しく【ゆっくり動画】を作っています
https://www.youtube.com/channel/UCc1sntWEyGXMhH0fXI5mMiQ/

＜動画編集ソフト＞
ゆっくりMovieMaker4
https://manjubox.net/ymm4/

＜音楽・効果音＞
甘茶の音楽工房 さん
https://amachamusic.chagasi.com/terms.html
効果音ラボ さん
https://soundeffect-lab.info/sound/anime/

＜おすすめの本＞
カリスマYouTuberが教えるExcel超時短メソッド
Amazon：
https://px.a8.net/svt/ejp?a8mat=3NCUSQ+AVR8TU+249K+BWGDT&a8ejpredirect=https%3A%2F%2Fwww.amazon.co.jp%2Fdp%2FB0B3CP8721%2F%3Ftag%3Da8-affi-315072-22
楽天：
https://rpx.a8.net/svt/ejp?a8mat=2NQJOJ+3NKTGY+2HOM+BWGDT&rakuten=y&a8ejpredirect=https%3A%2F%2Fhb.afl.rakuten.co.jp%2Fhgc%2Fg00q0724.2bo11c45.g00q0724.2bo12179%2Fa16080209978_2NQJOJ_3NKTGY_2HOM_BWGDT%3Fpc%3Dhttps%253A%252F%252Fitem.rakuten.co.jp%252Fbook%252F17163337%252F%26m%3Dhttp%253A%252F%252Fm.rakuten.co.jp%252Fbook%252Fi%252F20676681%252F

＜しっかり勉強したい方向け＞
侍テラコヤ(プログラミング言語全般を体系的に学びたい人向け)
http://msm.to/6kyRIg3
クーポン→WACHI30

#chatgpt
#Excel