请教大神Excel到期提醒功能怎么做。目前我在管理一些项目，每个项目有一个时间，现在我需要打开表格

发布网友发布时间：2022-05-02 16:40

共1个回答

热心网友时间：2023-10-09 00:05

'按 Alt + F11 打开 VBE，在左侧的工程资源管理器中双击 ThisWorkbook，将下列代码复制到右侧的代码编辑器中，关闭 VBE，高版本 Excel 另存为 xlsm 格式，宏安全性设置为允许运行所有宏。
Private Sub Workbook_Open()
    Dim i, UsedRow As Integer, PointDate, Today As Date
    UsedRow = ActiveSheet.UsedRange.Rows.Count
    Today = Format(Now, "yyyy/m/d")
    For i = 1 To UsedRow
        If Range("C" & i).Value = Today Then
            MsgBox Range("A" & i).Value & "已到期"
        End If
    Next
End Sub

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