Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

9148 / 13644 ﾂﾘｰ

←次へ　｜　前へ→

▼

【29065】読み上げる 教えて 05/9/22(木) 22:48

【29068】Re:読み上げる ponpon 05/9/22(木) 23:23

【29088】Re:読み上げる 教えて 05/9/23(金) 19:37

【29089】Re:読み上げる Lion 05/9/23(金) 20:35


	【29065】読み上げる

教えて - 05/9/22(木) 22:48 -


	引用なし

	パスワード

はじめまして
VBAを使ってワークシートに打ち込んだ、数字を読み上げさせたいんですが、
API関数などを使えば出来るような出来ないような....
まずは、読み上げが出来るのかしりたいです。おねがいします。
ちなみに、数字は3桁でランダムな数値です


	【29068】Re:読み上げる

ponpon - 05/9/22(木) 23:23 -


	引用なし

	パスワード

こんばんは。
Excelのバージョンは、何ですか？
2002以降なら、音声読み上げ機能がありますから、

Sub Macro1()
　　Dim myR As Range, C As Range
　　
　　Set myR = Range("A1:A10")
　　For Each C In myR
　　　 C.Speak
　　Next
End Sub
こんな感じで読み上げてくれると思います。

ここがいいかも
http://www.cs.k.tsukuba-tech.ac.jp/labo/koba/software/excel.html


	【29088】Re:読み上げる

教えて - 05/9/23(金) 19:37 -


	引用なし

	パスワード

回答ありがとうございます。
バージョンは2000なんですが...
2000では無理なんでしょうか？バージョンアップしたほうが簡単でしょうか？


	【29089】Re:読み上げる

Lion - 05/9/23(金) 20:35 -


	引用なし

	パスワード

こんばんは

APIを使ってWAVファイルを鳴らせます。
0から9までのWAVファイルを作成して
組み合せてみてはいかがでしょう。
でも、おかしな日本語になるかも

'---標準モジュール
Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" _
　　　(ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Public Const snd_async = &H1&
Public Const snd_loop = &H8&
'---------------------------------------
Sub TEST
Dim mySound As String
mySound = "\hoge1.wav"
PlaySound ActiveWorkbook.Path & mySound, 0&, snd_async
End Sub


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

9148 / 13644 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free