能否幫我看看如何將此程式更改成以小時分鐘秒數計算(已解決) - Excel程式區

[發問] 能否幫我看看如何將此程式更改成以小時分鐘秒數計算(已解決)

vpower 發短消息加為好友 vpower 當前離線 UID 383 帖子 155 主題 56 精華 0 積分 242 金錢 242 點名 0 作業系統 WinXP 軟體版本專業版2002 閱讀權限 0 在線時間 64 小時註冊時間 2010-5-29 最後登錄 2011-7-18 禁止發言帖子 155 主題 56 精華 0 積分 242 點名 0 作業系統 WinXP 軟體版本專業版2002 閱讀權限 0 註冊時間 2010-5-29 最後登錄 2011-7-18	5^# 跳轉到 » 發表於 2011-5-13 21:25 \| 只看該作者回復 4# GBKEE 真是萬分感謝,我看了一下用原來那個天數的還是不會修改那個BUG,再麻煩您一下,感恩! 問題一: For J1 = 2 To Sheets("Sheet1").[C65536].End(xlUp).Row I1 = DateDiff("D", Date, Range("C" J1)) If I1 < 0 Then S1 = "已經超過了" " " & (-1) * (I1) & " 天" If S1 <> "" Then S2 = S2 "距離" & " " & Sheets("Sheet1").Range("A" & J1) & " 的時間" & S1 & vbNewLine S1 = "": I1 = 0 Next If S2 <> "" Then MsgBox S2 S2 = "" 複製代碼 ------------------------------------------------------------------------------------------------------------------ 問題二: 然後如果是這個小時分鐘秒數的新增一個IF判斷, 然後我新增一個TextBox,依照我填入的數值X, 讓時間到前X分鐘提醒填入的X和時間到前X分鐘的X是同一個.

	TOP

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2011-5-13 14:05 | 只看該作者

回復 3# vpower
那是多餘的,可刪掉.

Private Sub CommandButton1_Click()
Dim TheDay#, Msg$, J1%, S$, H$
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 = " 時間還有"
H = IIf(Abs(Int(TheDay)) > 0, Abs(Int(TheDay)) & "天", "") & Format(TheDay, "hh小時:mm分鐘:ss秒")
H = Replace(Replace(Replace(H, "00小時:", ""), "00分鐘:", ""), ":00秒", "")
S = IIf(S = "", "", S & vbNewLine) & "距離 " & Sheets("Sheet1").Range("A" & J1) & Msg & H
End If
Next
If S <> "" Then MsgBox S, , Format(Now, "dddddd ttttt")
End Sub

複製代碼

vpower 發短消息加為好友 vpower 當前離線 UID 383 帖子 155 主題 56 精華 0 積分 242 金錢 242 點名 0 作業系統 WinXP 軟體版本專業版2002 閱讀權限 0 在線時間 64 小時註冊時間 2010-5-29 最後登錄 2011-7-18 禁止發言帖子 155 主題 56 精華 0 積分 242 點名 0 作業系統 WinXP 軟體版本專業版2002 閱讀權限 0 註冊時間 2010-5-29 最後登錄 2011-7-18	3^# 發表於 2011-5-13 13:39 \| 只看該作者回復 2# GBKEE 這位大大真的是又快又好..非常感謝.. 可否再請教一個問題? D是做什麼用的呢? 是否可以刪除呢? 還有發現一個小BUG, A1=約會 C1=時間 A2=吃飯 C2=空值 A3=練習 C3=時間當有空值的時候,系統依然會顯示,而且會出現已超過4萬多天的BUG,我該如何讓它不顯示呢? -------------------------------------------------------------------------------------------------------------------------------- 如果我要增加一個判斷,讓他在還有5分鐘的時候提醒,而且在開啟MSG視窗時可以出現一小段音效,不知道是否有辦法呢?

	TOP

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2011-5-13 11:19 | 只看該作者

本帖最後由 GBKEE 於 2011-5-13 11:22 編輯

回復 1# vpower

Private Sub CommandButton1_Click()
Dim TheDay#, Msg$, J1%, S$, D$, H$
For J1 = 2 To Sheets("Sheet1").[C65536].End(xlUp).Row
TheDay = Now - Range("C" & J1).Value: Msg = " 時間已過"
If Range("C" & J1) >= Now Then TheDay = Range("C" & J1) - Now: Msg = " 時間還有"
H = IIf(Abs(Int(TheDay)) > 0, Abs(Int(TheDay)) & "天", "") & Format(TheDay, "hh小時:mm分鐘:ss秒")
H = Replace(Replace(H, "00小時:", ""), "00分鐘:", "")
S = IIf(S = "", "", S & vbNewLine) & "距離 " & Sheets("Sheet1").Range("A" & J1) & Msg & H
Next
If S <> "" Then MsgBox S, , Format(Now, "dddddd ttttt")
End Sub

複製代碼

靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。