·Q¨ì¦Û¾Ç­^»yªº²Â²Â¤èªk

¦Û§Ú·Pı¨}¦n

¤j®a»¡­^»y8¤ë5¤éªº¹qµøÁ¿¸Ñ753mb¡K
Åwªï¸Õ¥Î
¤U¸ü«á¸ÑÀ£ÁY
¥Ñ0805excelÀɶ}±Ò
https://drive.google.com/file/d/0B_a9SDdWoUN-Smxxa0tMU2NXWG8/view?usp=sharing

c_c_lai

¦^´_ 1# ¦Û§Ú·Pı¨}¦n
©ñ¸m©ó ThisWorkbook µ{¦¡°Ï¤º¡G

1. Option Explicit
   
2. 
   
3. #If VBA7 Then
   
4.     Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
   
5. #Else
   
6.     Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
   
7. #End If
   
8. 
   
9. Sub playAll()
   
10.     Dim cts As Integer
    
11.     Dim MyPlayer As WindowsMediaPlayer
    
12.    
    
13.     Set MyPlayer = Sheet1.WindowsMediaPlayer1
    
14. 
    
15.     For cts = 1 To 33
    
16.         MyPlayer.URL = ThisWorkbook.Path & "\mp4\" & CStr(cts) & ".mp4"
    
17.         
    
18.         DoEvents
    
19.         MyPlayer.Controls.Play
    
20.                     
    
21.         Do While MyPlayer.playState <> 1
    
22.             Sleep 100
    
23.             DoEvents
    
24.         Loop
    
25.         
    
26.         DoEvents
    
27.     Next cts
    
28. End Sub

½Æ»s¥N½X

¦Û§Ú·Pı¨}¦n

¦n¹³¤£¯à¥Î©O¡K
§ÚÁÙ¦b¥Î2007ªºExcel©MXP

¤U¸ü (144.52 KB)

2016-8-8 00:06

c_c_lai

¦^´_ 3# ¦Û§Ú·Pı¨}¦n

¤U¸ü (164.66 KB)

2016-8-8 08:47

¤U¸ü (409.01 KB)

2016-8-8 08:48

Office 2007 ¥H¤Î XP Àô¹Ò¤¤¬O§¹¥þ¥i¥H¶¶ºZ°õ¦æªº¡A
§_«h§A¤]¤£·| PO ¤å¥s¤j®a¤U¸üªY½à¡C

¦Û§Ú·Pı¨}¦n

»¡ªº¤]¬O
¾÷®vÀY­n´«·s¤F
¤£¤É¯Å¤£¦æ¤F