標題: 想到自學英語的笨笨方法 [打印本頁]

---

作者: 自我感覺良好    時間: 2016-8-5 17:14     標題: 想到自學英語的笨笨方法

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

---

作者: c_c_lai    時間: 2016-8-7 07:53

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

複製代碼

---

作者: 自我感覺良好    時間: 2016-8-8 00:09

好像不能用呢…
我還在用2007的Excel和XP
[attach]24857[/attach]

---

作者: c_c_lai    時間: 2016-8-8 08:51

回復 3# 自我感覺良好
[attach]24858[/attach]
[attach]24859[/attach]
Office 2007 以及 XP 環境中是完全可以順暢執行的，
否則你也不會 PO 文叫大家下載欣賞。

---

作者: 自我感覺良好    時間: 2016-8-8 19:24

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)