返回列表 上一主題 發帖

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

vpower

帖子
155 
主題
56 
精華
0 
積分
242 
點名
0  
作業系統
WinXP 
軟體版本
專業版2002 
閱讀權限
0 
註冊時間
2010-5-29 
最後登錄
2011-7-18 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2011-6-8 15:23 | 只看該作者

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

是否可以將下列程式改成欄位時間到了就出現提示?
  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版主所製作
收藏 分享

        靜思自在 : 謊言像一朵盛開的鮮花，外表美麗，生命短暫。
返回列表 上一主題