
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
時間ですと記載されているシートをシート1で記載します。
・vbaの強制終了方法はご存知でしょうか?
・また、pcの自動読み上げ設定はされているでしょうか?
上述2点確認できましたら以下のマクロを実行してみてください。
Do~Loopで指定時間まで待機しているので、やめたい場合はマクロの強制終了を実施してください。
Sub Sample1()
Dim stm As String
tm = Time
stm = "12:20:00" '←時間を変えるときはここを変えてください。
Do Until tm = stm
DoEvents
tm = Time
If tm = stm Then
ThisWorkbook.Sheets(1).Range("A1").Speak
End If
Loop
End Sub
No.1
- 回答日時:
こんばんは!
>A1セルに“時間です”と書き込み・・・
Sheet1のA1セルだとします。
↓の二つのコードを標準モジュールに記載し、「Sample1」を実行しておいてください。
Sub Sample1()
Application.OnTime TimeValue("23:00:00"), procedure:="読み上げ"
End Sub
Sub 読み上げ()
With Worksheets("Sheet1").Range("A1")
.Value = "時間です。"
.Speak
End With
End Sub
※ 23時まで待てない場合はコード内の時刻の部分で
例えば今から1分後などに変更してみてください。m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELで特定のセルに表示...
-
Excel内での検索結果をシート...
-
Excelで、図形内の文字をセルに...
-
クリックすると文章が表示され...
-
エクセル 数字をすべて○などの...
-
マクロを実行すると画像がズレ...
-
エクセルでPDFリンクを大量...
-
Excel ハイパーリンクのURLを別...
-
エクセル 未入力セルがあると...
-
Excel2007 色のカウント (VBA)
-
EXCEL プルダウンから指定セル...
-
VBA(エクセル)のコンパイルエラー
-
セル背景や文字を点滅させる方法
-
ページ内ハイパーリンクの表示...
-
太字に設定されているセルの個...
-
Excel:セルの値(文字列)を数...
-
空白セルを空セルに置き換える...
-
開始行と最終行を指定して差し...
-
ワードの様に新規保存時に自動...
-
アポストロフィーの一括挿入 ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELで特定のセルに表示...
-
Excel内での検索結果をシート...
-
エクセル 数字をすべて○などの...
-
Excelで、図形内の文字をセルに...
-
クリックすると文章が表示され...
-
Excelでセルをクリックす...
-
Excel ハイパーリンクのURLを別...
-
マクロを実行すると画像がズレ...
-
太字に設定されているセルの個...
-
Excel2007 色のカウント (VBA)
-
フォントの色を指定して削除出...
-
エクセルVBA
-
Excel:セルの値(文字列)を数...
-
エクセル 未入力セルがあると...
-
現在のセルの位置を返す関数は...
-
エクセルでPDFリンクを大量...
-
セルの内容をテキストボックス...
-
シート保護とグループ化機能を...
-
ページ内ハイパーリンクの表示...
-
空白セルを空セルに置き換える...
おすすめ情報