EXCEL自动弹窗提醒

=========================================================================

在Excel中，按下　Ctrl+F11　组合键，进入到VBA代码编写窗口，然后，将如下代码保存到您的VBA窗口中，就完成了：

　　Private Sub Workbook_Open()

　　For i = 2 To Sheet1.UsedRange.Rows.Count

　　　If (Sheet1.Cells(i, 2).Value = Date) Then

　　　　Sheet1.Cells(i, 3).Value = "该合同到期拉"

　　　　If (Day(Date) = Day(Sheet1.Cells(i, 2).Value)) Then

　　　　　MsgBox (Sheet1.Cells(i, 2).Value & "此合同已到期")

　　　　End If

　　　Else

　　　　Sheet1.Cells(i, 3).Value = ""

　　　End If

　　Next i

　　End Sub

Private Sub Workbook_Open()
Dim arr, i%, d
d = Date
arr = Range("A1:A10").Value
For i = 1 To UBound(arr, 1)
If arr(i, 1) = d Then
MsgBox "您有一个安排"
Exit Sub
End If
Next
End Sub

代码放哪里不用教你了吧

只有VBA可以实现弹窗，你用任何公式都不可能达到弹窗的效果的。

private sub workbook_open()

end sub

请问楼主你是怎么解决的？