返回列表 上一主題 發帖

[發問] 請問迴圈及對話框

kevin681024

帖子
23 
主題
0 
精華
0 
積分
51 
點名
0  
作業系統
WIn7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-3-30 
最後登錄
2013-7-10 
1# 跳轉到 »
發表於 2012-4-26 15:03 | 顯示全部帖子
回復 1# HSIEN6001
試試看這樣寫呢？
  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 "範圍內無英文語句", 16
  12.         Exit Sub
  13.     End If
  14. AA:
  15.     j = InputBox("請問你要唸第幾句?" & vbNewLine & "(格式 1、2、3...)", , "")
  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 "您未輸入任何數字", 16
  21.             Exit Sub
  22.         Case Is <= 0, Is >= i
  23.             MsgBox "超出範圍", 16
  24.         End Select
  25.         j = InputBox("請問你要唸第幾句?" & vbNewLine & "(格式 1、2、3...)", , "")
  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
複製代碼
80 字節以內
不支持自定義 Discuz! 代碼

TOP

kevin681024

帖子
23 
主題
0 
精華
0 
積分
51 
點名
0  
作業系統
WIn7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-3-30 
最後登錄
2013-7-10 
2#
發表於 2012-4-26 16:19 | 顯示全部帖子
回復 3# HSIEN6001


    不好意思判斷沒寫好，哈
    改成下面這樣
  1. If IsNumeric(j) Then
  2.         j = CInt(j)
  3. End If
複製代碼
不然G大看起來更方便
    G大的好多了，還可以一次念多個單字
80 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。
返回列表 上一主題