表格设置了很多公式，想让表格到期（具体到时、分、秒）后自动销毁公式，请问这样的ExcelVBA宏代码怎么写

发布网友发布时间：2022-05-04 13:39

共2个回答

热心网友时间：2023-10-22 20:59

下面的VBA代码就可以：

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Now > #6/1/2019 10:04:59 AM# Then
        Me.UsedRange.Value = Me.UsedRange.Value
    End If
End Sub

注意代码要放在工作表里面，如下图：

程序里面的#6/1/2019 10:04:59 AM# 是到期时刻，你需要适当调整，格式是：月/鈤/年时:分:秒

热心网友时间：2023-10-22 21:00

我帮你

热心网友时间：2023-10-22 20:59

下面的VBA代码就可以：

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Now > #6/1/2019 10:04:59 AM# Then
        Me.UsedRange.Value = Me.UsedRange.Value
    End If
End Sub

注意代码要放在工作表里面，如下图：

程序里面的#6/1/2019 10:04:59 AM# 是到期时刻，你需要适当调整，格式是：月/鈤/年时:分:秒

热心网友时间：2023-10-22 21:00

我帮你

热心网友时间：2023-10-22 20:59

下面的VBA代码就可以：

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Now > #6/1/2019 10:04:59 AM# Then
        Me.UsedRange.Value = Me.UsedRange.Value
    End If
End Sub

注意代码要放在工作表里面，如下图：

程序里面的#6/1/2019 10:04:59 AM# 是到期时刻，你需要适当调整，格式是：月/鈤/年时:分:秒

热心网友时间：2023-10-22 21:00

我帮你

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com

懂视IT 51dongshi.com 版权所有
Copyright © 2019-2024