1、首先打开Excel表，然后点击【开发工具-VB编辑器】
2、打开VB编辑器，点击【插入-模块】
3、双击刚才创建的模块，然后输入
Sub 限时()
If Date > #2/28/2020# Then
End If
End Sub
表示如果当当下时间大于有效期时候
4、 MsgBox "有效期已过"
表示如果超过有效期，那么当运行VBA时候就会弹出一个提示对话框，写着“有效期已过”
5、Exit Sub
则表示如果超过有效期就会自动退出VBA程序
6、最后当运行VBA时候，如果当下时间超过有效期，那么就会弹出提示对话框
1、1、首先点击【开发工具-VB编辑器】
2、其次打开VB编辑器，点击【插入-模块】
3、最后输入关于if的公式，并且附有exit sub 的语句
