靈珠覺(jué)醒，DeepSeek扭轉(zhuǎn)乾坤
諸位道友，今日我們不談Excel修仙基礎(chǔ)心法，
且說(shuō)本座近日閉關(guān)參悟，見(jiàn)紫微垣有數(shù)據(jù)流光劃過(guò)，原是DeepSeek帶著國(guó)產(chǎn)大模型的浩然之氣，正在重寫封神宇宙的底層代碼。
這哪是哪吒一個(gè)人的反叛，分明是中華智能文明向技術(shù)霸權(quán)發(fā)出的戰(zhàn)書！
話說(shuō)這DeepSeek，如今是我們炎黃子孫在這AI時(shí)代里最厲害的神兵利器。就像哪吒用混天綾攪動(dòng)?xùn)|海，用中文語(yǔ)料重塑AI世界的潮汐規(guī)律。
這不僅是技術(shù)路線的較量，更是文明根骨的對(duì)話。
DeepSeek像是新時(shí)代的風(fēng)火輪，載著數(shù)據(jù)修士們騰云駕霧。往昔需要焚香沐浴才能起卦的復(fù)雜推演，如今幾行代碼就能算個(gè)明明白白。
太乙真人若見(jiàn)弟子這般修行，怕是要摔了酒葫蘆驚呼：我以前做表格的時(shí)候，咋沒(méi)這東西？
話說(shuō)這哪吒的八字，本是寫在陳塘關(guān)的族譜上，如今卻躺在本座的Excel表里，每個(gè)時(shí)辰數(shù)據(jù)都像被注了靈的通天紋。
想那太乙真人用蓮花重塑哪吒肉身，本座就用Excel接引DeepSeek，用無(wú)上神器在數(shù)據(jù)矩陣中重構(gòu)他的命運(yùn)軌跡，這算不算數(shù)字時(shí)代的"肉身成圣"？
接下來(lái)，只要我觸動(dòng)一下DeepSeek的logo，原本需要老道掐指半日的紫微斗數(shù)，此刻在工作表里翻騰得比東海龍宮還熱鬧。
娃娃們，別眨眼，看好了!
可莫要以為這只是電子算命，這背后里藏著的，是哪吒那句"去他個(gè)鳥(niǎo)命"的數(shù)字注解。
傳統(tǒng)命盤說(shuō)哪吒犯殺劫，我們偏要在神經(jīng)網(wǎng)絡(luò)里找出命運(yùn)突圍的置信區(qū)間；舊算法斷言靈珠入魔，我們用隨機(jī)森林建模出108種改命路徑。
這不正是"我命由我不由天"的賽博演繹？
大道至簡(jiǎn)：Excel內(nèi)嵌DeepSeek
DeepSeek一經(jīng)問(wèn)世，就免費(fèi)開(kāi)源給九洲大地所有人神共用。所以這Excel接引DeepSeek之法，本座也絕不私藏，包你一分鐘學(xué)會(huì)，詳細(xì)介紹如下：
第1步
到DeepSeek官網(wǎng)申請(qǐng)API，具體流程請(qǐng)看今天的次條推送。
如果暫時(shí)吃了閉門羹也無(wú)妨，等等就好，或者關(guān)注本號(hào)，等著看本座的各種乾坤挪移心法。
打開(kāi)Excel，按<Alt+F11>祭出VBA編輯器（WPS用戶有可能需要補(bǔ)充安裝VBA模塊），如此這般。
具體代碼較長(zhǎng)，本座放在功法最后面。你自己用的時(shí)候，要記得把第1步獲取的API信息（key\url\model名稱）改寫到代碼里。
回到Excel工作表，把你心儀對(duì)象的信息這般寫好，插入一張圖片，右鍵，指定咒語(yǔ)。
大功告成了，只要點(diǎn)一下圖片，DeepSeek就會(huì)起卦卜算。
| 尾聲
當(dāng)然，這只是DeepSeek不值一提的小手段。以此筑基，可以擴(kuò)展出108種數(shù)據(jù)處理和數(shù)據(jù)分析自動(dòng)化秘技，等你都修煉出來(lái)，就是人人敬仰的大羅金仙了。
諸位道友，這數(shù)據(jù)修仙路上，Excel/WPS是我們的乾坤圈，DeepSeek便是那踏破九重天的風(fēng)火輪。
下次老板再說(shuō)"這就是命"時(shí)，你大可以祭出AI：
"且慢，待本座用它再算一卦！"
| 彩蛋
最后，周慶麟攜ExcelHome祝各位道友2025大展宏圖。也請(qǐng)大家點(diǎn)贊、評(píng)論，轉(zhuǎn)發(fā)。如果本座發(fā)現(xiàn)大家真的喜歡本文，就直接雙手奉上「哪吒命理分析模板」原文件！
代碼如下，盡管拿去用。
'▲▲▲ API配置區(qū) ，ExcelHome祝各位道友新年快樂(lè)！@20250204▲▲▲Const AI_URL As String = "API網(wǎng)址，從官網(wǎng)獲取"Const AI_KEY As String = "API KEY，從官網(wǎng)獲取"Const AI_MODEL As String = "模型的名稱，按官網(wǎng)的指示填寫"
'AI交互函數(shù)，ExcelHome祝各位道友新年快樂(lè)！Private Function GetAIResponse(prompt As String) As String Dim oXmlHttp As Object, requestBody As String Dim startTime As Double, apiResponse As String
Const TIMEOUT_MSG As String = "請(qǐng)求超時(shí)，可能原因：" & vbCrLf & _ "1. 網(wǎng)絡(luò)連接問(wèn)題" & vbCrLf & _ "2. API服務(wù)繁忙" & vbCrLf & _ "是否重試？" Const PROCESSING_MSG As String = "AI分析中，已耗時(shí) "
On Error GoTo ErrorHandlerSet oXmlHttp = CreateObject("MSXML2.ServerXMLHTTP.6.0")
'▲▲▲ 超時(shí)參數(shù)配置 ▲▲▲ oXmlHttp.setTimeouts 5000, 8000, 20000, 60000
'▼▼▼ 構(gòu)建專業(yè)請(qǐng)求 ▼▼▼With oXmlHttp .Open "POST", AI_URL, False .setRequestHeader "Content-Type", "application/json;" .setRequestHeader "Authorization", "Bearer " & AI_KEY .setRequestHeader "Accept", "*/*"End With
requestBody = "{""model"":""" & AI_MODEL & """," & _"""messages"":[{""role"":""user"",""content"":""" & JSONEscape(prompt) & """}]," & _"""temperature"":0.7,""max_tokens"":512}"
'▲▲▲ 異步處理控制 ▲▲▲ startTime = Timer oXmlHttp.send requestBody
Do While oXmlHttp.readyState <> 4 If Timer - startTime > 60 Then If MsgBox(TIMEOUT_MSG & "耗時(shí)：" & Format(Timer - startTime, "0.0") & "秒", _ vbCritical + vbRetryCancel) = vbRetry Then oXmlHttp.abort startTime = Timer oXmlHttp.send requestBody Else Exit Function End If End If DoEvents Application.StatusBar = PROCESSING_MSG & Format(Timer - startTime, "0.0") & "秒" Loop
'▼▼▼ 響應(yīng)處理 ▼▼▼If oXmlHttp.Status = 200 Then apiResponse = oXmlHttp.responseText GetAIResponse = ExtractJSONContent(apiResponse)Else Err.Raise vbObjectError + 1, , "API錯(cuò)誤：" & oXmlHttp.Status & " - " & oXmlHttp.statusTextEnd If
Exit Function
ErrorHandler:If Err.Number = -2147012894 ThenIf MsgBox(TIMEOUT_MSG, vbExclamation + vbRetryCancel) = vbRetry Then ResumeElse MsgBox "AI交互錯(cuò)誤：" & Err.Description, vbCriticalEnd If GetAIResponse = "錯(cuò)誤：" & Err.DescriptionFinally: Application.StatusBar = FalseSet oXmlHttp = NothingEnd Function
'輔助函數(shù)：JSON轉(zhuǎn)義Private Function JSONEscape(str As String) As String JSONEscape = Replace(Replace(Replace(str, "\", "\\"), """", "\"""), vbCrLf, "\n")End Function
'輔助函數(shù)：提取JSON內(nèi)容Private Function ExtractJSONContent(responseText As String) As String Dim contentStart As Long, contentEnd As Long contentStart = InStr(responseText, """content"":""") + 11 contentEnd = InStr(contentStart, responseText, """") ExtractJSONContent = Replace(Mid(responseText, contentStart, contentEnd - contentStart), "\n", vbCrLf)End Function
'主任務(wù)：數(shù)據(jù)處理流程，ExcelHome祝各位道友新年快樂(lè)！Sub MainTask() Dim prompt As String, aiResponse As String Dim ws As Worksheet
On Error GoTo ErrorHandler Set ws = ActiveSheet
'▼▼▼ 數(shù)據(jù)準(zhǔn)備 ▼▼▼ Dim userName As String, birthDate As String, gender As StringWith ws.Range("A2:C2") userName = .Cells(1, 1).Value birthDate = .Cells(1, 2).Value gender = .Cells(1, 3).ValueEnd With
'▲▲▲ 構(gòu)建專業(yè)提示詞 ▲▲▲ prompt = "請(qǐng)進(jìn)行專業(yè)的命理推算分析：" & vbCrLf & _ "姓名：" & userName & vbCrLf & _ "出生日期：" & birthDate & vbCrLf & _ "性別：" & gender & vbCrLf & _ "要求：1. 簡(jiǎn)要概括八字格局 2. 簡(jiǎn)要解讀大運(yùn)走勢(shì) 3. 給出人生建議 4. 使用小白能看懂的方式輸出，減少專業(yè)術(shù)語(yǔ)"
'▼▼▼ AI交互 ▼▼▼ aiResponse = GetAIResponse(prompt)
'▲▲▲ 結(jié)果輸出 ▲▲▲ ws.Range("A4").Value = aiResponse ws.Range("A4").WrapText = True Exit Sub
ErrorHandler: MsgBox "處理數(shù)據(jù)時(shí)發(fā)生錯(cuò)誤：" & Err.Description, vbCriticalEnd Sub
閱讀原文：原文鏈接
該文章在 2025/2/11 16:40:15 編輯過(guò)
400 186 1886
