Board logo

標題: 跳出提醒視窗 [打印本頁]
作者: coafort    時間: 2023-4-6 11:34     標題: 跳出提醒視窗

請問各位大大
a1輸入日期
a2輸入跳出視窗內容
程式開啟後，如果a1是今天的日期就會跳出a2內容的視窗
請問各位大大這該怎麼寫呢？
謝謝
作者: Andy2483    時間: 2023-4-7 08:58

回復 1# coafort


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

執行前:
[attach]36092[/attach]

執行結果:
[attach]36093[/attach]


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    時間: 2023-4-7 14:17

回復  coafort


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


非常謝謝大大的支援
請問大大有辦法寫成不需要巨集按鈕
程式一開啟就會自動執行嗎
謝謝大大
作者: Andy2483    時間: 2023-4-7 14:27

本帖最後由 Andy2483 於 2023-4-7 14:38 編輯

回復 3# coafort


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

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

[attach]36099[/attach]
作者: coafort    時間: 2023-4-7 15:53

回復  coafort


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

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


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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)