Question

VBA实现打开EXCEL时，C列中某单元格日期等于当前日期时，弹窗提醒

VBA实现打开EXCEL时，C列中某单元格日期等于当前日期时，弹窗提醒

Answer 1

使用VBA即可，代码如下：

Private Sub Workbook_Open()
Dim my_Range As Range
For Each my_Range In Worksheets(1).UsedRange
If my_Range.Column = 3 And my_Range = Date Then
MsgBox "到期了"
End If
Next
End Sub

追问

感谢大侠，另外 在弹窗中增加显示为“第几行到期了”，和到期行上焦点，应该怎么改下呢

追答

Private Sub Workbook_Open()
Dim my_Range As Range
For Each my_Range In Worksheets(1).UsedRange
If my_Range.Column = 3 And my_Range = Date Then
my_Range.Offset(-1, 0).Select
MsgBox my_Range.Address & "到期了"
End If
Next
End Sub

追问

大侠，提示窗显示的是“$C$3到期了” ，怎么只显示数字3呢