展开全部
假设A列是日期。打开excel VBA编辑器中,在workbook的open事件中添加以下代码:
Private Sub Workbook_Open()
Dim TotalRows
Dim str As String
TotalRows = Worksheets(1).UsedRange.Rows.Count
For i = 1 To TotalRows
If (Cells(i, 1) < Date) Then
str = "第" + CStr(i) + "行过期!"
MsgBox (str)
End If
Next i
End Sub
保存文件,在“工具”->“宏”->“安全性”中,把安全级设为中或者低。建议设为中。关闭文件,再打开文件后,会弹出提示框,选择启用宏,即可实现效果。
Private Sub Workbook_Open()
Dim TotalRows
Dim str As String
TotalRows = Worksheets(1).UsedRange.Rows.Count
For i = 1 To TotalRows
If (Cells(i, 1) < Date) Then
str = "第" + CStr(i) + "行过期!"
MsgBox (str)
End If
Next i
End Sub
保存文件,在“工具”->“宏”->“安全性”中,把安全级设为中或者低。建议设为中。关闭文件,再打开文件后,会弹出提示框,选择启用宏,即可实现效果。
展开全部
=工作表标签名!单元格地址
比如说:=sheet1!B5
这个是跨工作表的引用
比如说:=sheet1!B5
这个是跨工作表的引用
追问
可能我没说明白:就是我的工作表里有一列填的是日期,我想实现:在该日期到期或过期时,我打开工作表时会弹出对话框提示“到期”或“过期”。
参考资料: 百度一下
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
要想弹出提醒就得用VBA解决
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询