|
こんにちは
よろしくお願いいたします
Bブックのマクロ CLR_DT2 が、異常に遅いので、調べてみると
カメラ機能を使用したAブックが別途開いていた為でした
Aブックのカメラシートがないとき
処理一瞬
2009/05/25 16:25:04
2009/05/25 16:25:04
2009/05/25 16:25:04
2009/05/25 16:25:04
Aブックのカメラシートが1枚のとき
2009/05/25 16:24:09
2009/05/25 16:24:10
2009/05/25 16:24:11
2009/05/25 16:24:12
Aブックのカメラシートが2枚のとき
2009/05/25 16:23:36
2009/05/25 16:23:39
2009/05/25 16:23:43
2009/05/25 16:23:44
Aブックのカメラシートが3枚のとき
2009/05/25 16:20:54
2009/05/25 16:20:58
2009/05/25 16:21:02
2009/05/25 16:21:04
Bブックのマクロ確認時
ActiveSheet.EnableCalculation = False
Application.EnableEvents=False
とか入れてみましたが変化はありませんでした
別ブックが開いていても、それでマクロが影響することはないと思っていましたが
このような状況が、なぜ発生するのでしょうか
カメラ付ブックが開いていても影響を受けないためには
コードをどのように修正すればいいでしょうか
アドバイスよろしくお願いいたします
Aブック
一般シート10枚(表等)
一般シートで、上記シートの各表をカメラ機能で貼り付けたシート3枚
シート1枚にカメラによる表が5個程度貼り付けています
この3枚のシートで、各シートの各表の全体イメージがわかるものとなっています
マクロ無し
Bブック
Aブックとは無関係
マクロ有りブック
コードは、下記マクロ1個のみ
Sub CLR_DT2()
Debug.Print Now()
With ActiveSheet
.Range("M2").Value = ""
.Range("I4").Value = ""
.Range("I5").Value = ""
.Range("B8").Value = ""
.Range("B9").Value = ""
.Range("B10").Value = ""
.Range("C12").Value = ""
.Range("F12").Value = ""
.Range("I12").Value = ""
.Range("S37").Value = ""
.Range("M5").Value = ""
.Range("E13").Value = ""
Debug.Print Now()
.Range("D16:F20").ClearContents
.Range("B19").Value = ""
.Range("B20").Value = ""
.Range("G19").Value = ""
.Range("G20").Value = ""
.Range("G21").Value = ""
.Range("I16").Value = ""
.Range("I17").Value = ""
.Range("I18").Value = ""
.Range("I19").Value = ""
.Range("I20").Value = ""
.Range("I21").Value = ""
Debug.Print Now()
.Range("D26:F26").ClearContents
.Range("D29:F29").ClearContents
.Range("D32:F32").ClearContents
.Range("D34:F35").ClearContents
.Range("M21").Value = ""
.Range("M37").Value = ""
End With
Debug.Print Now()
End Sub
|
|