Private Sub Workbook_Open() '把代碼放在Workbook級的事件中，當工作簿打開（OPEN）就立即執行
n = [c2].End(xlDown).Row ‘C列最后一個合同到期日數據的單元格行號，便于你可以增加記錄
For i = 1 To n ’開始循環
If Range("c" & i).Value < Date Then MsgBox Range("c" & i).Offset(0, -2) & "的合同已經到期"
'如果C列某單元格的值小于當天日期，則提示到期；Range("c" & i).Offset(0, -2) 是指C列某單元格
向左數2格，即姓名，這樣就把“姓名”和“合同到期時間”相互對應了
Next
End Sub
