excel表中设制剩余有效期

发布网友发布时间：2022-04-25 06:00

共5个回答

热心网友时间：2022-06-27 01:30

ALT+F11打开VBA编辑器，，在thisworkbook加入一段代码，使其对当前如期进行判断，如果当前日期大于你所设置的有效期终止日期，则自杀！具体代码：

Private Sub Workbook_Open()

Call ETime

End Sub

Sub ETime()

Dim d, e As Date

e = #1/10/2020 7:00:00 AM#

d = Now()

If d > e Then Call KillThisWorkbook

End Sub

Sub KillThisWorkbook()

With ThisWorkbook

Application.DisplayAlerts = False

.Saved = True

.ChangeFileAccess xlReadOnly

Kill .FullName

.Close

End With

End Sub

文档自杀的意思是直接删除。因为excel是运行在内存中的，当文档被删除后，内存中的数据也会被删除。

可以按Alt+F11自己修改自杀日期。

热心网友时间：2022-06-27 01:30

首先你应该先把生产日期的单元格设置成标准的日期格式，然后在D2列单元格中填写公式“=(today()-A2)/C2”,然后将D列单元格属性中的数据格式设置成百分数，保留几位小数你自己设置。

热心网友时间：2022-06-27 01:30

剩余有效期是剩余天数除以保质期的意思吧
在D2输入公式
=TEXT(1-DATEDIF(SUBSTITUTE(A2,".","-"),SUBSTITUTE(B2,".","-"),"d")/C2,"0.00%")

热心网友时间：2022-06-27 01:31

=(--substitutle（A2,".‘，“-”）+c2-(--substitutle（B2,".‘，“-”）))/c2,设置单元格格式为百分比就好了.

热心网友时间：2022-06-27 01:32

将两个日期修改为日期格式后，在D2单元格输入函数公式
=TEXT(1-(B2-A2)/C2,"0.00%")