ＶＢＡ マクロ タイマーカウントダウンの自動停止
マクロの初心者です。どなたか教えていただけないでしょうか？
お手数おかけします。
２つ質問があります。
１つ目の質問：
Option Explicit
Private TB As Integer
Private MacroStop AS Boolean
Private ＺＡN As Integer
Private C As Integer
・・・
Sub 現在時刻から時分秒を取り出す（）
・・・・
Ｅｎｄ Ｓｕｂ
Ｓｕｂ 時間計算（）
・・・・
Ｒａｎｇｅ（”Ｅ８”） = ＴＢ
Ｓｕｂ 指定時刻にマクロを実行する（）
mywait = 1 ’１秒
指定時刻 = Ｎｏｗ ＋ ＴｉｍeSerial（０，０，mywait)
Ｉｆ ＺＡＮ ＞＝ ０ Ｔhen
If MacroStop = False Then
Application.OnTime 指定時刻,"指定時刻にマクロを実行する
Ｃａｌｌ やりたいこと
Ｅｌｓｅ
End If
Else
ＭａｃｒｏＳｔｏｐ = Ｆａｌse
Ｅｎｄ Ｉｆ
Range("K１６" ) = Range("K１６") + 1
Ｅｎｄ Ｓｕｂ
Ｓｕｂ やりたこと（）
Ｃ ＝ Ｃ ＋１
ＺＡＮ = ＴＢ － Ｃ
・・・・
Ｔｏｔａｌ＝ ＨＨ＆”：”＆ＭＭ＆”：”ＳＳ
Ｒａｎｇｅ（”Ｄ１２”）＝Ｔｏｔａｌ
Ｓｕｂ タイマー停止（）
ＭａｃｒｏＳｔｏｐ ＝ Ｔｒｕｅ
Ｒａｎｇｅ（”Ｅ８”）．ＣｌｅａｒＣｏｎｔｅｎｔｓ
Ｒａｎｇｅ（”Ｄ１２”）．ＣｌｅａｒＣｏｎｔｅｎｔｓ
Ｅｎｄ Ｓｕｂ
仮にＴＢの初期値が２８８００（8時間）、Ｃの初期値が０だとして、
タイム イズ オーバーになった場合、
たとえばＺＡＮ ＜ ０
のとき、
タイマーマクロが自動停止し、
Ｒａｎｇｅ（”Ｋ１６”） ＝ Ｒａｎｇｅ（”Ｋ１６”） ＋ １
とフラグをたててカウントアップさせるなど考えましたが、
ＺＡＮは、２８８００、２８７９９、２８７９８・・・トと正常にカウントダウンし、
自動では止まりますが,
Ｔｏｔａｌ = 0：0：-1でおわり、（０：０：０でおわりたい）
しかもフラグカウンターは１，２，３，４・・・と秒刻みでカウントアップしてしまいます。
カウンターは、1回のタイマーが終われ（２８８００秒たてば）ば、1カウントアップさせたいのです。
どのようにプログラムを組めば、タイマーが０：０：０で自動停止し、
またカウンターもタイマー（暫定：２８８００秒=８時間）たてば１カウントアップさせることが
できるのでしょうか？
2つ目：タイマー作動中は、画面が強制的に左寄せ・上詰めになってしまい、自由にスクロール
できません。どうすれば自由にスクロールさせることができるのでしょうか？
以上、2点です。よろしくお願いします。
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c205_3_thumbnail_img_sm.png)
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c205_4_thumbnail_img_sm.png)
お礼
有難うございました。早速リチウム電池を取り替えました。 簡単なことで十分承知しながら、めったに電池切れまで使う ことがなく、みっともなくも「慌ててしまいました」。御礼。