¥»©«³Ì«á¥Ñ vpower ©ó 2011-5-15 01:21 ½s¿è
¦^´_ 9# GBKEE
§ä¤£¨ì¤èªk©Î¸ê®Æ¦¨û,§Ú·Q¬O¤£¬On¥h¤U¸üÃö©ó¼W¯q¶°¬ÛÃöªºªF¦è.
Åã¥Üªº¦r¦ê --> .WindowsMediaPlayer1
- 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 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·Qn¼½©ñªºÀɮ׸ô®|»P¦WºÙ¡AµM«á«ö ENTER¡C