こんにちは。わかる方教えて下さい。
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も見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
セルの時刻になったらアラームを鳴らす
Excel(エクセル)
-
Excelで一定時間が経ったらメッセージを出したい
Excel(エクセル)
-
EXCELのセルへ、デジタル時計を表示できますか?
Excel(エクセル)
-
-
4
時間がきたらポップアップ表示してくれるサービス
その他(パソコン・スマホ・電化製品)
-
5
エクセル条件付書式で指定の時間が過ぎていたらフォントの色を変える
Excel(エクセル)
-
6
エクセル マクロ 指定日の指定時刻にプロシージャを実行
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel VBA 『Call』で呼び出す...
-
Excel VBA 定義されたプロージ...
-
VBA This Workbookモジュール...
-
Excel VBAでリンク切れをチェッ...
-
Excel VBAで、ユーザーフォーム...
-
VBAで別モジュールへの変数の受...
-
エクセルVBAでシートモジュール...
-
VBでグローバル変数を宣言するには
-
現在アクティブなフォーム名を...
-
モジュールとクラスの違いって...
-
【vba】フォームに書いてあ...
-
VB2005ーDataGridViewの選択さ...
-
'Range'メソッドは失敗しました
-
Access VBA標準モジュールにつ...
-
ユーザー定義関数に#NAME?が返...
-
Excel VBA 標準モジュール内で...
-
モジュールとは何ですか
-
XAMPPでperlからMySQL
-
Workbook.BeforeSave イベント...
-
モジュールを使わないで画像サ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBAでリンク切れをチェッ...
-
Excel VBA 定義されたプロージ...
-
ArduinoのジャイロモジュールMP...
-
ユーザー定義関数に#NAME?が返...
-
VBAで別モジュールへの変数の受...
-
Excel VBA 『Call』で呼び出す...
-
エクセルVBAでシートモジュール...
-
モジュールとは何ですか
-
VBA This Workbookモジュール...
-
VBでグローバル変数を宣言するには
-
グラフのX,Y座標を取得したい
-
モジュールの最大数はいくつな...
-
【vba】フォームに書いてあ...
-
VBAで旧字体を異字体に一括で変...
-
Excel VBAで、ユーザーフォーム...
-
Form間の値の渡し方
-
モジュールとクラスの違いって...
-
Access VBA標準モジュールにつ...
-
本当にPublicな変数(配列で)
-
標準モジュールを削除したい。(...
おすすめ情報