こんにちは。わかる方教えて下さい。
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も見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
セルの時刻になったらアラームを鳴らす
Excel(エクセル)
-
Excelで一定時間が経ったらメッセージを出したい
Excel(エクセル)
-
EXCELのセルへ、デジタル時計を表示できますか?
Excel(エクセル)
-
-
4
時間がきたらポップアップ表示してくれるサービス
その他(パソコン・スマホ・電化製品)
-
5
エクセル条件付書式で指定の時間が過ぎていたらフォントの色を変える
Excel(エクセル)
-
6
vba セルに入力した時間をマクロで受け取るには?
Excel(エクセル)
-
7
エクセル マクロ 指定日の指定時刻にプロシージャを実行
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel VBAでリンク切れをチェッ...
-
エクセルVBAでシートモジュール...
-
Excel VBA 『Call』で呼び出す...
-
VBでグローバル変数を宣言するには
-
Tomcat マイナーバージョン移行...
-
'Range'メソッドは失敗しました
-
モジュールの最大数はいくつな...
-
Excel VBA 定義されたプロージ...
-
Excel VBAで、ユーザーフォーム...
-
グラフのX,Y座標を取得したい
-
ユーザー定義関数に#NAME?が返...
-
VBAで別モジュールへの変数の受...
-
コンボボックスの変更に応じて...
-
EXECEL VBA コマンドボタンか...
-
モジュールとクラスの違いって...
-
VBAで旧字体を異字体に一括で変...
-
別シートに罫線がひけない
-
Perlでメール本文と添付ファイ...
-
pythonでファイル移動できません。
-
標準モジュールを削除したい。(...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBAでリンク切れをチェッ...
-
Excel VBA 定義されたプロージ...
-
ArduinoのジャイロモジュールMP...
-
ユーザー定義関数に#NAME?が返...
-
VBAで別モジュールへの変数の受...
-
エクセルVBAでシートモジュール...
-
Excel VBA 『Call』で呼び出す...
-
モジュールとは何ですか
-
VBA This Workbookモジュール...
-
VBでグローバル変数を宣言するには
-
グラフのX,Y座標を取得したい
-
VBAで旧字体を異字体に一括で変...
-
モジュールの最大数はいくつな...
-
【vba】フォームに書いてあ...
-
Excel VBAで、ユーザーフォーム...
-
Form間の値の渡し方
-
モジュールとクラスの違いって...
-
Access VBA標準モジュールにつ...
-
本当にPublicな変数(配列で)
-
標準モジュールを削除したい。(...
おすすめ情報