Hsieh

¦^´_ 4# HSIEN6001

sleep¬OAPI¨ç¼Æ¡A§¹¾ãµ{¦¡½X¦p¤U

1. Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
   
2. Sub SpeEng()
   
3. Dim i
   
4.     For i = 1 To Application.CountA(Range("C:C"))   '¨Ï¥Î¤u§@ªí¨ç¼Æ­pºâCÄ檺¸ê®Æ¶q§@¬°°j°éµ²§ô
   
5.         Set oSa = CreateObject("SAPI.SpVoice")  '³Ð«Ø»y­µª«¥ó
   
6.         oSa.Volume = 100  '­µ¶q
   
7.         oSa.Rate = -1  '³t«×
   
8.         oSa.Speak Cells(i, 3) 'Ū¥XCÄ檺¤º®e
   
9.         Sleep 2000  '°±¯d2¬íÄ~Äò
   
10.     Next i
    
11. End Sub

½Æ»s¥N½X