還在靠人力翻合同臺(tái)賬，心驚膽戰(zhàn)怕錯(cuò)過續(xù)簽？或者手動(dòng)設(shè)置一堆條件格式，結(jié)果淹沒在花花綠綠的表格里？別慌！今天分享一個(gè)超實(shí)用大招：用DeepSeek寫VBA代碼，讓你的Excel合同表“活”起來！最大亮點(diǎn)：每次打開文件，自動(dòng)彈窗告訴你哪些合同快到期了！再也不用擔(dān)心遺忘，管理效率瞬間拉滿！

核心效果預(yù)覽：

• 自動(dòng)高亮：即將過期（7天內(nèi)）的合同整行標(biāo)黃，已過期的整行標(biāo)紅，一目了然。
• 智能彈窗：打開Excel文件時(shí)，自動(dòng)彈出對話框，清晰列出所有7天內(nèi)到期的合同編號及剩余天數(shù)，想忽略都難！
• 一鍵部署：代碼由DeepSeek生成，復(fù)制粘貼即可，小白也能輕松上手。

手把手實(shí)現(xiàn)“開掛”合同管理：

第一步：打好地基 - 數(shù)據(jù)規(guī)范是王道！想讓DeepSeek寫的代碼跑得穩(wěn)，你的合同數(shù)據(jù)表必須“清爽”！記住一個(gè)黃金原則：一維表！

• 一行一合同：每條合同信息獨(dú)占一行。
• 關(guān)鍵字段不能少：至少包含 合同編號、合同開始日期、合同結(jié)束/到期日期。其他信息如客戶、金額等按需添加。
• 拒絕合并單元格：合并單元格是VBA代碼的“天敵”，務(wù)必拆分開！
• 日期格式要標(biāo)準(zhǔn)：確保開始日期和結(jié)束日期是Excel能識(shí)別的標(biāo)準(zhǔn)日期格式（如 2025-06-06 或 2025/6/6）。

想象你的表格應(yīng)該是這樣：

劃重點(diǎn)：結(jié)構(gòu)清晰、數(shù)據(jù)規(guī)范是成功的第一步！DeepSeek需要精準(zhǔn)定位日期列。

第二步：召喚“碼力” - 讓DeepSeek寫代碼！這才是最神奇的部分！你不需要懂VBA，交給DeepSeek就行！

一、清晰描述需求：打開DeepSeek聊天框，把你的要求說清楚、說詳細(xì)。越具體，生成的代碼越精準(zhǔn)！可以這樣告訴它：

請生成完整的VBA代碼，并添加必要的注釋說明關(guān)鍵步驟。”

二、告知表格結(jié)構(gòu)：務(wù)必！務(wù)必！告訴DeepSeek你的表格關(guān)鍵信息在哪一列！比如：

• 1.“合同結(jié)束日期” 在 D列
• 2.“合同編號” 在 B列
• 3.數(shù)據(jù)行從 第2行 開始
• 4.需要高亮/顯示的整行范圍是 A列到G列 (根據(jù)你的實(shí)際列數(shù)調(diào)整)
• 5.工作表名稱是 “合同管理” (替換成你的表名)

關(guān)鍵點(diǎn)：列號（字母）、工作表名、日期字段名、顯示范圍這些信息必須準(zhǔn)確無誤地提供給DeepSeek！這是代碼正確運(yùn)行的核心。

第三步：代碼現(xiàn)世 - 粘貼即用DeepSeek 很快會(huì)生成類似下面的VBA代碼（注意：以下代碼基于上述假設(shè)，你的實(shí)際列標(biāo)、表名、范圍需按你告知DeepSeek的修改！）：

Private Sub Workbook_Open()    ' 說明：此宏在工作簿打開時(shí)自動(dòng)運(yùn)行，檢查合同到期情況并提醒   
Dim ws As Worksheet    Set ws = ThisWorkbook.Sheets("合同管理") ' 替換為你的工作表名    
Dim lastRow As Long    Dim reminderMsg As String    Dim i As Long    ' 找到D列（合同結(jié)束日期）最后有數(shù)據(jù)的行    
lastRow = ws.Cells(ws.Rows.Count, "D").End(xlUp).Row    reminderMsg = "以下合同將在7天內(nèi)到期：" & vbNewLine ' 初始化提醒消息    ' 關(guān)閉屏幕更新，提高速度且避免閃爍    
Application.ScreenUpdating = False    ' 先清除A2到G最后一行的背景色 (假設(shè)數(shù)據(jù)范圍是A:G)    
ws.Range("A2:G" & lastRow).Interior.Pattern = xlNone    ' 從第2行開始循環(huán)到最后一行 (假設(shè)第1行是標(biāo)題)   
For i = 2 To lastRow        ' 確保D列單元格是日期        
If IsDate(ws.Cells(i, 4).Value) Then ' 4 代表 D列            
Dim endDate As Date            
Dim daysLeft As Long           
endDate = ws.Cells(i, 4).Value ' 獲取結(jié)束日期            
daysLeft = DateDiff("d", Date, endDate) ' 計(jì)算剩余天數(shù)（今天到結(jié)束日期的天數(shù)差）            ' 處理已過期合同 (結(jié)束日期 < 今天)            
If endDate < Date Then               
ws.Range("A" & i & ":G" & i).Interior.Color = RGB(255, 0, 0) ' 整行標(biāo)紅            ' 處理7天內(nèi)到期合同 (0 < 剩余天數(shù) <= 7) 
ElseIf daysLeft <= 7 And daysLeft >= 0 Then ' 包含今天到期 
(daysLeft=0)                
ws.Range("A" & i & ":G" & i).Interior.Color = RGB(255, 255, 0) ' 整行標(biāo)黃                ' 將信息添加到提醒消息：合同編號(B列=列2) + 剩余天數(shù)                
reminderMsg = reminderMsg & "合同編號：" & ws.Cells(i, 2).Value & _                              "（剩余" & daysLeft & "天）" & vbNewLine            
End If        
End If    Next i    ' 恢復(fù)屏幕更新   
Application.ScreenUpdating = True    ' 如果reminderMsg長度超過初始文本長度（說明有需要提醒的合同），則彈出提醒框    
If Len(reminderMsg) > Len("以下合同將在7天內(nèi)到期：" & vbNewLine) Then       
MsgBox reminderMsg, vbInformation, "合同到期提醒"    
End If
End Sub

第四步：注入“靈魂” - 部署代碼讓代碼真正生效只需幾步：

• 打開VBA編輯器：在你的Excel文件中，按 Alt + F11 (這是萬能快捷鍵！)。
• 定位代碼存放位置：
• 在左側(cè)的 工程資源管理器 (如果沒看到，按 Ctrl+R) 里，找到你的工作簿名稱 (通常是 VBAProject (你的文件名.xlsx) )。
• 雙擊下面的 ThisWorkbook 對象。這代表整個(gè)工作簿。
• 粘貼代碼：右側(cè)會(huì)出現(xiàn)一個(gè)空白代碼窗口。把DeepSeek生成的完整代碼（從 Private Sub Workbook_Open() 到 End Sub）復(fù)制粘貼進(jìn)去。
• 保存為宏文件：
• 回到Excel界面，點(diǎn)擊 文件 > 另存為。
• 在 保存類型 下拉菜單中，務(wù)必選擇 Excel 啟用宏的工作簿 (*.xlsm)。這是關(guān)鍵！普通 .xlsx 文件存不了宏。
• 保存文件。
• 啟用宏（首次打開）：
• 當(dāng)你下次打開這個(gè) .xlsm 文件時(shí)，Excel 頂部可能會(huì)有一條安全警告（黃色條），提示“已禁用宏”。
• 點(diǎn)擊 啟用內(nèi)容。只有這樣，你的自動(dòng)提醒代碼才能運(yùn)行。

大功告成！以后每次打開這個(gè)合同管理文件：

• 過期合同自動(dòng)變紅行。
• 7天內(nèi)到期合同自動(dòng)變黃行。
• 一個(gè)清晰的彈窗立刻跳出，告訴你哪些合同快到期了，還剩幾天！

總結(jié)：

DeepSeek + Excel VBA = 合同管理“免忘金牌”這套方法的核心優(yōu)勢在于“開箱即提醒”的自動(dòng)化體驗(yàn)。DeepSeek 完美解決了寫VBA的門檻問題，你只需清晰描述需求和數(shù)據(jù)結(jié)構(gòu)。花幾分鐘部署一次，就能徹底告別合同逾期的煩惱，讓管理更省心、更專業(yè)！趕緊把這個(gè)方法分享給負(fù)責(zé)合同的小伙伴吧！從此，你就是辦公室的“效率擔(dān)當(dāng)”了。

推薦閱讀：用Deepseek統(tǒng)計(jì)考勤表 只需3分鐘就夠了!

最新評論