能否幫我看看如何將此程式更改成以小時分鐘秒數計算(已解決) - 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	31^# 跳轉到 » 發表於 2011-5-22 14:00 \| 只看該作者回復 30# GBKEE 可是我的"D"欄沒有放日期讓他比較,所以想節省他,不用讓他每次判斷"D"欄.

	TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

32^#

發表於 2011-5-22 14:19 | 只看該作者

回復 31# vpower
**** 29樓,31樓是兩碼事*****
29樓

請幫我看一下,下面這個的"D",功能是什麼?如果我沒用到,改如何刪除改寫
I1 = DateDiff("D", Date, Range("C" & J1))的"D"

31樓

可是我的"D"欄沒有放日期讓他比較,所以想節省他,不用讓他每次判斷"D"欄.

請問是工作表"D"欄嗎? 你的程式碼沒有比對到"D"欄

你有看 VBA 中的DateDiff 說明嗎?
I1 = DateDiff("D", Date, Range("C" & J1))的"D" 此函數DateDiff 表示兩個日期間相差的時間間隔單位數目
D是天的單位, 所以I1為傳回天數的變數

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	33^# 發表於 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	34^# 發表於 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

靜思自在 : 每天無所事事，是人生的消費者，積極、有用才是人生的創造者。

1 2 34

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

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

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]

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

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]

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