GBKEE

¦^´_ 1# vpower

1. Private Sub CommandButton1_Click()
   
2.     Dim TheDay#, Msg$, J1%, S$, D$, H$
   
3.     For J1 = 2 To Sheets("Sheet1").[C65536].End(xlUp).Row
   
4.         TheDay = Now - Range("C" & J1).Value: Msg = " ®É¶¡ ¤w¹L"
   
5.         If Range("C" & J1) >= Now Then TheDay = Range("C" & J1) - Now: Msg = " ®É¶¡ ÁÙ¦³"
   
6.         H = IIf(Abs(Int(TheDay)) > 0, Abs(Int(TheDay)) & "¤Ñ", "") & Format(TheDay, "hh¤p®É:mm¤ÀÄÁ:ss¬í")
   
7.         H = Replace(Replace(H, "00¤p®É:", ""), "00¤ÀÄÁ:", "")
   
8.         S = IIf(S = "", "", S & vbNewLine) & "¶ZÂ÷ " & Sheets("Sheet1").Range("A" & J1) & Msg & H
   
9.     Next
   
10.     If S <> "" Then MsgBox S, , Format(Now, "dddddd ttttt")
    
11. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# vpower
¨º¬O¦h¾lªº,¥i§R±¼.

1. Private Sub CommandButton1_Click()
   
2.     Dim TheDay#, Msg$, J1%, S$, H$
   
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 = " ®É¶¡ ¤w¹L"
   
6.             If Range("C" & J1) >= Now Then TheDay = Range("C" & J1) - Now: Msg = " ®É¶¡ ÁÙ¦³"
   
7.             H = IIf(Abs(Int(TheDay)) > 0, Abs(Int(TheDay)) & "¤Ñ", "") & Format(TheDay, "hh¤p®É:mm¤ÀÄÁ:ss¬í")
   
8.             H = Replace(Replace(Replace(H, "00¤p®É:", ""), "00¤ÀÄÁ:", ""), ":00¬í", "")
   
9.             S = IIf(S = "", "", S & vbNewLine) & "¶ZÂ÷ " & Sheets("Sheet1").Range("A" & J1) & Msg & H
   
10.         End If
    
11.     Next
    
12.     If S <> "" Then MsgBox S, , Format(Now, "dddddd ttttt")
    
13. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 5# vpower

1. Private Sub Workbook_Open()
   
2.     For J1 = 2 To Sheets("Sheet1").[C65536].End(xlUp).Row
   
3.         If Range("C" & J1) <> "" And IsDate(Range("C" & J1)) Then
   
4.         ''''''''''''''''''''''''''''''''''''''''''''''''
   
5.             I1 = DateDiff("D", Date, Range("C" & J1))
   
6.             If I1 < 0 Then S1 = "ªº®É¶¡¤w¸g¨ì¤F" & (-1) * (I1) & "¤Ñ"
   
7.             If S1 <> "" Then S2 = S2 & Sheets("Sheet1").Range("A" & J1) & S1 & vbNewLine
   
8.             S1 = "": I1 = 0
   
9.         '''''''''''''''''''''''''''''''''''''''''''
   
10.         End If
    
11.     Next
    
12.     If S2 <> "" Then MsgBox S2
    
13.     S2 = ""
    
14. End Sub

½Æ»s¥N½X

1. Sub ´£¿ô()
   
2.     Dim TheTime, TheTimeMsg$, Msg As Boolean
   
3.     With Sheets("Sheet1")
   
4.         For J1 = 2 To .[C65536].End(xlUp).Row
   
5.             If Range("C" & J1) <> "" And IsDate(Range("C" & J1)) Then If Range("C" & J1) > Now Then Msg = True
   
6.         Next
   
7.         If Msg = False Then MsgBox "©Ò¦³¨Æ¥ó¬Ò¤w¹L®É!!", , "´£¿ô": Exit Sub
   
8.         Do
   
9.             TheTime = Application.InputBox("¿é¤J´£¿ô¤ÀÄÁ", "´£¿ô", , Msg)
   
10.             If TheTime = "" Then Exit Sub
    
11.             TheTimeMsg = TheTime
    
12.         Loop Until TheTime >= 1 And TheTime <= 60
    
13.         For J1 = 2 To .[C65536].End(xlUp).Row
    
14.             If Range("C" & J1) <> "" And IsDate(Range("C" & J1)) Then
    
15.                 If Range("C" & J1) - TimeValue("00:" & TheTime) > Now Then
    
16.                 Msg = True
    
17.                '¤G¿ï¤@
    
18.                 Application.OnTime Range("C" & J1) - TimeValue("00:" & TheTime), "Sheet1.CommandButton1_Click"
    
19.                 'Sheet1.CommandButton1_Click  µ{¦¡½X©ñ¦b Sheet1
    
20.                  
    
21.                 'Application.OnTime Range("C" & J1) - TimeValue("00:" & TheTime), "ThisWorkbook.Workbook_Open"
    
22.                 'ThisWorkbook.Workbook_Open µ{¦¡½X©ñ¦b ThisWorkbook               
    
23.                 End If
    
24.             End If
    
25.         Next
    
26.     End With
    
27. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 8# vpower

    ´ú¸Õ.rar (28.62 KB)

¤U¸ü¦¸¼Æ: 11

2011-5-14 21:16

¸Õ¸Õ¬Ý¬Ý ¶}Àɫᦳ¿ù»~®É½Ð­×§ï ¤U¦Cµ{¦¡ªº ¼½©ñ­µ¼ÖÀÉ®×

1. Private Sub Workbook_Open()
   
2.        '
   
3.        '
   
4.     With Sheet1.WindowsMediaPlayer1     '¥[¤JMediaPlayer¼½©ñ­µ¼Ö
   
5.        .URL = "d:\·Rªº¸ô¤W§Ú©M§A.mp3"  '½Ð­×§ï­µ¼ÖÀÉ®×
   
6.         .Visible = False
   
7.         .Controls.Stop
   
8.     End With
   
9.     ¨Æ¥ó´£¿ô          '¦Û°Ê©ó®É¶¡¨ì´£¿ô
   
10.     If S2 <> "" Then MsgBox S2
    
11. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 10# vpower
§Ú¬O2003ª© ¦b¨Ï¥Îªí³æ¤¤ WindowsMediaPlayer ²Ä¤@¦¸·|¦³¨t²ÎªºÄµ¥Ü´£°Ý,
©Ò¥H§Ú§ï¥Î¤u§@ªí´¡¤Jª«¥óªº WindowsMediaPlayer ,
¦p¹Ï

¤U¸ü (36.66 KB)

2011-5-15 06:41

§A¦bªí³æ¥[¤J WindowsMediaPlayer ±±¨î¶µ,¶·­×§ïªí³æªºµ{¦¡½X±NSheet1. §R±¼
Private Sub UserForm_Initialize()
    With Sheet1.WindowsMediaPlayer1
       .URL = "d:\·Rªº¸ô¤W§Ú©M§A.mp3"  '½Ð­×§ïÀÉ®×
        '.Visible = False
        .Controls.Play
    End With
    ¨Æ¥ó
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Sheet1.WindowsMediaPlayer1.Controls.Stop
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Workbook_Open()
'
'
'''''''§A¥Îªº¬Oªí³æªº WindowsMediaPlayer ±±¨î¶µ''''''''''''''
''''''''Workbook_Open³o¤@¬q´N¤£»Ý¥Î¤F''''''''''''''
    With Sheet1.WindowsMediaPlayer1     '¥[¤JMediaPlayer¼½©ñ­µ¼Ö
       .URL = "d:\·Rªº¸ô¤W§Ú©M§A.mp3"  '½Ð­×§ï­µ¼ÖÀÉ®×
        .Visible = False
        .Controls.Stop
    End With
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ¨Æ¥ó´£¿ô          '¦Û°Ê©ó®É¶¡¨ì´£¿ô
    If S2 <> "" Then MsgBox S2
End Sub

GBKEE

¦^´_ 12# vpower
µ¹§AªþÀÉ §AµLªkµø¨Ï¥Î, ©Ò¥H§A§ï¥Îªí³æªº±±¨î¶µWindowsMediaPlayer1 ¨Ó´ú¸Õ,ÁÙ¬OµLªk¾A¥Î¹ï¶Ü?
§A§ï¥Îªí³æWindowsMediaPlayer1ªº±±¨î¶µ,­n­×§ïUserForm ªí³æªºµ{¦¡½X³¡¤À¦p¤U

1. Private Sub UserForm_Initialize()
   
2.     With WindowsMediaPlayer1   ' -> ªí³æªºWindowsMediaPlayer1
   
3.        .URL = "d:\·Rªº¸ô¤W§Ú©M§A.mp3"  '½Ð­×§ïÀÉ®×
   
4.         .Visible = False
   
5.         .Controls.Play
   
6.     End With
   
7.     ¨Æ¥ó
   
8. End Sub
   
9. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
   
10.     WindowsMediaPlayer1.Controls.Stop   ' -> ªí³æªºWindowsMediaPlayer1
    
11. End Sub

½Æ»s¥N½X

'''''''§A¥Îªº¬Oªí³æªº WindowsMediaPlayer ±±¨î¶µ''''''''''''''
''''''''SUB Workbook_Open()ªºµ{¦¡½X¤¤  ³o¤@¬q´N¤£»Ý¥Î¤F''''''''''''''
    With Sheet1.WindowsMediaPlayer1     '¥[¤JMediaPlayer¼½©ñ­µ¼Ö
       .URL = "d:\·Rªº¸ô¤W§Ú©M§A.mp3"  '½Ð­×§ï­µ¼ÖÀÉ®×
        .Visible = False
        .Controls.Stop
    End With

¦^´_ 12# vpower
¥ý§â11¼Óªº°ÝÃD ·d©w!

GBKEE

¦^´_ 15# vpower
¬O³o¼Ë¶Ü?

1. Private Sub Workbook_Open()
   
2.     Dim J1%, S1$, S2$
   
3.     With Sheet1.WindowsMediaPlayer1     '¥[¤JMediaPlayer¼½©ñ­µ¼Ö
   
4.         .URL = "D:\¼Æ¦Ïºq.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 = "¦b90¤Ñ¤º¹L´Á"
    
13.             If I1 <= 60 Then S1 = "¦b60¤Ñ¤º¹L´Á"
    
14.             If I1 <= 30 Then S1 = "¦b30¤Ñ¤º¹L´Á"
    
15.             If I1 < 0 Then S1 = "¤w¹L´Á" & (-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     '¥[¤JMediaPlayer¼½©ñ­µ¼Ö
    
23.             .URL = "D:\¼Æ¦Ïºq.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

½Æ»s¥N½X

GBKEE

¦^´_ 17# vpower
¬O³o¼Ë¶Ü!

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 = " ®É¶¡ ¤w¹L"
   
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) & "¤p®É" + Mm + Ss
    
11.             Else
    
12.                 Hh = Format(TheDay, "hh¤p®Émm¤ÀÄÁss¬í")
    
13.                 Hh = Replace(Hh, "00¤p®É", "")
    
14.             End If
    
15.             Hh = Replace(Replace(Hh, "00¤ÀÄÁ", ""), "00¬í", "")
    
16.             S = IIf(S = "", "", S & vbNewLine) & "¶ZÂ÷ " & Sheets("Sheet1").Range("A" & J1) & Msg & Hh
    
17.         End If
    
18.     Next
    
19.     If S <> "" Then
    
20.         With Sheet1.WindowsMediaPlayer1     '¥[¤JMediaPlayer¼½©ñ­µ¼Ö
    
21.             .URL = "D:\¼Æ¦Ïºq.MP3"  '½Ð­×§ï­µ¼ÖÀÉ®×
    
22.             .Visible = False
    
23.             .Controls.Play          '¼½©ñ­µ¼Ö
    
24.             MsgBox S
    
25.             .Controls.Stop          'Ãö³¬­µ¼Ö
    
26.         End With
    
27.     End If
    
28. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 19# vpower
¸Õ¸Õ¬Ý¹ï?

´ú¸Õ.rar (29 KB)

¤U¸ü¦¸¼Æ: 15

2011-5-17 12:51

GBKEE

¦^´_ 21# vpower
1.¬°¤°»ò§Ú§â®É¶¡Äæ¥þ³¡§R°£,¥LÁÙ¬O·|¼½©ñ­µ¼Ö?ÂI¿ï¥«¥ó¬d¬Ýªº®É­Ô¤]·|ª½±µ¼½©ñ­µ¼Ö  
¤£·|ªº  S <> "" ¤~·|¼½©ñ­µ¼Öªº §A¦³­×§ïµ{¦¡¶Ü?

1. If S <> "" Then   
   
2.         With Sheet1.WindowsMediaPlayer1     '¥[¤JMediaPlayer¼½©ñ­µ¼Ö
   
3.            .URL = "D:\¼Æ¦Ïºq.MP3"  '½Ð­×§ï­µ¼ÖÀÉ®×
   
4.             .Visible = False
   
5.             .Controls.Play          '¼½©ñ­µ¼Ö
   
6.             MsgBox S
   
7.             .Controls.Stop          'Ãö³¬­µ¼Ö
   
8.         End With
   
9.     End If

½Æ»s¥N½X

2.Ãö©ó³]©w®É¶¡?¤p®É,¤ÀÄÁ,¬íÄÁ¥H«e¨ºÃä­n¦p¦ó²¾°£¦A¦¸½T»{°T®§©O?
Private Sub CommandButton1_Click()    ªí³æªºµ{§Ç½X §R±¼¬õ¦â³¡¥÷
    If MsgBox("½T©w ??", vbYesNo) = vbYes Then   ´£¿ô True   
    Unload Me
End Sub