excel2007 vba 自动提醒

发布网友发布时间：2022-06-02 03:56

共4个回答

热心网友时间：2023-11-19 00:55

我用VBA写了一个，你参考下吧。呵呵。效果：根据打开文件时的日期，提醒后7天的日程。

实现步骤：在【工程资源管理器】中的【thisworkbook】上双击，在弹出的代码框内写下代码：

Private Sub Workbook_open()
Dim x, i As Integer
Dim thedate As Date
Dim str As String
Dim str1 As String
xr = Cells(65535, 1).End(xlUp).Row
For i = 2 To xr Step 1
thedate = Cells(i, 1).Value
x = DateDiff("d", Now, thedate)
If x <= 7 Then str1 = Cells(i, 1) & ":" & Cells(i, 2) Else str1 = ""
str = str & Chr(10) & str1
Next
MsgBox "最近7天要做的事：" & str
End Sub

热心网友时间：2023-11-19 00:55

小建议，供参考：直接使用日程安排软件来实现

热心网友时间：2023-11-19 00:56

这个就用激活事件下面写msgbox就可以了

热心网友时间：2023-11-19 00:56

你让人家帮你写代码，别人得首先知道你的内容是怎样的才好写。