生日和纪念日弹窗提醒：Excel 宏轻松实现159

在繁忙的生活中，有时我们可能会忘记重要的生日或纪念日。为了避免这些尴尬的情况，我们可以使用 Excel 宏来创建自动的生日和纪念日提醒弹窗。通过这种方式，您将永远不会错过任何重要日期，并可以在第一时间向亲朋好友表示祝贺。

创建数据列表

第一步是创建一个包含所有生日和纪念日的列表。这个列表可以放在 Excel 工作簿的单独工作表中。列表应包括以下列：

- 名称

- 生日/纪念日日期

- 提醒类型（例如：生日、结婚纪念日Anniversary、工作纪念日）

示例数据如下：| 名称 | 生日/纪念日日期 | 提醒类型 |
|---|---|---|
| John Doe | 1990-01-01 | Birthday |
| Jane Doe | 1992-02-14 | Anniversary |
| Michael Jones | 2000-03-08 | Work Anniversary |

创建 Excel 宏

创建数据列表后，就可以编写一个 Excel 宏来自动检测即将到来的生日和纪念日并显示一个提醒弹窗。以下是创建宏的步骤：1. 转到“开发人员”选项卡（如果未显示，请转到“文件”>“选项”>“自定义功能区”>“开发人员”）。
2. 单击“宏”按钮。
3. 在“宏名”框中输入宏的名称（例如：BirthdayReminder）。
4. 单击“创建”按钮。
5. 将以下代码复制并粘贴到 VBA 编辑器中：
```vba
Sub BirthdayReminder()
' 获取当前日期
Dim Today As Date
Today = Date
' 循环遍历生日和纪念日数据列表
Dim i As Integer
For i = 2 To Range("A" & ).End(xlUp).Row
' 获取名称、日期和类型
Dim Name As String
Name = Range("A" & i).Value
Dim DateValue As Date
DateValue = Range("B" & i).Value
Dim Type As String
Type = Range("C" & i).Value
' 检查日期是否在未来 7 天内
Dim Diff As Integer
Diff = DateValue - Today
If Diff >= 0 And Diff