\u30bb\u30eb\u5185\u6539\u884c\u30b3\u30fc\u30c9\u3092”\\n”\u306b\u7f6e\u304d\u63db\u3048\u308b\u51e6\u7406\u3092\u52a0\u3048\u3066\u3044\u307e\u3059\u3002<\/div>\n<\/div>\n<\/div>\n
<\/p>\n
\u30b3\u30fc\u30c9\u5168\u4f53\u3067\u3059\u3002<\/p>\n
Sub \u8cea\u554f\u3092ChatGPT\u306eAPI\u3078\u9001\u308bv1()\n \n Dim objhttp As Object\n Dim APIKey As String\n Dim strTextToPredict As String\n Dim strRequestBody As String\n Dim strResponse As String\n Dim strModel As String\n Dim temp As Variant\n Dim temp2 As Variant\n Dim i As Integer\n Dim intMaxTokens As Integer\n Dim apiUrl As String\n Dim intCount As Integer\n \n 'API\u30ad\u30fc\u3092\u5165\u529b\u3057\u307e\u3059\u3002\n APIKey = "sk-***********************************************"\n \n 'ChatGPT\u306eAPI\u304b\u3089\u51fa\u529b\u3055\u308c\u308b\u6700\u5927\u6587\u5b57\u6570\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002\n intMaxTokens = 1000\n \n 'ChatGPT API\u306e\u30e2\u30c7\u30eb\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002\n strModel = "text-davinci-003"\n \n 'ChatGPT\u3078\u306e\u8cea\u554f\u5185\u5bb9\u3092\u53d6\u5f97\u3057\u307e\u3059\u3002\n 'strTextToPredict = Range("B1").Text\n strTextToPredict = Replace(Range("B1").Text, Chr(10), "\\n")\n\n '\u30ea\u30af\u30a8\u30b9\u30c8\u5148\u306eURL\u3092\u8a2d\u5b9a\u3057\u307e\u3059\u3002\n apiUrl = "https:\/\/api.openai.com\/v1\/completions"\n \n 'XMLHTTP\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u30bb\u30c3\u30c8\u3057\u307e\u3059\u3002\n Set objhttp = CreateObject("MSXML2.XMLHTTP")\n \n With objhttp\n\n '\u30ea\u30af\u30a8\u30b9\u30c8\u306e\u30d8\u30c3\u30c0\u30fc\u3092\u8a2d\u5b9a\u3057\u307e\u3059\u3002\n .Open "POST", apiUrl, False\n .setRequestHeader "Content-Type", "application\/json"\n .setRequestHeader "Authorization", "Bearer " & APIKey\n \n ' \u30ea\u30af\u30a8\u30b9\u30c8\u6587\u3092\u4f5c\u6210\u3057\u307e\u3059\u3002\n strRequestBody = "{""model"":""" & strModel & """, ""prompt"":""" & strTextToPredict & """, ""max_tokens"":" & intMaxTokens & ", ""temperature"":0.5, ""top_p"":1}"\n \n '\u30ea\u30af\u30a8\u30b9\u30c8\u3092\u9001\u4fe1\u3057\u307e\u3059\u3002\n .send strRequestBody\n \n 'API\u304b\u3089\u306e\u30ec\u30b9\u30dd\u30f3\u30b9\u304c\u8fd4\u308b\u307e\u3067\u5f85\u3061\u307e\u3059\u3002\n Do While .readyState <> 4\n DoEvents\n Loop\n\n '\u30ec\u30b9\u30dd\u30f3\u30b9\u60c5\u5831\u3092\u30c7\u30d0\u30c3\u30b0\u3057\u307e\u3059\uff61\u4e0d\u8981\u3067\u3042\u308c\u3070\u524a\u9664\u3057\u3066\u304f\u3060\u3055\u3044\uff61\n Debug.Print .responseText\n \n '\u30ec\u30b9\u30dd\u30f3\u30b9\u306e\u30c6\u30ad\u30b9\u30c8\u60c5\u5831\u3092Excel\u51fa\u529b\u7528\u5909\u6570\u306b\u4ee3\u5165\u3057\u307e\u3059\u3002\n strResponse = .responseText\n \n End With\n \n 'Json\u5f62\u5f0f\u306e\u30c7\u30fc\u30bf\u306e\u5185\u56de\u7b54\u30c6\u30ad\u30b9\u30c8\u304c\u3042\u308b\u4f4d\u7f6e\u304b\u3089\u5206\u5272\u3057\u307e\u3059\u3002\n temp = Split(strResponse, "\\n\\n")\n \n '\u914d\u5217\u6570\u3092\u53d6\u5f97\u3057\u307e\u3059\u3002\n intCount = UBound(temp)\n\n '\u914d\u5217\u5206\u51e6\u7406\u3092\u7e70\u308a\u8fd4\u3057\u307e\u3059\u3002\n For i = 1 To intCount\n \n If i = intCount Then\n '\u6700\u5f8c\u306e\u56de\u7b54\u3092\u30bb\u30eb\u306b\u51fa\u529b\u3057\u307e\u3059\u3002\n temp2 = Split(temp(i), """,""")\n Cells(i + 2, 2) = Replace(Replace(temp2(0), "\\n", Chr(10)), "\\", "")\n Else\n '\u6700\u5f8c\u306e\u56de\u7b54\u4ee5\u5916\u3092\u30bb\u30eb\u306b\u51fa\u529b\u3057\u307e\u3059\u3002\n Cells(i + 2, 2) = Replace(Replace(temp(i), "\\n", Chr(10)), "\\", "")\n End If\n \n Next i\n \nEnd Sub\n<\/code><\/pre>\n\u5b9f\u884c\u3057\u3066\u307f\u307e\u3057\u3087\u3046\u3002<\/p>\n
\u306f\u3044\u3001\u554f\u984c\u3042\u308a\u307e\u305b\u3093\u306d\uff01
\n![\"\"](\"https:\/\/extan.jp\/wp-content\/uploads\/2023\/02\/021623_1609_2.png\")
<\/p>\n
<\/span>\uff1c\u8ffd\u52a0\uff1e\u300cGPT-3.5\u300d\u7248\u3067Excel\u306bChatGPT\u306e\u56de\u7b54\u3092\u51fa\u529b\u3059\u308b<\/span><\/h2>\n\u30e2\u30c7\u30eb\u300cGPT-3.5\u300d\u7248\u3067Excel\u306bChatGPT\u306e\u56de\u7b54\u3092\u51fa\u529b\u3059\u308b\u65b9\u6cd5\u306b\u3064\u3044\u3066\u8ffd\u8a18\u3057\u307e\u3059\u3002<\/p>\n
<\/span>\u65e7\u30e2\u30c7\u30eb\u3068\u300cGPT-3.5\u300d\u7248\u306e\u9055\u3044<\/span><\/h4>\n\u4e0a\u8a18\u306e\u30e2\u30c7\u30eb\u306f\u3001\u300ctext-davinci-003\u300d\u3068\u3044\u3046\u30e2\u30c7\u30eb\u3067\u3001\u54c1\u8cea\u304c\u5b89\u5b9a\u3057\u305f\u6700\u3082\u6709\u7528\u306a\u30e2\u30c7\u30eb\u3068\u3044\u308f\u308c\u3066\u3044\u307e\u3059\u3002
\n\u305f\u3060\u3057\u305d\u306e\u5206\u300cGPT-3.5\u300d\u3088\u308a\u306f\u30b3\u30b9\u30c8\u304c\u304b\u304b\u308b\u3068\u3044\u3046\u30c7\u30a3\u30e1\u30ea\u30c3\u30c8\u304c\u3042\u308a\u307e\u3057\u305f\u3002<\/p>\n
\u305d\u3053\u3067\u3001\u3088\u308a\u6c17\u697d\u306b\u30b3\u30b9\u30c8\u304c\u5b89\u304f\u3001\u3055\u3089\u306b\u9ad8\u6a5f\u80fd\u306b\u958b\u767a\u3055\u308c\u305f\u306e\u304c\u300cGPT-3.5\u300d\u3067\u3059\u3002
\n\u30b3\u30b9\u30c8\u306f\u300ctext-davinci-003\u300d\u306e10\u5206\u306e\u4e00\u3067\u6700\u3082\u9ad8\u6027\u80fd\u3067\u8cbb\u7528\u5bfe\u52b9\u679c\u306e\u9ad8\u3044\u30e2\u30c7\u30eb\u3068\u306a\u3063\u3066\u3044\u307e\u3059\u3002<\/p>\n
<\/p>\n
\n
\n
![\"\u30bf\u30ab\u30d2\u30ed\"](\"\/wp-content\/uploads\/2020\/11\/taka_kao.gif\")
\n
\u30bf\u30ab\u30d2\u30ed<\/div>\n<\/div>\n
\n
\u203bGPT\u306e\u30d0\u30fc\u30b8\u30e7\u30f3\u30a2\u30c3\u30d7\u306e\u30b9\u30d4\u30fc\u30c9\u306f\u307b\u3093\u3068\u901f\u3044\u3067\u3059\u306d\u3002\u3002\u3002\u304c\u3093\u3070\u3063\u3066\u3064\u3044\u3066\u3044\u304d\u305f\u3044\u3068\u601d\u3044\u307e\u3059\uff01<\/div>\n<\/div>\n<\/div>\n
<\/p>\n
<\/span>\u30e2\u30c7\u30eb\u300cGPT-3.5\u300d\u306e\u30b3\u30fc\u30c9<\/span><\/h4>\n\u30e2\u30c7\u30eb\u300cGPT-3.5\u300d\u306e\u30b3\u30fc\u30c9\u306f\u4ee5\u4e0b\u306e\u901a\u308a\u3067\u3059\u3002
\nJson\u3067\u9001\u308b\u30d1\u30e9\u30e1\u30fc\u30bf\u306e\u5f62\u5f0f\u304c\u304b\u306a\u308a\u5909\u308f\u3063\u3066\u3044\u308b\u306e\u3068\u3001\u30e6\u30fc\u30b6\u6307\u5b9a\u304c\u53ef\u80fd\u306a\u69cb\u9020\u306b\u306a\u3063\u3066\u3044\u308b\u3053\u3068\u304c\u308f\u304b\u308a\u307e\u3059\u306d\u3002<\/p>\n
Sub \u8cea\u554f\u3092ChatGPT\u306eAPI\u3078\u9001\u308bv3_5T()\n \n Dim objhttp As Object\n Dim APIKey As String\n Dim strTextToPredict As String\n Dim strRequestBody As String\n Dim strResponse As String\n Dim strModel As String\n Dim temp As Variant\n Dim temp2 As Variant\n Dim i As Integer\n Dim intMaxTokens As Integer\n Dim apiUrl As String\n Dim intCount As Integer\n Dim StrMessages As String\n \n 'API\u30ad\u30fc\u3092\u5165\u529b\u3057\u307e\u3059\u3002\n APIKey = "sk-****************************************"\n \n 'ChatGPT\u306eAPI\u304b\u3089\u51fa\u529b\u3055\u308c\u308b\u6700\u5927\u6587\u5b57\u6570\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002\n intMaxTokens = 1000\n \n 'ChatGPT API\u306e\u30e2\u30c7\u30eb\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002\n strModel = "gpt-3.5-turbo"\n \n 'ChatGPT\u3078\u306e\u8cea\u554f\u5185\u5bb9\u3092\u53d6\u5f97\u3057\u307e\u3059\u3002\n strTextToPredict = Replace(Range("B1").Text, Chr(10), "\\n")\n \n StrMessages = "[{""role"": ""user"", ""content"":""" & strTextToPredict & """}]"\n \n Debug.Print StrMessages\n \n\n '\u30ea\u30af\u30a8\u30b9\u30c8\u5148\u306eURL\u3092\u8a2d\u5b9a\u3057\u307e\u3059\u3002\n apiUrl = "https:\/\/api.openai.com\/v1\/chat\/completions"\n \n 'XMLHTTP\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u30bb\u30c3\u30c8\u3057\u307e\u3059\u3002\n Set objhttp = CreateObject("MSXML2.XMLHTTP")\n \n With objhttp\n\n '\u30ea\u30af\u30a8\u30b9\u30c8\u306e\u30d8\u30c3\u30c0\u30fc\u3092\u8a2d\u5b9a\u3057\u307e\u3059\u3002\n .Open "POST", apiUrl, False\n .setRequestHeader "Content-Type", "application\/json"\n .setRequestHeader "Authorization", "Bearer " & APIKey\n \n ' \u30ea\u30af\u30a8\u30b9\u30c8\u6587\u3092\u4f5c\u6210\u3057\u307e\u3059\u3002\n strRequestBody = "{""model"":""" & strModel & """, ""messages"":" & StrMessages & "}"\n\n '\u30ea\u30af\u30a8\u30b9\u30c8\u3092\u9001\u4fe1\u3057\u307e\u3059\u3002\n .send strRequestBody\n \n 'API\u304b\u3089\u306e\u30ec\u30b9\u30dd\u30f3\u30b9\u304c\u8fd4\u308b\u307e\u3067\u5f85\u3061\u307e\u3059\u3002\n Do While .readyState <> 4\n DoEvents\n Loop\n\n '\u30ec\u30b9\u30dd\u30f3\u30b9\u60c5\u5831\u3092\u30c7\u30d0\u30c3\u30b0\u3057\u307e\u3059\uff61\u4e0d\u8981\u3067\u3042\u308c\u3070\u524a\u9664\u3057\u3066\u304f\u3060\u3055\u3044\uff61\n Debug.Print .responseText\n \n '\u30ec\u30b9\u30dd\u30f3\u30b9\u306e\u30c6\u30ad\u30b9\u30c8\u60c5\u5831\u3092Excel\u51fa\u529b\u7528\u5909\u6570\u306b\u4ee3\u5165\u3057\u307e\u3059\u3002\n strResponse = .responseText\n \n End With\n \n 'Json\u5f62\u5f0f\u306e\u30c7\u30fc\u30bf\u306e\u5185\u56de\u7b54\u30c6\u30ad\u30b9\u30c8\u304c\u3042\u308b\u4f4d\u7f6e\u304b\u3089\u5206\u5272\u3057\u307e\u3059\u3002\n temp = Split(strResponse, "content"":""")\n \n '\u914d\u5217\u6570\u3092\u53d6\u5f97\u3057\u307e\u3059\u3002\n intCount = UBound(temp)\n\n '\u914d\u5217\u5206\u51e6\u7406\u3092\u7e70\u308a\u8fd4\u3057\u307e\u3059\u3002\n For i = 1 To intCount\n \n If i = intCount Then\n '\u6700\u5f8c\u306e\u56de\u7b54\u3092\u4ee3\u5165\u3057\u307e\u3059\u3002\n temp2 = Split(temp(i), """},")\n Cells(i + 2, 2) = Replace(Replace(temp2(0), "\\n", Chr(10)), "\\", "")\n Else\n '\u6700\u5f8c\u306e\u56de\u7b54\u4ee5\u5916\u3092\u4ee3\u5165\u3057\u307e\u3059\u3002\n Cells(i + 2, 2) = Replace(Replace(temp(i), "\\n", Chr(10)), "\\", "")\n End If\n \n Next i\n\nEnd Sub<\/code><\/pre>\n