EXCEL自动弹窗提醒

2025-02-23 07:25:47
推荐回答(5个)
回答1:

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

在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

 

回答2:

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

代码放哪里不用教你了吧

回答3:

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

回答4:

private sub workbook_open()

end sub

回答5:

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