回答編集履歴
1
追記
test
CHANGED
|
@@ -31,3 +31,13 @@
|
|
|
31
31
|
Next
|
|
32
32
|
End Sub
|
|
33
33
|
```
|
|
34
|
+
|
|
35
|
+
---
|
|
36
|
+
あと、下記の画面描画抑制などを解除する処理がlineDraw内にありますが、これだとすぐに解除されてしまいます。メイン処理(フォルダ取得)内の最後に移動させてください。
|
|
37
|
+
```vba
|
|
38
|
+
With Application
|
|
39
|
+
.Calculation = xlCalculationAutomatic '計算を自動に'
|
|
40
|
+
.EnableEvents = True 'イベントを再開'
|
|
41
|
+
.ScreenUpdating = True '画面描画を開始'
|
|
42
|
+
End With
|
|
43
|
+
```
|