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

vpower

¦^´_ 11# GBKEE


    §Ú¬Ý¤£¬O«ÜÀ´,§Ú¦Û¤v¦b±z¤§«e¼gªº¨º­Ó+¤F¤@¬q(¤w¥Î¬õ¦â¦rÅéÅã¥Ü),½Ð±zÀ°§Ú¬Ý¬Ý·|¤£·|¥X°ÝÃD,·PÁÂ.
-------------------------------------------------------------------------------
      With Sheet1.WindowsMediaPlayer1     '¥[¤JMediaPlayer¼½©ñ­µ¼Ö
        .URL = "D:\¼Æ¦Ïºq.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 = "¦b90¤Ñ¤º¹L´Á"
            If I1 <= 60 Then S1 = "¦b60¤Ñ¤º¹L´Á"
            If I1 <= 30 Then S1 = "¦b30¤Ñ¤º¹L´Á"
            If I1 < 0 Then S1 = "¤w¹L´Á" & (-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     '¥[¤JMediaPlayer¼½©ñ­µ¼Ö
        .URL = "D:\¼Æ¦Ïºq.MP3"  '½Ð­×§ï­µ¼ÖÀÉ®×
        .Visible = False
        .Controls.Play
        End With
    End If   
If S2 <> "" Then MsgBox S2 Else
-------------------------------------------------------------------------------

vpower

¦^´_ 11# GBKEE

Ãö©ó¥H¤U±zªºµ{¦¡,§Ú¤]·Q¥Î§PÂ_¥y¥h¼g,¨Ò¦p:1¤p®É,1¤ÀÄÁ,1¬íÄÁ¥H«e´£¿ô,µM«á¦A¥[¤W­µ®Ä,¥i¬O¦n¹³µLªk¹³¥H¤Ñ­pºâªº¨º­Ó¼gªk¤@¼Ë¤F,§Ú¸Ó«ç»ò§ï¼g©O?ÁÂÁÂ.

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

¦^´_ 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!

vpower

¦^´_ 14# GBKEE


    Ãö©ó¤Ñ¼Æªº³o­Ó.¤j­P¤WÀ³¸Ó¨S°ÝÃD,§Ú¥Î±zªº­×§ï¤F¤@¤U,¦p¤U
¤£ª¾¹D¦³¨S¦³«ö¤U½T©w«á¥i¥HÃö³¬­µ¼Öªº¤èªk,´N¬OÂI½T»{«á¥h°õ¦æªº³æ¦r.§Ú§ä¨ì¤@­Ó¦p¤U:

1. K% = MsgBox "Ä~Äò¡H", vbYesNo, "§@·~¤@"
   
2. Select Case K%
   
3. Case vbYes
   
4. '¿ï"¬O"ªº³B²z¨BÆJ
   
5. ....
   
6. Case vbNo
   
7. '¿ï"§_"ªº³B²z¨BÆJ
   
8. ....
   
9. End Select
   
10. MsgBox(

½Æ»s¥N½X

µM«áÀ³¸Ó¥u³Ñ¤U13¼Óªº°ÝÃD¤F,¦A¦¸·PÁ±zªº¤j¤O¨ó§U,¤£ª¾¹D§Ú¸Ó«ç»ò¼Ë¤~¯à¹³§A¤@¼Ë©O?

1. Private Sub Workbook_Open()
   
2.       With Sheet1.WindowsMediaPlayer1     '¥[¤JMediaPlayer¼½©ñ­µ¼Ö
   
3.         .URL = "D:\¼Æ¦Ïºq.MP3"  '½Ð­×§ï­µ¼ÖÀÉ®×
   
4.        .Visible = False
   
5.        .Controls.stop
   
6.         End With
   
7.         
   
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.         End With
    
27.     End If
    
28.     If S2 <> "" Then MsgBox S2 Else
    
29. End Sub

½Æ»s¥N½X

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

vpower

¦^´_ 16# GBKEE


    ¬Oªº,¸ò§Ú­nªº¤@¼Ë,¯uªº¬O«Ü·PÁÂ,²{¦b¥u®t¨º­Ó´X¤p®É«e,´X¤ÀÄÁ«e,´X¬íÄÁ«e,
©M³o¦¸§¹¦¨ªº¥H´X¤Ñ«e´X¥G¤@¼Ë,¥u¬O§â´X¤Ñ«e§ï¦¨´X¤p®É«e,´X¤ÀÄÁ«e´X,¬íÄÁ«e,
§PÂ_¦¡§Ú´N¤£¤Ó·|¼g,¥i¯à­n¦A³Â·Ð±z,ÁÂÁÂ(¤@¼Ë­n¦³­µ¼Ö³á^^)
§Ú§Æ±æ¯à°÷¼g¦bTextbox¤W©Î¬OInput¤]¥i¥H.

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

vpower

¦^´_ 18# GBKEE


    §Ú¸Ó¦p¦ó¼g¥XIF§P§O¦¡,³]©wÅý¥L1¤p®É©Î5¤ÀÄÁ©Î30¬í¥H«e´£¿ô©O?ÁÂÁÂ!

GBKEE

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

´ú¸Õ.rar (29 KB)

¤U¸ü¦¸¼Æ: 15

2011-5-17 12:51