使用VBA即可，代码如下：
Private Sub Workbook_Open()Dim my_Range As RangeFor Each my_Range In Worksheets(1).UsedRangeIf my_Range.Column = 3 And my_Range = Date ThenMsgBox "到期了"End IfNextEnd Sub
