Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6802 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【42974】外部データ取り込み後の読み上げ 初心者 06/9/28(木) 12:52 質問[未読]
【42978】Re:外部データ取り込み後の読み上げ りん＠３時のおやつ 06/9/28(木) 15:10 回答[未読]
【43002】Re:外部データ取り込み後の読み上げ 初心者 06/9/28(木) 22:37 質問[未読]
【43047】Re:外部データ取り込み後の読み上げ りん 06/9/30(土) 10:09 回答[未読]
【42974】外部データ取り込み後の読み上げ
質問  初心者  - 06/9/28(木) 12:52 -
引用なし
パスワード
   エクセルの外部データの取り込み機能を利用して、あるＨＰからデータをエクセル上に取得しています。この際、「データ範囲のプロパティー」で５分毎にデータを更新するように設定しています。
そこで質問ですが、５分ごとのデータ更新直後に、更新データを音声で読み上げるマクロを作りたいのですが、良いアイディアをご教示ください。よろしくお願いします。
【42978】Re:外部データ取り込み後の読み上げ
回答  りん＠３時のおやつ  - 06/9/28(木) 15:10 -
引用なし
パスワード
   初心者 さん、こんにちわ。

>そこで質問ですが、５分ごとのデータ更新直後に、更新データを音声で読み上げるマクロを作りたいのですが、良いアイディアをご教示ください。よろしくお願いします。

読み上げの機能がインストールしてある前提です。

RangeオブジェクトのSpeakメソッドです。

Range("A1").Speak　または、
Range("A1:F10").Speak xlSpeakByRows 　 'ヨコに読む
Range("A1:F10").Speak xlSpeakByColumns 'タテに読む

詳細はヘルプを見てね。
【43002】Re:外部データ取り込み後の読み上げ
質問  初心者  - 06/9/28(木) 22:37 -
引用なし
パスワード
   回答ありがとうございます。
読み上げマクロはわかったのですが、5分ごとの外部データの取り込み後に読み上げマクロを自動実行させるにはどのようにすればよいのでしょうか。
【43047】Re:外部データ取り込み後の読み上げ
回答  りん E-MAIL  - 06/9/30(土) 10:09 -
引用なし
パスワード
   初心者 さん、おはようございます。

>読み上げマクロはわかったのですが、5分ごとの外部データの取り込み後に読み上げマクロを自動実行させるにはどのようにすればよいのでしょうか。
５分ごとの読み込みが設定でかかっているとしたら、イベントで拾えなかったので、ちょっと工夫が必要です。

外部データをとりこんでいる範囲がA1:H10、読みたい範囲がF1:F10だとして、どこかの空いてるセル(A11、I1、Z1、とにかく取り込み範囲外で、現在使用していないセル)に『=F1』という式をいれておく（外部データが取り込まれる範囲と数式でリンクさせておく）

ThisworkbookのSheetCalculateイベントに以下を記述

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
　 If Sh.Name = "Sheet1" Then　'シート限定
　　　Sh.Range("F1:F10").Speak xlSpeakByColumns 'タテに読む
　 End If
End Sub

OnTimerでタイマー設定して「データ読み込み→読み上げ」の方がいいかもしれません。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6802 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free