こんにちは。わかる方教えて下さい。
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のセルへ、デジタル時計を表示できますか?
Excel(エクセル)
-
-
4
エクセル条件付書式で指定の時間が過ぎていたらフォントの色を変える
Excel(エクセル)
-
5
ビープ音を連続して鳴らす
Visual Basic(VBA)
-
6
vba セルに入力した時間をマクロで受け取るには?
Excel(エクセル)
-
7
エクセルにアラーム機能ってありますか?
Excel(エクセル)
-
8
時間がきたらポップアップ表示してくれるサービス
その他(パソコン・スマホ・電化製品)
-
9
エクセルファイルで指定期間に自動ポップアップメセージを出す
Excel(エクセル)
-
10
エクセル マクロ 指定日の指定時刻にプロシージャを実行
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA This Workbookモジュール...
-
エクセルVBAでシートモジュール...
-
VBAで別モジュールへの変数の受...
-
'Range'メソッドは失敗しました
-
Excel VBA 『Call』で呼び出す...
-
VBAで旧字体を異字体に一括で変...
-
VBでグローバル変数を宣言するには
-
Sub Workbook_Open()でユーザー...
-
ユーザー定義関数に#NAME?が返...
-
Excel VBAで、ユーザーフォーム...
-
関数の引数にクラスを使いたい
-
モジュールの最大数はいくつな...
-
ユーザーフォーム上に表示され...
-
Excel VBAでリンク切れをチェッ...
-
モジュールとクラスの違いって...
-
ユーザーフォームに最小化・最...
-
excel2010で「次の非表示モジュ...
-
モジュールとは何ですか
-
NEC Livie U LU45L/33D の CP...
-
シートモジュールで使う変数を...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBAでリンク切れをチェッ...
-
エクセルVBAでシートモジュール...
-
VBAで別モジュールへの変数の受...
-
VBでグローバル変数を宣言するには
-
Excel VBA 『Call』で呼び出す...
-
Excel VBA 定義されたプロージ...
-
VBA This Workbookモジュール...
-
ユーザー定義関数に#NAME?が返...
-
Excel VBAで、ユーザーフォーム...
-
ArduinoのジャイロモジュールMP...
-
グラフのX,Y座標を取得したい
-
'Range'メソッドは失敗しました
-
VBAで旧字体を異字体に一括で変...
-
モジュールとクラスの違いって...
-
Excelで時刻になったら知らせて...
-
【vba】フォームに書いてあ...
-
モジュールとは何ですか
-
Access VBA標準モジュールにつ...
-
モジュールの最大数はいくつな...
-
VBのフォームモジュールと標準...
おすすめ情報