いつもお世話になります。
OSは、Win10 エクセルは、2016 です。
下記の参考構文は「現在日時」ボタンをクリックすると「A1」に
日日、時間、分そして秒が表示されます。
ただこの表示は何時までもブックを閉じない限り稼働するので、一時停止を追加したいです。
※再開は、「現在日時」ボタンをクリックすると「A1」に表示させたい。
「一時停止」ボタンをクリックして一時停止させるには、
どんなコードを追加すればいいかご指導いただけませんでしょうか。
参考に
Sub sample()
Dim myTime As Date
myTime = CDate(Format(Now() + TimeValue("00:00:01"), "hh:mm:ss"))
Range("A1").Value = Now()
Columns("A").AutoFit
Application.OnTime myTime, "Sample"
End Sub
No.1ベストアンサー
- 回答日時:
こんなので、参考になりますか?
Sub 開始()
Application.Calculation = xlAutomatic
Call sample
End Sub
Sub 一時停止()
Application.Calculation = xlManual
End Sub
Sub sample()
Dim myTime As Date
myTime = CDate(Format(Now() + TimeValue("00:00:01"), "hh:mm:ss"))
Range("A1").Value = Now()
Columns("A").AutoFit
If Application.Calculation = xlAutomatic Then
Application.OnTime myTime, "Sample"
End If
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/08/09 10:33
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/08/08 15:45
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2023/01/23 17:13
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Excel(エクセル) 指定文字列が該当するA列をアクティブセルにするには 3 2022/08/17 13:18
- Excel(エクセル) 【マクロ】ボタンを押すごとに、A1セル、A2セル、A3セルに日付を入力 3 2023/01/25 00:12
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセルVBAにおけるON TIMEメソッドの解除方法について
Visual Basic(VBA)
-
OnTime の中断方法について
Excel(エクセル)
-
「一定の時間間隔で5秒毎にMacro1を実行する」
Excel(エクセル)
-
-
4
Excel(エクセル) VBA プロシージャーをミリ秒で繰り返し実行する方法
Excel(エクセル)
-
5
ontimeのリセット方法
Excel(エクセル)
-
6
エクセルで定期的(30分おき)にマクロを実行させる方法は?
Excel(エクセル)
-
7
OnTime を使って、分間隔で実行したいのですが
Visual Basic(VBA)
-
8
Excel VBAで「プログラム実行」ボタンと「プログラム停止」ボタンをつけたい
Excel(エクセル)
-
9
タイマーマクロの二重起動防止をしたい
Visual Basic(VBA)
-
10
エクセル時間毎ごとにマクロを実行するやり方。
Excel(エクセル)
-
11
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
12
ユーザーフォーム上に現在日時と時刻を表示させていますがフォームを実行すると時間が更新されません。それ
Visual Basic(VBA)
-
13
エクセルでエラーが出て困っています。
Excel(エクセル)
-
14
エクセルのマクロを一定時間ごとに実行
Excel(エクセル)
-
15
OnTimeの取り消しについて
PowerPoint(パワーポイント)
-
16
EXCELのVBAでシートコピーをしたとき元のマクロを削除するには?
Excel(エクセル)
-
17
vba セルに入力した時間をマクロで受け取るには?
Excel(エクセル)
-
18
エクセル イベントマクロ Changeイベントを複数作りたい
Access(アクセス)
-
19
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
20
VBA(エクセル)のユーザーフォームの固定
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
サンダーバードの検索欄が消えた。
-
1ピクセルって何ミリですか?
-
最近家具などをGoogle検索かけ...
-
PDFファイルのパスワードを解除...
-
Quick TIme Playerで全画面表示...
-
http://jpg4.us/
-
becky2の本文表示エリアの背景...
-
秀丸の文字サイズ
-
リンクをクリックするとダウン...
-
右上のX(閉じる)_(縮小)...
-
エクセルウィンドウのサイズ変...
-
ワードの画面が小さい
-
outlookのツールバーが縦になっ...
-
Googleについてです。 いきなり...
-
google chrome タブ設定の質問です
-
Sleipnirで下のバーをなくしたい
-
Chromeでダウンロードせずに、...
-
マルチディスプレイからシング...
-
もっと楽しくGoogle Earthを使...
-
FTPサーバのログインに必要なパ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
サンダーバードの検索欄が消えた。
-
VBA Ontime を一旦停止をさせる...
-
word2007 クイックアクセスツ...
-
YoutubeでVRゴーグル用の切り替...
-
ACCESSのフォーム上のPDFのツー...
-
ワードのツールバーと文書の間...
-
マイクロソフトの新サービス「...
-
新着一覧の表示させ方
-
ubuntuでウインドウを最小化したら
-
容量を表す単位記号を探しています
-
アクセラレータボタンが出てこ...
-
PDFファイルのパスワードを解除...
-
1ピクセルって何ミリですか?
-
エクセルウィンドウのサイズ変...
-
http://jpg4.us/
-
右上のX(閉じる)_(縮小)...
-
リンクをクリックするとダウン...
-
最近家具などをGoogle検索かけ...
-
becky2の本文表示エリアの背景...
-
outlookのツールバーが縦になっ...
おすすめ情報