[已解决]怎么使表格内的函数公式在一定时间内自动消除掉

xiaoda

怎么使表格内的函数公式在一定时间内自动消除掉，

最佳答案

月排行榜 / 总排行榜

zyouong

2012-10-12 13:58

Private Sub Workbook_Open()
If Now() > 41194 Then

Range("E4:T150").Select
    Range("E4:T150").Copy
    Range("E4:T150").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    End If
End Sub

有个错误更正一下。

跳转到最佳答案楼层

xiaoda

怎么没人回答呢，是不是不能实现？

lisachen

用VBA可以实现           

xiaoda

请版主指点，我要的是使整个工作溥的函数公式在30天自动消除。请指点，谢谢！

zyouong

说是说不清楚的，上传附件帮你弄好。

xiaoda

好的

xiaoda

请你帮做做，谢谢！！

qjsu

xiaoda 发表于 2012-10-12 09:27
请你帮做做，谢谢！！

请问你想怎么确定公式消失的日期？是固定的不？

zyouong

调查表.rar (9.77 KB, 下载次数: 9)

2012-10-12 13:43 上传

点击文件名下载附件 ,10月13日以后打开公式就没有了。

zyouong

Private Sub Workbook_Open()
If Now() > 41194 Then

Range("E4:T150").Select
    Range("E4:T150").Copy
    Range("E4:T150").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    End If
End Sub

有个错误更正一下。