回答編集履歴
2
誤字修正
answer
CHANGED
|
@@ -1,6 +1,6 @@
|
|
|
1
1
|
VBAの性質上、複数のイベントを同時に発生させることは不可能と思われます。
|
|
2
2
|
なのでドラッグ中の画面更新はあきらめるとして、カウントだけは正しく行われるような方向にするべきかと思います。
|
|
3
|
-
方法としては、ボタンクリックに開始時の時間を保持しておいて、1秒ごとのイベントでは現在時間と
|
|
3
|
+
方法としては、ボタンクリックに開始時の時間を保持しておいて、1秒ごとのイベントでは現在時間と開始時間の差分で秒数を算出します。
|
|
4
4
|
以下サンプルです。
|
|
5
5
|
|
|
6
6
|
```VBA
|
1
余計な行削除
answer
CHANGED
|
@@ -22,7 +22,6 @@
|
|
|
22
22
|
'1秒後にmacro100810aを実行
|
|
23
23
|
Dim cnt
|
|
24
24
|
cnt = DateDiff("s", togSt, Now) ' 経過秒数を計算
|
|
25
|
-
Debug.Print togSt, Now
|
|
26
25
|
Worksheets("工程表").Range("A11") = cnt
|
|
27
26
|
frmStopTIme.Label1.Caption = cnt
|
|
28
27
|
Application.OnTime Now() + TimeValue("00:00:01"), "macro1"
|