求助VBA实现到期提醒

excel

如果你想要一打开excel就自动判断，那就在VBA里新建个模块，然后把下面这段代码粘进去：

Sub auto_open() With Sheets(sheet1) Dim tToday As Date tToday = Date Dim rRan As Range Set rRan = .Cells(1, 1) Do While rRan.Value .Rows(rRan.Row).Interior.Pattern = xlNone Dim strTemp As String strTemp = rRan.Offset(0, 1).Value If tToday = rRan.Value And rRan.Offset(0, 1) = Then .Rows(rRan.Row).Interior.Pattern = xlSolid .Rows(rRan.Row).Interior.Color = 65535 End If Set rRan = rRan.Offset(1, 0) Loop End WithEnd Sub

这样应该就能实现你的需求了。不过说实话，我没太搞明白你具体要干啥，我这段代码是根据我理解写的——大致就是检查A列的日期是不是已经过期（小于等于今天），同时看B列有没有填写内容。 实现方式其实有很多种，我这个是最方便写的那种，你要有啥别的想法可以自己改，比如把offset换成别的引用方式啥的都行。另外提醒一下，这段VBA代码是在excel 2007环境下写的，如果你用的是excel 2003，改颜色那部分语法可能会有点不一样，建议你用宏录制功能试试颜色代码。