Excelでタイマーを作ったけど、一時停止できないとやっぱ面白くないと気づき、一時停止機能を付け加えたいが、まだ勉強し始めたばかりなので自分でコードが書けません。
なので、一時停止させるコードがわかる方教えてください。
<タイマーのコード>
Sub タイマー()
Dim EndTime
Dim PassTime
EndTime = Timer + Range("D5").Value * 60 + Range("F5").Value
Do
PassTime = Timer
Range("D5").Value = (EndTime - PassTime) \ 60 '分
Range("F5").Value = (EndTime - PassTime) Mod 60 '秒
DoEvents
Loop Until EndTime - PassTime <= 0
Beep
MsgBox "時間です"
End Sub
No.2ベストアンサー
- 回答日時:
#1さんのように突っぱねることが、本来は親切なのだと思います。
ただ、掲示板というのは、締め切りはあっても、書かれたものは、時間というものが存在しない世界(一期一会)ですから、回答をせざるを得ないのは、ご容赦願います。以下は、ある程度マクロが書ける人なら、考えつくはずです。
本来は、マクロの実行中に、割り込みが利かないのですが、なぜ可能なのか分かりますか?
それが分かりさえすれば、割り込み方法も思いつきます。
'//
Dim blnSw As Boolean 'スイッチ
Private Sub CommandButton1_Click()
Dim EndTime As Double
Dim PassTime As Double
EndTime = Timer + Range("D5").Value * 60 + Range("F5").Value
Do
PassTime = Timer
Range("D5").Value = (EndTime - PassTime) \ 60 '分
Range("F5").Value = (EndTime - PassTime) Mod 60 '秒
DoEvents
If blnSw Then blnSw = False: Exit Sub
Loop Until EndTime - PassTime <= 0
Beep
MsgBox "時間です"
End Sub
Private Sub CommandButton2_Click()
'途中で止める
blnSw = True
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルVBAのコードで質問です。 下のコードはJ16の文字列をB3を起点とする範囲から探して、見つ 5 2023/04/07 11:07
- Visual Basic(VBA) 動きっぱなしです。止め方とプロシージャの間違いを教えて下さい! 5 2022/08/15 23:08
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Excel(エクセル) vba userformで漢字を全角カタカナに 2 2022/07/24 15:38
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Visual Basic(VBA) 稀に1円合いません? Sheet1から金額と個数を貼り付ける下記コードで、金額を切り上げるコードを何 3 2022/09/05 15:11
- Visual Basic(VBA) 別シートのデータを参照して値を入れたい。 まとめデータシートのC列D列の値を商品一覧シートのコードが 7 2022/08/17 13:20
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
スーパーのレジで並んでいたら...
-
irqbalance って
-
AKI-H8/3048Fでのタイマ割り込み
-
アトメル社製ATtiny2313マイコ...
-
pic 複数の割り込み関数 切り分...
-
アセンブラのタイマー割り込み
-
picタイマ0割り込みについて
-
[コンピュータアーキテクチャ]...
-
インバウンドで迷惑している人...
-
マイコンの割り込みについて教...
-
一定時間操作がなかったら、と...
-
H8/3052F/IRQを使った割り込み
-
電車で待機列の割り込みについ...
-
USB機器からのデータ受信による...
-
PIC16F84AのRBポート変化割り込...
-
割り込み処理から引数を取得す...
-
Macターミナルで実行中のプログ...
-
VBAの配列サイズとメモリに関して
-
なんかC言語でプログラム書いて...
-
VBSの処理中一旦処理を止めて再...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
インバウンドで迷惑している人...
-
pic 複数の割り込み関数 切り分...
-
スーパーのレジで並んでいたら...
-
ショッピング
-
Excelでタイマーの一時停止する...
-
電車で待機列の割り込みについ...
-
CPUの処理量を減らすコーデ...
-
C言語でPICマイコン開発
-
【組込み】割り込み中のstatic...
-
Amazonfireタブレットにわから...
-
マイコン C言語 割り込み処理...
-
USB機器からのデータ受信による...
-
一定時間操作がなかったら、と...
-
VB.net 割り込みの禁止
-
ウォッチドッグタイマ(WDT)の...
-
電車乗車時、並んでいるのに割...
-
USJでの割り込み
-
VB6でSendKeyを利用したTab移動...
-
PICでのプログラムによるチャタ...
-
割り込み中に例外異常
おすすめ情報