回答編集履歴

1

追記

2019/01/31 12:25

投稿

mattuwan
mattuwan

スコア2136

test CHANGED
@@ -37,3 +37,85 @@
37
37
  Application.ScreenUpdating = True
38
38
 
39
39
  と呪文を書いて改善しますか?
40
+
41
+
42
+
43
+ それでだめなら、だめもとで、、、
44
+
45
+
46
+
47
+ DoEvents
48
+
49
+ Application.ScreenUpdating = True
50
+
51
+
52
+
53
+ と、、、、
54
+
55
+ で、だめなら、
56
+
57
+ DoEvents
58
+
59
+ DoEvents
60
+
61
+ Application.ScreenUpdating = True
62
+
63
+ とか、
64
+
65
+ DoEvents
66
+
67
+ DoEvents
68
+
69
+ Application.ScreenUpdating = True
70
+
71
+ Application.ScreenUpdating = True
72
+
73
+ ここまでやってだめなら、
74
+
75
+ 違うアプローチが必要かな^^;
76
+
77
+ とにかく思いつく限りを試すしかないかと。。。
78
+
79
+
80
+
81
+ 最初から画面の更新をとめるとか、
82
+
83
+ http://officetanaka.net/excel/vba/speed/s1.htm
84
+
85
+
86
+
87
+ あとは、Sleep関数でちょっと処理を待ってあげるとかかかな。。。
88
+
89
+ http://officetanaka.net/excel/vba/tips/tips116.htm
90
+
91
+
92
+
93
+ この辺を参考に、
94
+
95
+ http://officetanaka.net/excel/vba/speed/
96
+
97
+
98
+
99
+ あ、コードについてはほぼ読んでません^^;
100
+
101
+ ステップ実行で問題ないなら、コードに問題はないなら、
102
+
103
+ VBAの命令が矢継ぎ早にくるので処理が間に合ってないのかなぁと思います。
104
+
105
+ 時間がないのでこの辺ですみません。
106
+
107
+
108
+
109
+ あぁ、こつとしは、
110
+
111
+ http://home.att.ne.jp/zeta/gen/excel/c03p06.htm
112
+
113
+ ↑この辺を参考に、
114
+
115
+ 機能を別々に作って、あとで、その機能を呼び出してあげるようにする。
116
+
117
+ で、どこで問題が出るのかを根気強く試し、切り分ける。
118
+
119
+ といいと思います。
120
+
121
+ う~ん。なかなか言葉でうまく説明できないな^^;