是否可以製作一個時間到就會出現提醒視窗和音樂的程式?

vpower

是否可以將下列程式改成欄位時間到了就出現提示?

1. Private Sub CommandButton1_Click()
   
2.     Dim TheDay#, Msg$, J1%, S$, Hh$, Mm$, Ss$
   
3.     For J1 = 2 To Sheets("Sheet1").[C65536].End(xlUp).Row
   
4.         If Range("C" & J1) <> "" And IsDate(Range("C" & J1)) Then
   
5.             TheDay = Now - Range("C" & J1).Value: Msg = " 時間 已過"
   
6.             If Range("C" & J1) >= Now Then TheDay = Range("C" & J1) - Now: Msg = " 時間 還有"
   
7.             If Abs(Int(TheDay)) > 0 Then
   
8.               Mm = Format(Minute(TheDay), "00分鐘")
   
9.               Ss = Format(Second(TheDay), "00秒")
   
10.               Hh = Abs(Int(TheDay)) * 24 + Hour(TheDay) & "小時" + Mm + Ss
    
11.             Else
    
12.                 Hh = Format(TheDay, "hh小時mm分鐘ss秒")
    
13.                 Hh = Replace(Hh, "00小時", "")
    
14.             End If
    
15.             Hh = Replace(Replace(Hh, "00分鐘", ""), "00秒", "")
    
16.             S = IIf(S = "", "", S & vbNewLine) & "距離 " & Sheets("Sheet1").Range("A" & J1) & Msg & Hh
    
17.         End If
    
18.     Next
    
19.     If S <> "" Then
    
20.         With Sheet1.WindowsMediaPlayer1     '加入MediaPlayer播放音樂
    
21.             .URL = "D:\數羊歌.MP3"  '請修改音樂檔案
    
22.             .Visible = False
    
23.             .Controls.Play          '播放音樂
    
24.             MsgBox S
    
25.             .Controls.Stop          '關閉音樂
    
26.         End With
    
27.     End If
    
28. End Sub

複製代碼

以上轉自於http://forum.twbts.com/viewthrea ... p;extra=&page=2的GBKEE版主所製作