返回列表 上一主題 發帖

跳出提醒視窗

coafort

帖子
156 
主題
31 
精華
0 
積分
235 
點名
0  
作業系統
win7 
軟體版本
excel 2003 
閱讀權限
20 
註冊時間
2018-1-5 
最後登錄
2024-3-8 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2023-4-6 11:34 | 只看該作者

跳出提醒視窗

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

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1425 
主題
40 
精華
0 
積分
1449 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-4-16 
2#
發表於 2023-4-7 08:58 | 只看該作者
回復 1# coafort


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

執行前:


執行結果:



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
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

coafort

帖子
156 
主題
31 
精華
0 
積分
235 
點名
0  
作業系統
win7 
軟體版本
excel 2003 
閱讀權限
20 
註冊時間
2018-1-5 
最後登錄
2024-3-8 
3#
發表於 2023-4-7 14:17 | 只看該作者
回復  coafort


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


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

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1425 
主題
40 
精華
0 
積分
1449 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-4-16 
4#
發表於 2023-4-7 14:27 | 只看該作者
本帖最後由 Andy2483 於 2023-4-7 14:38 編輯

回復 3# coafort


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

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

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

coafort

帖子
156 
主題
31 
精華
0 
積分
235 
點名
0  
作業系統
win7 
軟體版本
excel 2003 
閱讀權限
20 
註冊時間
2018-1-5 
最後登錄
2024-3-8 
5#
發表於 2023-4-7 15:53 | 只看該作者
回復  coafort


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

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


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

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題