- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
本帖最後由 GBKEE 於 2011-5-20 06:52 編輯
回復 25# vpower
Private Sub XXXXCommandButton1_Click() 還原成 Private Sub CommandButton1_Click()
這段程式碼中 保留紅色部分 刪掉其餘
If S <> "" Then
With Sheet1.WindowsMediaPlayer1 '加入MediaPlayer播放音樂
.URL = "D:\數羊歌.MP3" '請修改音樂檔案
.Visible = False
.Controls.Play '播放音樂
MsgBox S, , Format(Now, "dddddd ttttt")
.Controls.Stop '關閉音樂
End With
End If
vbNewLine 或 Chr(10) '加入空一行
Sub 事件() 已修改 請複製套入檔案中- Private Sub 事件()
- Dim TheDay#, Msg$, J1%, S$, Hh$, Mm$, Ss$, Form_Hight%
- Dim H%
- Me.Caption = Format(Now, "dddddd ttttt")
- For J1 = 2 To Sheets("Sheet1").[C65536].End(xlUp).Row
- If Range("C" & J1) <> "" And IsDate(Range("C" & J1)) Then
- TheDay = Now - Range("C" & J1).Value: Msg = " 時間 已過"
- If Range("C" & J1) >= Now Then TheDay = Range("C" & J1) - Now: Msg = " 時間 還有"
- If Abs(Int(TheDay)) > 0 Then
- Mm = Format(Minute(TheDay), "00分鐘")
- Ss = Format(Second(TheDay), "00秒")
- Hh = Abs(Int(TheDay)) * 24 + Hour(TheDay) & "小時" + Mm + Ss
- Else
- Hh = Format(TheDay, "hh小時mm分鐘ss秒")
- Hh = Replace(Hh, "00小時", "")
- End If
- Hh = Replace(Replace(Hh, "00分鐘", ""), "00秒", "")
- S = IIf(S = "", "", S & vbNewLine) & "距離 " & Sheets("Sheet1").Range("A" & J1) & Msg & Hh & vbNewLine '加入空一行
- Form_Hight = Form_Hight + 2
- End If
- Next
- H = 12
- With Me
- .Label1.Caption = S
- .Label1.Height = H * Form_Hight + 5
- .Height = .Label1.Height + (H * 2 + 15)
- End With
- If S = "" Then Unload Me: Exit Sub
- End Sub
|
|
發表於 2011-5-19 17:49
| 
