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

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

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

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
-------------------------------------------------------------------------------

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

¦^´_ 9# GBKEE


§ä¤£¨ì¤èªk©Î¸ê®Æ¦¨­û,§Ú·Q¬O¤£¬O­n¥h¤U¸üÃö©ó¼W¯q¶°¬ÛÃöªºªF¦è.
Åã¥Üªº¦r¦ê -->     .WindowsMediaPlayer1

1. With Sheet1.WindowsMediaPlayer1     '¥[¤JMediaPlayer¼½©ñ­µ¼Ö
   
2.        .URL = "D:\¼Æ¦Ïºq.MP3"  '½Ð­×§ï­µ¼ÖÀÉ®×
   
3.         .Visible = False
   
4.         .Controls.Stop
   
5.     End With
   
6.         For J1 = 2 To Sheets("Sheet1").[C65536].End(xlUp).Row
   
7.         If Range("C" & J1) <> "" And IsDate(Range("C" & J1)) Then
   
8.         ''''''''''''''''''''''''''''''''''''''''''''''''
   
9.             I1 = DateDiff("D", Date, Range("C" & J1))
   
10.             If I1 >= 0 And I1 <= 90 Then S1 = "¦b90¤Ñ¤º¹L´Á"
    
11.             If I1 <= 60 Then S1 = "¦b60¤Ñ¤º¹L´Á"
    
12.             If I1 <= 30 Then S1 = "¦b30¤Ñ¤º¹L´Á"
    
13.             If I1 < 0 Then S1 = "¤w¹L´Á" & (-1) * (I1) & "¤Ñ"
    
14.             If S1 <> "" Then S2 = S2 & Sheets("Sheet1").Range("A" & J1) & "-" & S1 & vbNewLine & vbNewLine
    
15.             S1 = "": I1 = 0
    
16.         '''''''''''''''''''''''''''''''''''''''''''
    
17.         End If
    
18.     Next
    
19.     If S2 <> "" Then MsgBox S2

½Æ»s¥N½X

§Ú¦Û¤v°µ¤F¤@ÂI¥\½Ò,°õ¦æ«á,¦³¥X²{´£¿ôµøµ¡,¦ý¬O¨S¦³­µ¼Ö
´¡¤JWindows Media Playerªº°µªk¦p¤U:
1. ¦b [À˵ø] ¥\¯àªí¤W¡A«ü¦V [¤u¨ã¦C]¡AµM«á«ö¤@¤U [±±¨î¤u¨ã½c]¡C
2. ¦b [±±¨î¤u¨ã½c] ¤¤¡A¿ï[¨ä¥L±±¨î¶µ] «ö¶s¡C
3. ¦b±±¨î¶µ²M³æ¤¤¡A¿ï[Windows Media Player]¡C
4. ¥Î·Æ¹«´å¼Ð©Ô¥X¤@­Ó¤è¶ô¥H«Ø¥ß Windows Media Player ±±¨î¶µ¡C
5. ¦b [±±¨î¤u¨ã½c] ¤¤¡A«ö¤@¤U [ÄÝ©Ê] «ö¶s¡C
6. ¦b [ÄÝ©Ê] µøµ¡ªº [FileName] ¤è¶ô¤¤¡A¿é¤J±z·Q­n¼½©ñªºÀɮ׸ô®|»P¦WºÙ¡AµM«á«ö ENTER¡C

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

vpower

¦^´_ 6# GBKEE


DÄæ§Ú¨S¥Î¨ì,DateDiff("D", Date, Range("C" & J1)),ªºD¦p¦ó²¾°£©O?
¬O³o¦æ I1 = DateDiff("D", Date, Range("C" & J1))ª½±µ²¾°£¶Ü?

------------------------------------------------------------------------

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

vpower

GBKEEª©¥D¤j¤j..¿n·¥¤S¨³³tªº¬°§Ú¸Ñ¨M¤F§ÚªºÃøÃD..¯uªº¬O¤Ó·PÁ¤F!!

§Ú¦³­ÓºÃ°Ý,Ãö©ó¥H¤Uªº³]©w,¬O§_¯à°÷©M¥ý«e¨º­Ó¤@¼Ë,§iª¾§Ú¶ZÂ÷AÄæ®É¶¡ÁٳѤU?¤ÀÄÁ©O? (¦b¸õ¥XMSG´£¿ôµøµ¡¥H«e¬O§_¥i¥H¦Û°Ê¶}±ÒC©ÎD¼Ñªº«ü©wÀɮשO?³o¼Ë´N¥i¥H¦³Án­µ´£¿ôªº®ÄªG¤F,¨S¦³¿ìªk¤]¨SÃö«Y,·PÁ±z)

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

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