mysql date sub DeepSeek AI模型 _一分钟教会你在Excel里面接入DeepSeek，我们一起帮哪吒逆天改命

[]

灵珠觉醒，扭转乾坤

诸位道友，今日我们不谈Excel修仙基础心法，

本座近期闭关修炼，观察到紫微垣中数据流光穿梭，这股流光蕴含着我国自主研发大型模型的正气，正致力于重塑封神宇宙的根基代码。

这岂止是哪吒个人的反抗，分明是中华智慧文明向技术霸权投递的挑战书！

如今，这已成为我们炎黄子孙在人工智能时代最为强大的武器。正如哪吒挥舞混天绫搅动东海之水，我们运用中文语料重新塑造了AI世界的潮流法则。

这不仅是技术路线的较量，更是文明根骨的对话。

宛如新时代的神奇风火轮，承载着数据修士们翱翔于云端。昔日里，人们需焚香沐浴以祈求卦象，而如今，仅需几行代码便能清晰明了地计算出结果。

太乙真人若目睹弟子如此修行，恐怕会失手将酒葫芦摔落，惊叫道：“我先前制作表格时，怎会缺少此物？”

02

用智能模型对抗天劫咒

提及哪吒的生辰八字，原本是镌刻在陈塘关的族谱之中，然而现如今，它却静静地躺在我的Excel表格里。每个时辰的数据，都仿佛被赋予了生命的灵性，宛如通天的纹路一般。

那太乙真人以莲花之力重塑了哪吒的肉身，而我，则是借助Excel之力，运用无上神器在数据矩阵中重新塑造了他的命运轨迹。这，是否可以被视为数字时代的“肉身成圣”？

只要我轻轻一点那个标志，原本需要经验丰富的老者耗时半天才能推算的紫微斗数，现在却在工作表中沸腾得如同东海龙宫一般热闹非凡。

娃娃们，别眨眼，看好了!

切莫误以为这仅仅是电子占卜，其背后所蕴含的，正是哪吒那句“去他个鸟命”的数字诠释。

传统命盘预言哪吒遭遇杀劫，然而我们却在神经网络中探寻命运突破的信任范围；旧算法宣称灵珠被邪恶侵蚀，而我们则通过随机森林构建了108种改变命运的途径。

这不正是"我命由我不由天"的赛博演绎？

03

大道至简：Excel内嵌

问世之后，便无偿地开放给整个九州大陆的众神共享。因此，我对于这Excel的运用技巧，也绝不保留，保证您能在短时间内掌握，具体内容详述如下：

第1步

到官网申请API，具体流程请看今天的次条推送。

暂且遭遇闭门羹也无需气馁，耐心等待即可，亦或是关注我们的公众号，静候本座展示各式各样的神秘心法。

第2步

启动Excel软件，进入VBA编辑器界面（对于使用WPS的用户，可能还需额外安装VBA模块），操作步骤依次进行。

代码篇幅较长，故将其置于功法文本之末。在使用过程中，务必要将第一步获取的API相关数据，包括密钥、URL和模型名称，准确无误地填写至代码相应位置。

第3步

返回Excel表格界面，将你心仪之人的资料细致地填写完整，随后添加一张个人照片，点击鼠标右键，输入特定的指令。

大功告成了，只要点一下图片，就会起卦卜算。

| 尾声

当然，这仅仅是一些微不足道的技巧。凭借这些基础，你能够掌握108种数据处理与数据分析的自动化绝技，一旦你全部精通，便会成为众人景仰的仙界高手。

各位同修，在这修仙之途的数据处理中，Excel和WPS成为了我们手中的乾坤圈，亦或是能够穿越九天之上的风火轮。

下次老板再说"这就是命"时，你大可以祭出AI：

"且慢，待本座用它再算一卦！"

| 彩蛋

周庆麟最后向各位道友送上了美好的祝愿，期望大家在新的一年里事业有成，前程似锦。同时，他希望大家能够点赞、留言并分享。若本座察觉到大家对这篇文章的喜爱，便会毫不犹豫地将「哪吒命理分析模板」的原始文档赠予大家。

代码如下，尽管拿去用。

API设置区域，ExcelHome向各位同好送上新春的祝福！——2025年2月4日
定义常量AI_URL为一个字符串，其值为“API地址，可从官方网站上获取”。
定义常量AI_KEY为一个字符串，其值为“API密钥，请从官方网站上获取”。
请将AI模型的名称设定为官方指南中指定的内容。
AI交互功能，ExcelHome在此祝愿各位朋友新年安康！
定义一个私有函数，名为GetAIResponse，其参数为字符串类型的prompt，函数返回值也为字符串类型。
定义一个名为oXmlHttp的对象，以及一个名为requestBody的字符串。
设定起始时间为Double类型，定义API响应为String类型。
定义一个名为 TIMEOUT_MSG 的字符串常量，其值为“请求未能按时完成，可能存在以下原因：”并换行。
                                "1. 网络连接问题" & vbCrLf & _
                                "2. API服务繁忙" & vbCrLf & _
                                "是否重试？"
定义变量PROCESSING_MSG为字符串类型，其值为“AI正在进行分析，目前所耗时间为”。
    On Error GoTo ErrorHandler
创建一个对象，名为oXmlHttp，该对象通过调用"MSXML2.ServerXMLHTTP.6.0"这一类别的创建方法生成。
' 超时参数配置 
oXmlHttp设置了四个超时值，分别为5000毫秒、8000毫秒、20000毫秒和60000毫秒。
    ' 构建专业请求 
With oXmlHttp
        .Open "POST", AI_URL, False
设置请求头，指定内容类型为“application/json;”。
设置请求头，使用“Authorization”，并附加“Bearer”与AI密钥连接。
设置请求头中的“Accept”字段为“*/*”。
End With
请求体内容为：{"模型名称": "AI_MODEL", "参数": {}}，其中包含AI模型名称以及相关参数。
"消息"列表中包含一个对象，其"角色"属性为"user"，"内容"属性为对提示信息进行JSON转义后的结果，该结果与以下内容相连接："," & _
该记录的温度值为0.7，最大可生成的令牌数为512。
' 异步处理控制 
    startTime = Timer
    oXmlHttp.send requestBody
    Do While oXmlHttp.readyState <> 4
当计时器减去开始时间的结果超过六十秒时，
若弹窗提示信息包含“耗时：”字样，并显示从开始计时到当前时间的差值，格式化为保留一位小数的秒数，并设置一个超时时间。
当 vbCritical 与 vbRetryCancel 的组合结果等于 vbRetry 时，
                oXmlHttp.abort
                startTime = Timer
                oXmlHttp.send requestBody
            Else
                Exit Function
            End If
        End If
        DoEvents
应用程序的状态栏显示为“正在处理”，并附带从开始时间计算出的经过时间，格式化为“0.0”秒。
    Loop
    ' 响应处理 
If oXmlHttp.Status = 200 Then
oXmlHttp的responseText属性值被赋值给了apiResponse。
获取AI响应等于从API响应中提取JSON内容。
Else
引发错误，代码为vbObjectError加一，具体信息为：“API出错，状态码为”加oXmlHttp.Status“，状态描述为”加oXmlHttp.statusText“。
End If
Exit Function
ErrorHandler:
当错误编号等于-2147012894时，
若弹出消息框显示 TIMEOUT_MSG，并带有警告加重试取消的样式，用户选择重试，则程序将继续执行。
Else
弹出提示框显示：“AI交流故障：”随后是错误描述，并以严重警告的形式呈现。
End If
获取AI响应结果为：“错误信息：”加上错误描述
Finally:
    Application.StatusBar = False
Set oXmlHttp = Nothing
End Function
'辅助函数：JSON转义
定义一个私有函数，名为JSONEscape，它接受一个字符串参数，并返回一个字符串结果。
JSON转义处理函数通过多次替换操作实现，首先将字符串中的反斜杠"\\"替换为"\\\"，接着将双引号""替换为"\"""，最后将换行符vbcrlf替换为"\n"。
End Function
'辅助函数：提取JSON内容
定义一个私有函数，用于从字符串形式的响应内容中提取JSON数据，该函数名为ExtractJSONContent，并返回提取得到的字符串结果。
设定contentStart为起始位置的长整型变量，以及contentEnd为结束位置的长整型变量。
responseText中定位到""content"":""的起始位置，然后再加上11。
contentEnd 等于在 responseText 中从 contentStart 位置开始查找双引号 "" 的位置。
提取JSON内容等于替换从responseText中截取的、从contentStart到contentEnd（不包括contentEnd）之间的部分，将其中的换行符"\n"替换为回车换行符 vbCrLf。
End Function
主要任务涉及数据处理的流程环节，ExcelHome在此恭祝各位同仁新年吉祥如意！
Sub MainTask()
定义变量prompt为字符串类型，aiResponse也为字符串类型。
    Dim ws As Worksheet
    On Error GoTo ErrorHandler
    Set ws = ActiveSheet
    ' 数据准备 
定义变量userName为字符串类型，birthDate也为字符串类型，gender同样为字符串类型。
With ws.Range("A2:C2")
        userName = .Cells(1, 1).Value
获取单元格位于第一行第二列的值并赋值给出生日期变量。
        gender = .Cells(1, 3).Value
End With
' 构建专业提示词 
请执行一项深度的命理预测与评估，具体内容如下：
            "姓名：" & userName & vbCrLf & _
请在此处填写出生日期信息，格式如下：年月日，例如：1990年1月1日。
            "性别：" & gender & vbCrLf & _
需概括八字格局之精髓，阐释运势变化之趋势，提出针对个人发展的建议，并以通俗易懂的方式呈现，降低专业术语的使用频率。
    ' AI交互 
获取AI响应结果，执行GetAIResponse函数，输入提示信息prompt。
' 结果输出 
工作表中的A4单元格被赋予值，该值来自aiResponse。
工作表中的A4单元格区域，其文本换行功能被设置为开启。
    Exit Sub
ErrorHandler:
弹窗提示：“在处理数据过程中遇到了问题——”随后展示错误详情，并采用严重级别显示。
End Sub