想到自學英語的笨笨方法

自我感覺良好

大家說英語8月5日的電視講解753mb…
歡迎試用
下載後解壓縮
由0805excel檔開啟
https://drive.google.com/file/d/0B_a9SDdWoUN-Smxxa0tMU2NXWG8/view?usp=sharing

c_c_lai

回復 1# 自我感覺良好
放置於 ThisWorkbook 程式區內：

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

複製代碼

自我感覺良好

好像不能用呢…
我還在用2007的Excel和XP

下載 (144.52 KB)

2016-8-8 00:06

c_c_lai

回復 3# 自我感覺良好

下載 (164.66 KB)

2016-8-8 08:47

下載 (409.01 KB)

2016-8-8 08:48

Office 2007 以及 XP 環境中是完全可以順暢執行的，
否則你也不會 PO 文叫大家下載欣賞。

自我感覺良好

說的也是
機師頭要換新了
不升級不行了