https://www.pythonthree.com/register-openai-chatgpt/
前提：请确保你科学上网的小工具是开启的 !!!
先附上vba源码：
Function ChatGPT(prompt As String) As String
Dim url As String, apiKey As String
Dim response As Object, re As String
Dim midString As String
apiKey = “把之前获取到的chatGPT的API key复制粘贴到这里”
url = “https://api.openai.com/v1/engines/text-davinci-003/completions”
Set response = CreateObject(“MSXML2.XMLHTTP”)
response.Open “POST”, url, False
response.setRequestHeader “Content-Type”, “application/json”
response.setRequestHeader “Authorization”, “Bearer " + apiKey
response.Send “{”“prompt””:“”" & prompt & “”“,”“max_tokens”“:1024, ““temperature””:0.1}”
re = response.responseText
midString = Mid(re, InStr(re, “”“text”“:”“”) + 8)
ChatGPT = Split(midString, “”“”)(0)
ChatGPT = Replace(ChatGPT, “\n”, “”)
End Function
在Excel中找到 “开发工具” ，点击后可以看到 “VBA编辑器” ，点进去，进入到VBA编辑界面。
然后，在VBA编辑界面里，点击 “模块” ，“插入” 一个新的模块。
最后，把vba源码复制粘贴到新建立的模块中去，将api key内容替换，再保存即可。
“至此，恭喜你，你拥有了属于自己的魔法Excel！” 随意在单元格内输入“=chatGPT()”,就可以调用GPT干活啦！
在此建议做一个模版，之后就不用重复设置了，操作也非常简单：
1.“文件”->“另存为”->“xlam”格式。建议保存到模版目录，一般为：C:\Users\lenovo\AppData\Roaming\kingsoft\office6\templates\et\zh_CN；
2.新建Excel文件，“开发工具”->“加载项”，在模版保存目录下浏览选取该文件即可加载。再之后就不用管了，只要魔法上网并且调用“=chatGPT()”函数，就可以基于Excel操作GPT了，再也不用费心去查Excel的操作函数啦！
附上一个小例子：
先附上vba源码：
Sub ChatGPT()
Dim selectedText As String
Dim apiKey As String
Dim response As Object, re As String
Dim midString As String
Dim ans As String
If Selection.Type = wdSelectionNormal Then
selectedText = Selection.Text
selectedText = Replace(selectedText, ChrW$(13), “”)
apiKey = “把之前获取到的chatGPT的API key复制粘贴到这里”
url = “https://api.openai.com/v1/chat/completions”
Set response = CreateObject(“MSXML2.XMLHTTP”)
response.Open “POST”, url, False
response.setRequestHeader “Content-Type”, “application/json”
response.setRequestHeader “Authorization”, “Bearer " + apiKey
response.Send “{”“model””:““gpt-3.5-turbo””, ““messages””:[{““role””:““user””,““content””:“”" & selectedText & “”“}], ““temperature””:0.7}”
re = response.responseText
midString = Mid(re, InStr(re, “”“content”“:”“”) + 11)
ans = Split(midString, “”“”)(0)
ans = Replace(ans, “\n”, “”)
Selection.Text = selectedText & vbNewLine & ans
Else
Exit Sub
End If
End Sub
接下来的流程跟Excel操作大同小异，这里就不附图了：
1.在Excel中找到 “开发工具” ，点击后可以看到 “VBA编辑器” ，点进去，进入到VBA编辑界面；
2.然后，在VBA编辑界面里，点击 “模块” ，“插入” 一个新的模块；
3.再把vba源码复制粘贴到新建立的模块中去，将api key内容替换，再保存即可。而后，再进入 “开发工具” ，点击 “VB宏”，你就可以看到有个宏名为“chatGPT”的宏了，将“宏的位置”设置为“所有活动模版和文档”；
4.最后，通过“文件”，“选项”，“自定义功能区”，通过“宏”，将“模块1：ChatGPT”添加到你想要调用的工具栏里就可以了。
比如我添加到了“开始”页，就可以生成如下按钮：
还是一样的，在此建议做一个模版，之后就不用重复设置了，操作也非常简单：
1.“文件”->“另存为”->“dotm”格式；
2.新建Word文件，“开发工具”->“加载项”，在模版保存目录下浏览选取该文件即可加载。后续只要魔法上网，然后，在word里面敲入你想跟chatGPT对话的语段，然后用鼠标选取这些文字，点击“ChatGPT”按钮，就可以获取GPT建议啦！
附上一个小例子：
创作不易，欢迎收藏、转发，谢谢大家~
