返回列表 上一主題 發帖

音訊設定

HSIEN6001

帖子
219 
主題
24 
精華
0 
積分
243 
點名
0  
作業系統
Windows10 
軟體版本
Office2016 
閱讀權限
20 
性別
女 
註冊時間
2012-4-18 
最後登錄
2022-2-7 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-4-24 14:37 | 顯示全部帖子

音訊設定

本帖最後由 HSIEN6001 於 2012-4-24 14:46 編輯

我太菜了!光這個就搞不定
厚臉皮來求救了!
  1. Sub SpeEng()
  2. Dim i
  3.     For i = 1 To CountA(Range("C:C"))   '--->Error
  4.         Set oSa = CreateObject("SAPI.SpVoice")
  5.         oSa.Volume = 100
  6.         oSa.Rate = -1
  7.         oSa.Speak [ "C" & i ]   '--->Error
  8.         Sleep 2000  '--->Error
  9.     Next i
  10. End Sub
複製代碼
PS:小聲問....XP 內定的男音 有方法改成女音?!  (請不要告訴我:改灌Win 7)
收藏 分享

HSIEN6001

帖子
219 
主題
24 
精華
0 
積分
243 
點名
0  
作業系統
Windows10 
軟體版本
Office2016 
閱讀權限
20 
性別
女 
註冊時間
2012-4-18 
最後登錄
2022-2-7 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2012-4-24 16:41 | 顯示全部帖子
本帖最後由 HSIEN6001 於 2012-4-24 16:49 編輯

回復 2# oobird


    語法真是千變萬化!  好神!

    CountA(Range("C:C")    我不清楚錯在哪?!---->可以告訴我錯誤?!
    延遲 Sleep 2000 也不知道為何不行，會出現偵錯--->延遲的語法,請版大指導,謝謝!

   --->有個想法是用對話框輸入指定欄位，一次唸一句。不要〔延遲〕設定　　－－＞拜託版大指導，謝謝。
   
   版大提供 [c65536].End(3).Row 我趕快Google

   [C65536].End(xlUp).Row
   [C65536].End(xlDown).Row
   還有點"霧煞煞"，End(3)--->3應該指的是C
   UP & Down ?!

TOP

HSIEN6001

帖子
219 
主題
24 
精華
0 
積分
243 
點名
0  
作業系統
Windows10 
軟體版本
Office2016 
閱讀權限
20 
性別
女 
註冊時間
2012-4-18 
最後登錄
2022-2-7 

論壇榮譽勳章論壇贊助勳章
3#
發表於 2012-4-24 16:43 | 顯示全部帖子
本帖最後由 HSIEN6001 於 2012-4-24 17:03 編輯

回復 3# oobird

  版大,拍謝!  這網址,偶不知道按哪個下載!
優化（蛋）下載？！

　剛剛選 mike 發音較正常些!~謝謝^^

TOP

HSIEN6001

帖子
219 
主題
24 
精華
0 
積分
243 
點名
0  
作業系統
Windows10 
軟體版本
Office2016 
閱讀權限
20 
性別
女 
註冊時間
2012-4-18 
最後登錄
2022-2-7 

論壇榮譽勳章論壇贊助勳章
4#
發表於 2012-4-24 22:19 | 顯示全部帖子
回復 6# Hsieh


    謝謝Hsieh 版主的解析，我大略懂意思了
　我會再加把勁學習的，另一個想法我自己繼續努力看看
　
　屆時再商請指導！
　∼感恩！

TOP

HSIEN6001

帖子
219 
主題
24 
精華
0 
積分
243 
點名
0  
作業系統
Windows10 
軟體版本
Office2016 
閱讀權限
20 
性別
女 
註冊時間
2012-4-18 
最後登錄
2022-2-7 

論壇榮譽勳章論壇贊助勳章
5#
發表於 2012-4-25 13:04 | 顯示全部帖子
可以用了耶!
  1. Sub SpeEnginBox()
  2. Dim i
  3.     Application.ScreenUpdating = False
  4.     i = InputBox("請輸入欲發音列, 格式 1、2、3...", , 2)
  5.     Application.DisplayAlerts = False
  6.         Set oSa = CreateObject("SAPI.SpVoice")
  7.         oSa.Volume = 100
  8.         oSa.Rate = -1
  9.         oSa.Speak Cells(i, 3)
  10.         Sleep 2000
  11. End Sub
複製代碼
剪剪貼貼ㄉ語法
有誤用的話，請大大們指點。

TOP

        靜思自在 : 君子為目標，小人為目的。
返回列表 上一主題