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

核心效果預覽：

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

手把手實現“開掛”合同管理：

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

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

想象你的表格應該是這樣：

劃重點：結構清晰、數據規(guī)范是成功的第一步！DeepSeek需要精準定位日期列。

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

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

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

二、告知表格結構：務必！務必！告訴DeepSeek你的表格關鍵信息在哪一列！比如：

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

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

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

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

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

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

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

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

總結：

DeepSeek + Excel VBA = 合同管理“免忘金牌”這套方法的核心優(yōu)勢在于“開箱即提醒”的自動化體驗。DeepSeek 完美解決了寫VBA的門檻問題，你只需清晰描述需求和數據結構?；◣追昼姴渴鹨淮?，就能徹底告別合同逾期的煩惱，讓管理更省心、更專業(yè)！趕緊把這個方法分享給負責合同的小伙伴吧！從此，你就是辦公室的“效率擔當”了。

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

最新評論