excel
=====================================================================在
excel中，按下 Ctrl+F11 组合键，进入到
VBA代码编写窗口，然后，将如下代码保存到您的
VBA窗口中，就完成了： Private Sub Workbook_Open() For i = 2 To Sheet1.UsedRange.Rows.Count If (Sheet1.Cells(i, 2).Value = Date) Then Sheet1.Cells(i, 3).Value = 该
合同到期拉 If (Day(Date) = Day(Sheet1.Cells(i, 2).Value)) Then MsgBox (Sheet1.Cells(i, 2).Value & 此
合同已到期) End If Else Sheet1.Cells(i, 3).Value = End If Next i End Sub 小小代码，意思意思，不成敬意，大家可以借鉴如上的代码，根据您的具体情况，稍加修改，就能满足您的工作需要了。
