回答編集履歴
4
修正
test
CHANGED
|
@@ -2,7 +2,7 @@
|
|
|
2
2
|
|
|
3
3
|
|
|
4
4
|
|
|
5
|
-
でしたら、
|
|
5
|
+
でしたら、ループ中で毎回発行するのではなく10回に1回とかの割合で発行されるようにした方が良いのではないかと思います。（そもそも処理時間が掛かっている為の回避策に時間の間隔を条件にしてもという気が）
|
|
6
6
|
|
|
7
7
|
|
|
8
8
|
|
|
@@ -12,11 +12,11 @@
|
|
|
12
12
|
|
|
13
13
|
無限ループというより、Doeventsの発行がなされないということは考えられないでしょうか。
|
|
14
14
|
|
|
15
|
-
現在は、
|
|
15
|
+
現在は、ループ中でDoevensを呼び出していると思いますが、その処理自体が応答なしの状態では、Doeventsの発行のしようがないと思われます。
|
|
16
16
|
|
|
17
17
|
|
|
18
18
|
|
|
19
|
-
|
|
19
|
+
ループ開始前に[Application.OnTime メソッド (Excel)](https://msdn.microsoft.com/ja-jp/vba/excel-vba/articles/application-ontime-method-excel)によって、定期的に呼び出すようにしてみてはどうでしょう。
|
|
20
20
|
|
|
21
21
|
|
|
22
22
|
|
|
@@ -30,7 +30,7 @@
|
|
|
30
30
|
|
|
31
31
|
---
|
|
32
32
|
|
|
33
|
-
元々
|
|
33
|
+
元々ループ中の処理
|
|
34
34
|
|
|
35
35
|
> あるフォルダの容量を知る為に、フォルダ内のファイルを全て検索し、各ファイル容量を基にフォルダ容量を計算する
|
|
36
36
|
|
3
追記
test
CHANGED
|
@@ -23,3 +23,19 @@
|
|
|
23
23
|
因みに、Doeventsなどのイベント絡みをブレークポイントを設定して動作確認しようとしても、徒労に終わるケースが多いです。
|
|
24
24
|
|
|
25
25
|
なぜなら、ブレークポイントを設定すること自体でイベント消化が行われ、発生している事象の再現にはならないからです。
|
|
26
|
+
|
|
27
|
+
|
|
28
|
+
|
|
29
|
+
追記２
|
|
30
|
+
|
|
31
|
+
---
|
|
32
|
+
|
|
33
|
+
元々for文中の処理
|
|
34
|
+
|
|
35
|
+
> あるフォルダの容量を知る為に、フォルダ内のファイルを全て検索し、各ファイル容量を基にフォルダ容量を計算する
|
|
36
|
+
|
|
37
|
+
|
|
38
|
+
|
|
39
|
+
というのがどのようなコマンドで行われているのかは不明ですが、非同期処理であるが為に、Doeventsを行っているんだと思います。
|
|
40
|
+
|
|
41
|
+
この処理を同期型の処理に置き換えるのも別解になるかと。
|
2
追記
test
CHANGED
|
@@ -17,3 +17,9 @@
|
|
|
17
17
|
|
|
18
18
|
|
|
19
19
|
for文開始前に[Application.OnTime メソッド (Excel)](https://msdn.microsoft.com/ja-jp/vba/excel-vba/articles/application-ontime-method-excel)によって、定期的に呼び出すようにしてみてはどうでしょう。
|
|
20
|
+
|
|
21
|
+
|
|
22
|
+
|
|
23
|
+
因みに、Doeventsなどのイベント絡みをブレークポイントを設定して動作確認しようとしても、徒労に終わるケースが多いです。
|
|
24
|
+
|
|
25
|
+
なぜなら、ブレークポイントを設定すること自体でイベント消化が行われ、発生している事象の再現にはならないからです。
|
1
追記
test
CHANGED
|
@@ -3,3 +3,17 @@
|
|
|
3
3
|
|
|
4
4
|
|
|
5
5
|
でしたら、for文で毎回発行するのではなく10回に1回とかの割合で発行されるようにした方が良いのではないかと思います。（そもそも処理時間が掛かっている為の回避策に時間の間隔を条件にしてもという気が）
|
|
6
|
+
|
|
7
|
+
|
|
8
|
+
|
|
9
|
+
追記
|
|
10
|
+
|
|
11
|
+
---
|
|
12
|
+
|
|
13
|
+
無限ループというより、Doeventsの発行がなされないということは考えられないでしょうか。
|
|
14
|
+
|
|
15
|
+
現在は、for文中でDoevensを呼び出していると思いますが、その処理自体が応答なしの状態では、Doeventsの発行のしようがないと思われます。
|
|
16
|
+
|
|
17
|
+
|
|
18
|
+
|
|
19
|
+
for文開始前に[Application.OnTime メソッド (Excel)](https://msdn.microsoft.com/ja-jp/vba/excel-vba/articles/application-ontime-method-excel)によって、定期的に呼び出すようにしてみてはどうでしょう。
|