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

麻辣家族討論版版 » 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	11^# 跳轉到 » 發表於 2011-5-16 23:36 \| 顯示全部帖子回復 18# GBKEE 我該如何寫出IF判別式,設定讓他1小時或5分鐘或30秒以前提醒呢?謝謝!

	TOP

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	12^# 發表於 2011-5-17 21:27 \| 顯示全部帖子本帖最後由 vpower 於 2011-5-17 22:52 編輯回復 20# GBKEE 完全依照我的需求做出來了,真是萬分感謝. 我好像發現2個問題如下: 1.為什麼我把時間欄全部刪除,他還是會播放音樂?點選市件查看的時候也會直接播放音樂, 但是我的時間欄位全部是空值的情況下應該是判斷不會播放,只有在時間設定?小時分鐘秒鐘前播放. 2.關於設定時間?小時,分鐘,秒鐘以前那邊要如何移除再次確認訊息呢?

	TOP

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	13^# 發表於 2011-5-18 20:23 \| 顯示全部帖子本帖最後由 vpower 於 2011-5-18 21:50 編輯回復 22# GBKEE 事件查看按道理是查看用的,應該不會有音樂,提醒和查看的時候是否可以用您先前修改過的,字體變大變粗,第一行Microsoft Excel改成現在時間.

	TOP

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	14^# 發表於 2011-5-19 22:52 \| 顯示全部帖子回復 24# GBKEE 請問一下,提醒視窗內的字該如何設定顏色呢? 已過用紅色還剩下用藍色~ 每次提醒1個事件下方空一行~ 關於事件提醒的部分,是否可以按下後不要出現音樂,只在設定時間??時間前才需要提醒.

	TOP

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	15^# 發表於 2011-5-20 08:31 \| 顯示全部帖子回復 26# GBKEE 發現不確定的名稱: CommandButton1_Click

	TOP

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	16^# 發表於 2011-5-20 15:46 \| 顯示全部帖子本帖最後由 vpower 於 2011-5-20 22:38 編輯請幫我看一下,下面這個的"D",功能是什麼?如果我沒用到,改如何刪除改寫 I1 = DateDiff("D", Date, Range("C" & J1))的"D" . Private Sub Workbook_Open() Dim J1%, S1$, S2$ With Sheet1.WindowsMediaPlayer1 '加入MediaPlayer播放音樂 .URL = "D:\數羊歌.MP3" '請修改音樂檔案 .Visible = False .Controls.stop End With For J1 = 2 To Sheets("Sheet1").[C65536].End(xlUp).Row If Range("C" & J1) <> "" And IsDate(Range("C" & J1)) Then '''''''''''''''''''''''''''''''''''''''''''''''' I1 = DateDiff("D", Date, Range("C" & J1)) If I1 >= 0 And I1 <= 90 Then S1 = "在90天內過期" If I1 <= 60 Then S1 = "在60天內過期" If I1 <= 30 Then S1 = "在30天內過期" If I1 < 0 Then S1 = "已過期" & (-1) * (I1) & "天" If S1 <> "" Then S2 = S2 & Sheets("Sheet1").Range("A" & J1) & "-" & S1 & vbNewLine & vbNewLine S1 = "": I1 = 0 ''''''''''''''''''''''''''''''''''''''''''' End If Next If S2 <> "" Then With Sheet1.WindowsMediaPlayer1 '加入MediaPlayer播放音樂 .URL = "D:\數羊歌.MP3" '請修改音樂檔案 .Visible = False .Controls.Play '播放音樂 '''''''''''''''''''''''''''''''''''' MsgBox S2 .Controls.stop '關閉音樂 ''''''''''''''''''''''''''''''''' End With End If 'If S2 <> "" Then MsgBox S2 Else End Sub 複製代碼

	TOP

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	17^# 發表於 2011-5-22 14:00 \| 顯示全部帖子回復 30# GBKEE 可是我的"D"欄沒有放日期讓他比較,所以想節省他,不用讓他每次判斷"D"欄.

	TOP

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	18^# 發表於 2011-5-23 00:32 \| 顯示全部帖子本帖最後由 vpower 於 2011-6-9 09:38 編輯已無提問。

	TOP

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	19^# 發表於 2011-6-9 09:37 \| 顯示全部帖子本帖最後由 vpower 於 2011-6-9 10:39 編輯回復 vpower 試試看 GBKEE 發表於 2011-5-19 17:49 版主您好,又來打擾您,請問一下這檔案經常在開啟後出現自動關閉,或是操作到一半自動關閉,不知道是什麼原因呢? -------------------------------------------------------------------------------------- 如果我想把已過和還有移除,改成時間到了出現該事件即可,我該怎麼修改呢? 例如,事件約會A設定時間是5分鐘以前,時間剩下5分鐘的事件顯示出來即可, 不要全部事件都顯示,已過XX天、還有XX天這些都不顯示, 請問按下提醒表單後,他把所輸入的值是送到哪裡呢? 我找了一下,不知該如何修改成固定時間,也就是我直接輸入在VBA內. 只有看到這段 Private Sub 提醒(Msg As Boolean) '設定自動於時間到提醒 Dim J1% 提醒Msg = False With Sheets("Sheet1") For J1 = 2 To .[C65536].End(xlUp).Row If Range("C" & J1) <> "" And IsDate(Range("C" & J1)) Then If Range("C" & J1) > Now Then 提醒Msg = True If Msg = True Then Application.OnTime Range("C" & J1) - TheTime, "Sheet1.CommandButton1_Click" '設定時間提醒 End If End If Next End With End Sub 複製代碼好像沒有地方可以設定"A"這個欄位,萬一事件不放在A欄,我該如何指向A?

	TOP

靜思自在 : 不怕事多，只怕多事。

返回列表下一主題上一主題