1234
返回列表 上一主題 發帖

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

vpower

帖子
155 
主題
56 
精華
0 
積分
242 
點名
0  
作業系統
WinXP 
軟體版本
專業版2002 
閱讀權限
0 
註冊時間
2010-5-29 
最後登錄
2011-7-18 
25# 跳轉到 »
發表於 2011-5-19 22:52 | 只看該作者
回復 24# GBKEE

請問一下,提醒視窗內的字該如何設定顏色呢? 已過 用紅色  還剩下 用藍色~ 每次提醒1個事件下方空一行~

關於事件提醒的部分,是否可以按下後不要出現音樂,只在設定時間??時間前才需要提醒.

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
24#
發表於 2011-5-19 17:49 | 只看該作者
回復 23# vpower
試試看

    測試2.rar (36.14 KB)

TOP

vpower

帖子
155 
主題
56 
精華
0 
積分
242 
點名
0  
作業系統
WinXP 
軟體版本
專業版2002 
閱讀權限
0 
註冊時間
2010-5-29 
最後登錄
2011-7-18 
23#
發表於 2011-5-18 20:23 | 只看該作者
本帖最後由 vpower 於 2011-5-18 21:50 編輯

回復 22# GBKEE


事件查看按道理是查看用的,應該不會有音樂,提醒和查看的時候是否可以用您先前修改過的,字體變大變粗,第一行Microsoft Excel改成現在時間.

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
22#
發表於 2011-5-18 07:51 | 只看該作者
回復 21# vpower
1.為什麼我把時間欄全部刪除,他還是會播放音樂?點選市件查看的時候也會直接播放音樂  
不會的  S <> "" 才會播放音樂的 你有修改程式嗎?
  1. If S <> "" Then   
  2.         With Sheet1.WindowsMediaPlayer1     '加入MediaPlayer播放音樂
  3.            .URL = "D:\數羊歌.MP3"  '請修改音樂檔案
  4.             .Visible = False
  5.             .Controls.Play          '播放音樂
  6.             MsgBox S
  7.             .Controls.Stop          '關閉音樂
  8.         End With
  9.     End If
複製代碼

2.關於設定時間?小時,分鐘,秒鐘以前那邊要如何移除再次確認訊息呢?
Private Sub CommandButton1_Click()    表單的程序碼 刪掉紅色部份
    If MsgBox("確定 ??", vbYesNo) = vbYes Then   提醒 True   
    Unload Me
End Sub

TOP

vpower

帖子
155 
主題
56 
精華
0 
積分
242 
點名
0  
作業系統
WinXP 
軟體版本
專業版2002 
閱讀權限
0 
註冊時間
2010-5-29 
最後登錄
2011-7-18 
21#
發表於 2011-5-17 21:27 | 只看該作者
本帖最後由 vpower 於 2011-5-17 22:52 編輯

回復 20# GBKEE


    完全依照我的需求做出來了,真是萬分感謝.

我好像發現2個問題如下:

1.為什麼我把時間欄全部刪除,他還是會播放音樂?點選市件查看的時候也會直接播放音樂,
但是我的時間欄位全部是空值的情況下應該是判斷不會播放,只有在時間設定?小時分鐘秒鐘前播放.

2.關於設定時間?小時,分鐘,秒鐘以前那邊要如何移除再次確認訊息呢?

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
20#
發表於 2011-5-17 12:51 | 只看該作者
回復 19# vpower
試試看對?

測試.rar (29 KB)

TOP

vpower

帖子
155 
主題
56 
精華
0 
積分
242 
點名
0  
作業系統
WinXP 
軟體版本
專業版2002 
閱讀權限
0 
註冊時間
2010-5-29 
最後登錄
2011-7-18 
19#
發表於 2011-5-16 23:36 | 只看該作者
回復 18# GBKEE


    我該如何寫出IF判別式,設定讓他1小時或5分鐘或30秒以前提醒呢?謝謝!

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
18#
發表於 2011-5-16 13:56 | 只看該作者
回復 17# vpower
是這樣嗎!
  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
複製代碼

TOP

vpower

帖子
155 
主題
56 
精華
0 
積分
242 
點名
0  
作業系統
WinXP 
軟體版本
專業版2002 
閱讀權限
0 
註冊時間
2010-5-29 
最後登錄
2011-7-18 
17#
發表於 2011-5-16 12:23 | 只看該作者
回復 16# GBKEE


    是的,跟我要的一樣,真的是很感謝,現在只差那個幾小時前,幾分鐘前,幾秒鐘前,
和這次完成的以幾天前幾乎一樣,只是把幾天前改成幾小時前,幾分鐘前幾,秒鐘前,
判斷式我就不太會寫,可能要再麻煩您,謝謝(一樣要有音樂喔^^)
我希望能夠寫在Textbox上或是Input也可以.

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
16#
發表於 2011-5-15 19:56 | 只看該作者
回復 15# vpower
是這樣嗎?
  1. Private Sub Workbook_Open()
  2.     Dim J1%, S1$, S2$
  3.     With Sheet1.WindowsMediaPlayer1     '加入MediaPlayer播放音樂
  4.         .URL = "D:\數羊歌.MP3"  '請修改音樂檔案
  5.         .Visible = False
  6.         .Controls.stop
  7.     End With
  8.     For J1 = 2 To Sheets("Sheet1").[C65536].End(xlUp).Row
  9.         If Range("C" & J1) <> "" And IsDate(Range("C" & J1)) Then
  10.         ''''''''''''''''''''''''''''''''''''''''''''''''
  11.             I1 = DateDiff("D", Date, Range("C" & J1))
  12.             If I1 >= 0 And I1 <= 90 Then S1 = "在90天內過期"
  13.             If I1 <= 60 Then S1 = "在60天內過期"
  14.             If I1 <= 30 Then S1 = "在30天內過期"
  15.             If I1 < 0 Then S1 = "已過期" & (-1) * (I1) & "天"
  16.             If S1 <> "" Then S2 = S2 & Sheets("Sheet1").Range("A" & J1) & "-" & S1 & vbNewLine & vbNewLine
  17.             S1 = "": I1 = 0
  18.         '''''''''''''''''''''''''''''''''''''''''''
  19.         End If
  20.     Next
  21.     If S2 <> "" Then
  22.         With Sheet1.WindowsMediaPlayer1     '加入MediaPlayer播放音樂
  23.             .URL = "D:\數羊歌.MP3"  '請修改音樂檔案
  24.             .Visible = False
  25.             .Controls.Play          '播放音樂
  26.           ''''''''''''''''''''''''''''''''''''
  27.             MsgBox S2
  28.             .Controls.stop          '關閉音樂
  29.             '''''''''''''''''''''''''''''''''
  30.         End With
  31.     End If
  32.     'If S2 <> "" Then MsgBox S2 Else
  33. End Sub
複製代碼

TOP

        靜思自在 : 要批評別人時，先想想自己是否完美無缺。
1234
返回列表 上一主題