![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
こんにちは。わかる方教えて下さい。
Excelで作成したいのですが、セルA1とA2に時間(例:13:00と14:00)をそれぞれ入力。
その時刻になったら音を鳴らして知らせるようにしたいと思っています。
いろいろサイトをみていますが初心者なのでよくわかりません。
OnTimeを使用したらよいと記載されているサイトが多いのですが、使い方がいまいちです。
どのようにしたらよいのか教えていただけないでしょうか。
また、それぞれその時間になったらセルA1とA2に色がつくようにできますかよろしくお願いいたします。
参考URL
http://excel-ubara.com/excelvba5/EXCEL104.html
を試してみましたがうまくいきませんでした。
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
#1です。
「これとは別に・・・」
何を言っているやら。
ちゃんと色も変わるように作ってあるはずだが、何が不足なんでしょうね。
誰かが作ったものをそのまま使うということではなくて、それを参考にして自分で調べ、考えるのでなければ、思うようなことはできないね。全部誰かに作ってもらうというのであれば、それ相当の対価が必要と思うが。
No.1
- 回答日時:
自動的に実行されるように、A1,A2のあるシートのWorkSheetモジュールに次のChangeイベントを書く。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("A1") Or Range("A2") Then
SetOnTime
End If
End Sub
標準モジュールに次のようにを書く。始めのPublic Declare は、Beep関数を使えるようにするため。
Public Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Sub SetOnTime()
On Error Resume Next
Application.OnTime Range("A1"), "CallBeep", , False
Application.OnTime Range("A2"), "CallBeep", , False
Application.OnTime Range("A1"), "CallBeep"
Application.OnTime Range("A2"), "CallBeep"
End Sub
Sub CallBeep()
If TimeValue(WorksheetFunction.Text(Now, "h:mm")) = Range("A1") Then
Call Beep(500, 500)
Range("A1").Interior.ColorIndex = 3
End If
If TimeValue(WorksheetFunction.Text(Now, "h:mm")) = Range("A2") Then
Call Beep(1000, 500)
Range("A2").Interior.ColorIndex = 4
End If
End Sub
ご回答いただきありがとうございます。参考にして使用させていただきます。
これとは別に指定した時間(例:13:00)に自動でセルの色を変えることは可能でしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセル 条件に合う日付に入力された時間数の合計したい 4 2022/06/17 22:18
- Excel(エクセル) Excelについて Excel初心者です。 日報に数字を入力する時、誤った数字を入れると、セルが赤く 6 2023/03/31 17:05
- Excel(エクセル) 重複したデータ(空白は除く)のVBA表記について 4 2022/08/15 07:28
- Excel(エクセル) Excel関数で日またぎの勤務時間にしるしを立てる 2 2022/04/20 17:22
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Excel(エクセル) 至急 Excel日付表示設定教えてください Excelの日付表示ですが、他者から送られてくるExce 6 2023/02/03 11:01
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- その他(Microsoft Office) Wordを変換してExcelに挿入 2 2022/07/04 23:59
- Excel(エクセル) Excelについて 1 2023/03/06 10:26
- Excel(エクセル) 添付写真上のExcelシートのように時間と曜日ごとに担当者が振り分けられているシートがあります。 例 1 2023/03/08 13:02
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
セルの時刻になったらアラームを鳴らす
Excel(エクセル)
-
エクセル条件付書式で指定の時間が過ぎていたらフォントの色を変える
Excel(エクセル)
-
Excelで一定時間が経ったらメッセージを出したい
Excel(エクセル)
-
-
4
ビープ音を連続して鳴らす
Visual Basic(VBA)
-
5
エクセル、条件を満たしたら音を鳴らす方法教えて下さい
Excel(エクセル)
-
6
EXCELのセルへ、デジタル時計を表示できますか?
Excel(エクセル)
-
7
vba セルに入力した時間をマクロで受け取るには?
Excel(エクセル)
-
8
エクセルにアラーム機能ってありますか?
Excel(エクセル)
-
9
時間がきたらポップアップ表示してくれるサービス
その他(パソコン・スマホ・電化製品)
-
10
エクセルファイルで指定期間に自動ポップアップメセージを出す
Excel(エクセル)
-
11
エクセル マクロ 指定日の指定時刻にプロシージャを実行
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ユーザー定義関数に#NAME?が返...
-
エクセルVBAでシートモジュール...
-
【vba】フォームに書いてあ...
-
Excel VBAでリンク切れをチェッ...
-
モジュールとは何ですか
-
モジュールとクラスの違いって...
-
VBAで別モジュールへの変数の受...
-
Perlでモジュールをインストー...
-
モジュールからフォームのボタ...
-
VBA モジュールで共通に使う変...
-
クラスモジュールについて
-
VBAProjectのモジュ...
-
グラフのX,Y座標を取得したい
-
標準モジュールが1から3まで...
-
vba userFormのSubを標準モジュ...
-
Access runtimeについて
-
VBAのバージョン管理
-
シャープ製品JH-WB1821 と BCG...
-
Excel2003でSheets1をExport
-
現在アクティブなフォーム名を...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBAでリンク切れをチェッ...
-
ユーザー定義関数に#NAME?が返...
-
VBAで別モジュールへの変数の受...
-
VBでグローバル変数を宣言するには
-
エクセルVBAでシートモジュール...
-
'Range'メソッドは失敗しました
-
グラフのX,Y座標を取得したい
-
VBA This Workbookモジュール...
-
Excel VBA 『Call』で呼び出す...
-
【vba】フォームに書いてあ...
-
VBAで旧字体を異字体に一括で変...
-
Excel VBAで、ユーザーフォーム...
-
モジュールとクラスの違いって...
-
Excelで時刻になったら知らせて...
-
Access VBA標準モジュールにつ...
-
Excel VBA 定義されたプロージ...
-
標準モジュールを削除したい。(...
-
モジュールとは何ですか
-
ベースモジュールって?
-
acwzlibとは?
おすすめ情報