kevin681024

¦^´_ 1# HSIEN6001
¸Õ¸Õ¬Ý³o¼Ë¼g©O¡H

1. Sub SpeEnginBox()
   
2. Dim i, j, AA
   
3.    
   
4.     With Application
   
5.         i = .CountA(Range("C:C"))
   
6.         .ScreenUpdating = False
   
7.         .DisplayAlerts = False
   
8.     End With
   
9.    
   
10.     If i = 1 Then
    
11.         MsgBox "½d³ò¤ºµL­^¤å»y¥y", 16
    
12.         Exit Sub
    
13.     End If
    
14. AA:
    
15.     j = InputBox("½Ð°Ý§A­n°á²Ä´X¥y?" & vbNewLine & "(®æ¦¡ 1¡B2¡B3...)", , "")
    
16.     j = IIf(IsNumeric(j), CInt(j), j)
    
17.     Do While Not (j > 0 And j < i)
    
18.         Select Case j
    
19.         Case ""
    
20.             MsgBox "±z¥¼¿é¤J¥ô¦ó¼Æ¦r", 16
    
21.             Exit Sub
    
22.         Case Is <= 0, Is >= i
    
23.             MsgBox "¶W¥X½d³ò", 16
    
24.         End Select
    
25.         j = InputBox("½Ð°Ý§A­n°á²Ä´X¥y?" & vbNewLine & "(®æ¦¡ 1¡B2¡B3...)", , "")
    
26.         j = IIf(IsNumeric(j), CInt(j), j)
    
27.     Loop
    
28.    
    
29.     Set oSa = CreateObject("SAPI.SpVoice")
    
30.     With oSa
    
31.         .Volume = 100
    
32.         .Rate = -1
    
33.         .Speak Cells(j + 1, 3)
    
34.     End With
    
35.         
    
36.     With Application
    
37.         .ScreenUpdating = True
    
38.         .DisplayAlerts = True
    
39.     End With
    
40.    
    
41. End Sub

½Æ»s¥N½X