![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
A1セルにリアルタイムの時刻が表示されているシートですがB1にOkといれたとしてこれをある時刻になると自動で毎日消えるマクロをどなたかお答えいただければと思い投稿します。
例ですが、
A1が15:30になったらB1のセル内にある文字例えばOKが消えるというものでこれを毎日行いたく思ってます。朝8:00にOKをB1に入力その後夕方の15:30になると消えるという感じです。関数ではちょっと無理そうなのでマクロにてお願いできればと思います。
また、時間ですが、日にちを一日またいでというのも検討いただきたいのです。
例えば朝8:00にB1にOKを記載して翌日のAM5:30になったら消えるという感じのものです。
OKの入力は毎日行う作業です。ちょっとわかりずらいかもしれませんが検討よろしくお願いします。
No.4ベストアンサー
- 回答日時:
#1の回答者です。
>A1はnow関数とちょっとしたマクロ使用してます。
>最後の行にprivateとありますが、この下にend subをいれない
そんなハズはないのですが、もう一度よく見ていただきたいのです。
私のコードは、あくまでも、内部PCの時間ですから、#1の表示は直接的にはありません。なお、これらは、一番簡単な部類のものに入ります。高度なものもありますが、今のところは、やめておきます。
Sub OnTimeTest()
'--略--
End Sub
'------------
Private Sub TimeMacro()
'--略--
End Sub
'----------
リアルタイプ表示は、こんな内容でしょうか。負担をなるべく減らすように作らないといけません。
'-標準モジュール
Option Explicit
Dim flg As Boolean
Dim myTimeReal As Date
'-------------
Option Explicit
Dim flg As Boolean
Dim myTimeReal As Date
Sub TestCalculation()
myTimeReal = Now + TimeValue("0:1:0")
Application.OnTime myTimeReal, "TestCalculation"
Range("A1").NumberFormat = "hh:mm"
Range("A1").Value = myTimeReal
DoEvents
End Sub
'-------------
Sub QuitWatch()
'終了のためのマクロ
Application.OnTime myTimeReal, "TestCalculation", , False
Beep
End Sub
No.3
- 回答日時:
先ほどの質問にお答えいただけないので、勝手に少なくても指定時刻には立ち上がっている物としての回答になります。
対象のシートの「Worksheet_Change」イベントに書き込んでください。
--------------------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Format(Target.Value, "hh:mm") = "15:30" Then
Range("B1").ClearContents
End If
End If
End Sub
--------------------------------------------------------------------------------
![「エクセル」の回答画像3](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/a/542332295_5a48906331466/M.png)
No.1
- 回答日時:
>A1セルにリアルタイムの時刻が表示されているシートですが
これ自体がマクロですね。Win APIを使っているのでしょうか?
それとも、ActiveX コントロールでしょうか。
それでも、以下のマクロはたぶん、問題はないと思います。
ただし、この場合は、ブックを開けたままの状態という前提です。
Sub OnTimeTest()
Dim SetTime As Date
SetTime = TimeValue("1:00")
'もし、現在の時刻よりも前の時間に設定されれば、24時間後の時間
If SetTime < Now Then SetTime = 1 + SetTime
Application.OnTime SetTime, "TimeMacro", TimeSerial(0, 1, 0), True
End Sub
Private Sub TimeMacro()
ThisWorkbook.Worksheets("Sheet1").Range("B1").Value = ""
Beep
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルで月末、月初の判定をしたい。 4 2022/05/18 23:22
- Excel(エクセル) エクセルで、特定のセルの内容を更新すると、別の特定セルに 更新日付が自動的に表示させる方法はあります 1 2022/11/14 21:03
- Excel(エクセル) Excel ある日の45日後の計算 及び 3か月後の計算 6 2022/04/05 13:44
- Excel(エクセル) 【再度】Excelの関数について教えてください。 4 2023/07/28 13:06
- Excel(エクセル) エクセルで 例えばA1のセルに1+1 と入力すると B1のセルに2 と答えが出る関数があったと思いま 8 2022/12/16 20:57
- Visual Basic(VBA) 別シートに順番で貼り付け 2 2023/04/13 19:53
- Excel(エクセル) エクセルVBAでセルに表示されているとおりの数値を取得したい(時間の計算結果) 1 2022/03/30 17:52
- Excel(エクセル) Excelの関数について教えてください。 5 2023/07/28 11:27
- その他(Microsoft Office) 従業員増減対応で当番種類の増減対応な当番表 21 2022/07/19 07:30
- Excel(エクセル) Excelで数式をそのままコピーしたい どうすればいいですか? 4 2022/09/16 02:16
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのツールバーから数値...
-
祝日と土曜、日曜の合計をカウ...
-
【マクロ】2回実行したら、エ...
-
特定の文字列を含む、住所を抽...
-
EXCELの散布図で日付が1900年に...
-
マイクロソフトのPADを使ってい...
-
Excel分数の表示について
-
Excelで表を作ったところに文字...
-
マクロエクセルのブロック解除
-
文字2桁、3桁交じりの文字列...
-
絶対参照
-
Excelについての質問です。 B2...
-
在庫管理表に使うエクセルの関...
-
【マクロ】VLOOKUPにて参照元に...
-
【EXCEL】画像の黄色部分の抽出...
-
DATE関数で現在の年齢を出した...
-
ユーザー定義関数をアドイン登...
-
エクセルでの作業計算方法について
-
行数が不規則な一週間ごとの合...
-
Excelピボットテーブルの1行目
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
半角カタカナをヘボン式ローマ...
-
(マクロ)vlookupの元データを同...
-
エクセルで上位バイトのセルと...
-
exselの質問です
-
Excel 大小比較演算子による「...
-
Excel VBについての質問です。
-
エクセルの問題です。絶対値の...
-
非表示列の再表示に失敗
-
職場の人から聞かれており、こ...
-
Excel関数-文字列で自動作成さ...
-
Excelデータをコピペして、ペー...
-
ユーザー定義関数をアドイン登...
-
【マクロ】for next構文について
-
エクセルの日付を編集する
-
【マクロ】VLOOKUPにて参照元に...
-
exselで最小数で並び替える関数
-
libre 表計算ソフトの計算がう...
-
エクセルで表
-
エクセルの表で1年間の曜日を...
-
西暦和暦
おすすめ情報
マクロありがとうございます。A1はnow関数とちょっとしたマクロ使用してます。4行くらいのものです。いただいたマクロなんですが、ちょっとうまくいかない感じです。これはtimevalueのあとに任意の時間を入力すると稼働するかんじですか?
このままでいれてみたのですが、a1が指定時刻(例えば15:00)を過ぎてもb1に記入している文字は消えないままなのですが、素人ですみません。ご検討お願いします。
また、最後の行にprivateとありますが、この下にend subをいれないとマクロ無効になってしまうので自分で最後の行にend sub書き込んでます。これが原因でしょうか?