跳出提醒視窗

coafort

請問各位大大
a1輸入日期
a2輸入跳出視窗內容
程式開啟後，如果a1是今天的日期就會跳出a2內容的視窗
請問各位大大這該怎麼寫呢？
謝謝

Andy2483

回復 1# coafort


    謝謝前輩發表此主題
後學藉此帖練習字典與儲存格集Union(),學習方案如下,請前輩參考

執行前:

下載 (78.82 KB)

2023-4-7 08:56

執行結果:

下載 (110.15 KB)

2023-4-7 08:57

Option Explicit
Sub TEST()
Dim Y, xR As Range, Ra As Range, xD
Set Y = CreateObject("Scripting.Dictionary")
Set xR = ActiveSheet.UsedRange
For Each Ra In xR.SpecialCells(2)
   On Error Resume Next
   If IsDate(CDate(Ra)) = False Then GoTo i01
   On Error GoTo 0
   xD = CDate(Ra) & ""
   If Not Y.Exists(xD) Then
      Set Y(xD) = Ra
      Else
      Set Y(xD) = Union(Y(xD), Ra)
   End If
   
i01:
Next
If Not Y.Exists(Date & "") Then GoTo i02
For Each Ra In Y(Date & "").Offset(1)
   MsgBox Ra
Next
Application.Goto Y(Date & "").Offset(1)
i02:
Set Y = Nothing: Set xR = Nothing: Set Ra = Nothing
End Sub

coafort

回復  coafort


    謝謝前輩發表此主題
後學藉此帖練習字典與儲存格集Union(),學習方案如下,請前輩參 ...
Andy2483 發表於 2023-4-7 08:58

非常謝謝大大的支援
請問大大有辦法寫成不需要巨集按鈕
程式一開啟就會自動執行嗎
謝謝大大

Andy2483

回復 3# coafort


    謝謝前輩回復
Q:程式一開啟就會自動執行嗎
這是指開啟此檔案的意思嗎?

==========================================
Option Explicit
Private Sub Workbook_Open()
Call TEST
End Sub

下載 (33.46 KB)

2023-4-7 14:38

coafort

回復  coafort


    謝謝前輩回復
Q:程式一開啟就會自動執行嗎
這是指開啟此檔案的意思嗎?

===== ...
Andy2483 發表於 2023-4-7 14:27

報告大大
開啟ETF.xlsm就會自動跳出
謝謝大大