月底做考勤統(tǒng)計(jì)是很多辦公場(chǎng)景里繞不過去的活。一張考勤明細(xì)表可能有上千條打卡記錄你要按人、按日期統(tǒng)計(jì)誰遲到、遲到幾次、遲到多少分鐘。如果只是手動(dòng)處理既費(fèi)時(shí)又容易看漏。我試過用 WorkBuddy 寫 VBA 來解決這類任務(wù)最大的感受不是代碼生成得有多驚艷而是「把需求說清楚」這件事真的可以代替「把代碼敲出來」。你把統(tǒng)計(jì)規(guī)則用自然語言描述出來它就能生成一整段能落地的 VBA 代碼。這種體驗(yàn)與其叫 AI 寫代碼不如叫靠嘴編程。不過這里要先立一個(gè)判斷WorkBuddy 寫 VBA 的價(jià)值不在把代碼寫得多漂亮而在把門檻從「學(xué)會(huì) VBA 語法」降到了「說清業(yè)務(wù)規(guī)則」。門檻降低不意味著沒有門檻真正的難度會(huì)轉(zhuǎn)移到需求表達(dá)、數(shù)據(jù)驗(yàn)證和邊界處理上。下面就用「Excel 考勤遲到統(tǒng)計(jì)」這個(gè)典型場(chǎng)景把這件事拆開講透。1. 為什么說 WorkBuddy 寫 VBA真正改變的是門檻1.1 VBA 對(duì)普通辦公用戶的門檻到底在哪里很多人一開始接觸 Excel 自動(dòng)化都是從錄制宏開始的。錄制宏可以解決「重復(fù)操作」的問題比如把一個(gè)固定格式的表格復(fù)制粘貼成另一種格式。可一旦任務(wù)里出現(xiàn)循環(huán)、條件判斷、跨工作表讀取、異常值處理錄制宏就完全不夠用了。這時(shí)候你必須手寫 VBA而手寫 VBA 要面對(duì)的不只是語法本身。VBA 的難點(diǎn)可以分成三層。第一層是語言語法比如 For Each、If、Dim、對(duì)象屬性這些其實(shí)不算特別難。真正勸退的是第二層Excel 對(duì)象模型。Workbook、Worksheet、Range、Cells、UsedRange、End(xlUp) 這些概念之間是嵌套關(guān)系不熟悉的人很容易在「到底是 Sheets(Sheet1) 還是 Worksheets(Sheet1)」這種細(xì)節(jié)上反復(fù)報(bào)錯(cuò)。第三層是調(diào)試。代碼沒有按預(yù)期跑你是查數(shù)據(jù)類型、查列號(hào)、查空值還是查區(qū)域引用新手往往不知道從哪里下手。很多辦公用戶的需求其實(shí)很簡(jiǎn)單我不想學(xué)完整套對(duì)象模型我只想把這個(gè)月的遲到情況算清楚。以前這個(gè)訴求很難滿足因?yàn)槟呐滦枨笤俸?jiǎn)單也得有人把它翻譯成 VBA。1.2 靠嘴編程真正解決的是什么靠嘴編程并不是說人完全不碰鍵盤而是指需求描述和代碼生成這兩件事被分開了。你用自然語言把統(tǒng)計(jì)規(guī)則說清楚WorkBuddy 這類對(duì)話式編程助手負(fù)責(zé)把規(guī)則翻譯成 VBA。它的工作方式非常像你旁邊坐了一個(gè)熟悉 Excel 對(duì)象模型的同事你說「幫我統(tǒng)計(jì)每天早上 9 點(diǎn)以后打卡的員工按人匯總遲到次數(shù)輸出一個(gè)新表」他寫完代碼后你試運(yùn)行發(fā)現(xiàn)問題再繼續(xù)改。這件事真正改變的是響應(yīng)速度。以前從需求到 VBA 代碼中間要有一個(gè)人完成「理解需求 設(shè)計(jì)算法 翻譯成語法 調(diào)試」四個(gè)環(huán)節(jié)。現(xiàn)在前兩步還是人來做第三步交給模型調(diào)試變成人機(jī)協(xié)作。于是一個(gè)完全沒系統(tǒng)學(xué)過 VBA 的人也有機(jī)會(huì)在半小時(shí)內(nèi)得到一份可用的統(tǒng)計(jì)宏。身邊有不少人都在問這類工具怎么安裝、怎么用也有不少人在搜 VBA 入門教程。這些問題的背后是同一個(gè)痛點(diǎn)不是專業(yè)程序員卻被 Excel 重復(fù)勞動(dòng)困住的人。1.3 它沒有解決什么這里必須說清楚邊界?？孔炀幊探档偷氖菍懘a的門檻但沒有降低「確認(rèn)代碼對(duì)不對(duì)」的責(zé)任。你還是要知道代碼大概做了什么至少能看懂關(guān)鍵幾行它讀取了哪個(gè)工作表、判斷條件是哪一個(gè)字段、輸出寫到哪里。如果完全不管代碼邏輯拿到代碼就跑輕則結(jié)果少算幾行重則覆蓋原始數(shù)據(jù)。尤其是在考勤、工資這類涉及員工利益的表里出錯(cuò)的影響比「代碼寫不出來」大得多。2. 用 WorkBuddy 完成考勤遲到統(tǒng)計(jì)一次完整實(shí)操鏈路2.1 動(dòng)手前先確認(rèn)三件事文件格式、宏權(quán)限、運(yùn)行環(huán)境第一件事文件格式。VBA 宏不能保存在默認(rèn)的 .xlsx 文件里。你至少要先把工作簿另存為 .xlsm啟用宏的工作簿或 .xlsb二進(jìn)制工作簿否則保存時(shí)宏會(huì)丟失白忙一場(chǎng)。第二件事宏權(quán)限。Excel 默認(rèn)可能禁用宏。你可以在「信任中心」里設(shè)置宏安全級(jí)別更穩(wěn)妥的做法是把工作簿放到受信任位置然后從那里打開。這里有個(gè)底線原則不要運(yùn)行任何你不清楚來源、不清楚功能的宏。AI 生成的代碼也不能例外。第三件事運(yùn)行環(huán)境。用 Excel 和用 WPS 處理 VBA體驗(yàn)不完全一樣。WPS 通常需要單獨(dú)安裝 VBA 支持組件而且部分對(duì)象模型行為、函數(shù)兼容性有差異。如果你是在 WPS 環(huán)境里跑生成代碼之前最好先和 WorkBuddy 說明「運(yùn)行環(huán)境是 WPS 表格」減少后來的調(diào)整成本。新版本 WPS 也有自己的 JS 加載項(xiàng)方案但和 VBA 不是同一套代碼體系遷移成本并不低。如果你還沒安裝 WorkBuddy還需要先完成安裝、登錄和模型配置。不同版本的安裝入口和模型選擇會(huì)有差異實(shí)際操作以官方文檔和當(dāng)前界面為準(zhǔn)。不要隨便從網(wǎng)上復(fù)制一段沒看懂的 VBA 就運(yùn)行尤其是涉及文件刪除、郵件發(fā)送、外部連接、修改原始數(shù)據(jù)的操作。先用副本測(cè)試確認(rèn)邏輯后再放到正式文件里。2.2 把需求說成一段「AI 能聽懂」的輸入說明很多人第一次用這類工具只說一句「幫我統(tǒng)計(jì)遲到」這是不夠的?？记诒黹L(zhǎng)什么樣、哪一列是時(shí)間、遲到標(biāo)準(zhǔn)是什么、結(jié)果輸出到哪里這些信息缺一個(gè)生成的代碼就可能跑錯(cuò)方向。我建議按下面這張表組織需求描述維度要提供的信息例子數(shù)據(jù)表結(jié)構(gòu)工作表名、表頭、列順序表名「考勤明細(xì)」B 列姓名C 列上班打卡時(shí)間數(shù)據(jù)樣例貼兩到三行真實(shí)數(shù)據(jù)的脫敏版本張三 2025-06-02 08:52判定規(guī)則遲到的具體標(biāo)準(zhǔn)上班打卡時(shí)間大于 9:00:00 算遲到特殊規(guī)則缺卡、請(qǐng)假、周末、節(jié)假日怎么處理缺卡不計(jì)入遲到但單獨(dú)標(biāo)記輸出要求輸出到哪、要匯總還是明細(xì)新建「遲到統(tǒng)計(jì)」表按人匯總次數(shù)另附明細(xì)一個(gè)比較完整的描述可以是我的「考勤明細(xì)」表里A 列是日期B 列是姓名C 列是上班打卡時(shí)間從第 2 行開始有數(shù)據(jù)。請(qǐng)幫我寫一段 VBA每天上班打卡時(shí)間晚于 9:00:00 算遲到統(tǒng)計(jì)每個(gè)人總共遲到幾次并把「姓名、遲到次數(shù)」寫入新工作表「遲到匯總」同時(shí)把遲到記錄寫入「遲到明細(xì)」。如果 C 列為空跳過這一行不參與統(tǒng)計(jì)。你會(huì)發(fā)現(xiàn)這段話沒有用任何 VBA 關(guān)鍵詞但它已經(jīng)是模型生成代碼所需的完整輸入。你說得越具體生成的第一版代碼就越接近可用狀態(tài)。2.3 生成代碼后的落地方式與首次驗(yàn)證拿到代碼后把它放進(jìn) VBA 模塊里運(yùn)行。常規(guī)路徑是按 AltF11 打開 VBA 編輯器插入模塊粘貼代碼回到 Excel 后用 AltF8 打開宏列表執(zhí)行。下面是這類統(tǒng)計(jì)任務(wù)常見的代碼骨架我標(biāo)注為示意結(jié)構(gòu)。實(shí)際生成結(jié)果會(huì)因表結(jié)構(gòu)不同而調(diào)整不要照抄后直接用于生產(chǎn)Sub 統(tǒng)計(jì)遲到() Dim ws As Worksheet Dim outWs As Worksheet Dim i As Long Dim lastRow As Long Dim 遲到閾值 As Date 閾值和表名建議寫成常量方便每月調(diào)整 遲到閾值 TimeValue(09:00:00) Set ws ThisWorkbook.Worksheets(考勤明細(xì)) 新建輸出表避免覆蓋原始數(shù)據(jù) Set outWs ThisWorkbook.Worksheets.Add(After:ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)) outWs.Name 遲到統(tǒng)計(jì) lastRow ws.Cells(ws.Rows.Count, C).End(xlUp).Row 從第 2 行開始循環(huán)第 2 列姓名第 3 列打卡時(shí)間 For i 2 To lastRow If ws.Cells(i, 3).Value And IsDate(ws.Cells(i, 3).Value) Then If ws.Cells(i, 3).Value 遲到閾值 Then 這里寫入?yún)R總邏輯和明細(xì)邏輯 Debug.Print ws.Cells(i, 2).Value 遲到時(shí)間 ws.Cells(i, 3).Value End If End If Next i MsgBox 統(tǒng)計(jì)完成請(qǐng)檢查輸出表 End Sub這段代碼里有兩個(gè)地方值得留意一是用IsDate判斷 C 列能不能被當(dāng)成時(shí)間解析避免文本格式混進(jìn)來二是用Debug.Print在立即窗口打印結(jié)果方便你核對(duì)邏輯而不是直接寫一堆你自己都拿不準(zhǔn)的記錄。首次驗(yàn)證一定要用副本數(shù)據(jù)。我的建議是復(fù)制原始考勤表只保留最近一周的記錄文件名改成「測(cè)試用」然后在這個(gè)文件里運(yùn)行代碼。這樣即使代碼有誤也不會(huì)影響正式數(shù)據(jù)。2.4 第一次調(diào)試從哪里開始如果運(yùn)行后報(bào)錯(cuò)或者結(jié)果跟你手動(dòng)統(tǒng)計(jì)不一致先別急著讓模型整段重寫。你自己先走一遍排查這樣溝通效率最高。常見的情況按順序排查報(bào)錯(cuò)信息是什么是「下標(biāo)越界」還是「類型不匹配」先把完整報(bào)錯(cuò)文本記下來。列號(hào)是不是對(duì)的你描述里說 C 列是打卡時(shí)間但代碼里用的是Cells(i, 3)這兩個(gè)必須對(duì)應(yīng)。時(shí)間格式是不是文本很多考勤系統(tǒng)導(dǎo)出的時(shí)間看起來是 08:52實(shí)際在 Excel 里是文本。文本和日期比較會(huì)出錯(cuò)需要先用TimeValue或CDate轉(zhuǎn)換。數(shù)據(jù)范圍有沒有包含表頭如果從第 1 行開始循環(huán)表頭也可能被當(dāng)成數(shù)據(jù)。有沒有空行、合并單元格、隱藏行這些會(huì)讓End(xlUp)判斷出錯(cuò)的記錄。你把具體現(xiàn)象描述給 WorkBuddy比如「運(yùn)行后提示類型不匹配C 列可能是文本格式我該怎么處理」比直接說「代碼不對(duì)重新生成」有效得多。這也是靠嘴編程時(shí)代里最值得練的一個(gè)習(xí)慣描述現(xiàn)象而不是發(fā)泄情緒。3. 決定統(tǒng)計(jì)結(jié)果的是業(yè)務(wù)規(guī)則不是代碼3.1 考勤統(tǒng)計(jì)里最容易出錯(cuò)的規(guī)則點(diǎn)代碼只是把規(guī)則翻譯成機(jī)器能執(zhí)行的東西。規(guī)則本身如果含糊代碼再對(duì)也沒用?？记谶t到統(tǒng)計(jì)這個(gè)場(chǎng)景里有幾個(gè)坑非常典型。第一個(gè)是遲到閾值。9 點(diǎn)上班但有的公司有 5 分鐘寬限期9:05 之前不算遲到。不寫清楚AI 只能按最常見理解處理。第二個(gè)是缺卡。有人早上沒打卡有人只打了上班卡沒打下班卡。缺卡通常不應(yīng)該簡(jiǎn)單記為遲到最好單獨(dú)標(biāo)記讓人去核對(duì)補(bǔ)