其实很简单,注意,使用以下代码时,请用没有重要数据的表试验,否则重要内容会被删除
首先,在A1中输入=2010-1-1
然后,在VB窗口中的thisworkbook中输入代码
Private Sub Workbook_Open()
Run "作废"
End Sub
然后插入模块,
在模块中输入
Sub 作废()
If Cells(1, 1) >= "2010-1-1" Then
Range("B1:G100").Select
Selection.FormulaR1C1 = "到期"
End If
End Sub
只能用VBA代码。
在打开文件的同时,判断当前日期与你设定的日期,到达设置日期后删除所有公式。
补充:
excel只能判断电脑当前时间。如果在未到期前,当前时间改的提前了,你就能多使用一段时间。但是如果已经到期,并且软件中有锁死的设置,那就不行了。
这需要用VBA来解决或者安装功能扩展插件,excel本身没有此功能