Excel VBA如何设置有效期

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 的语句