Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


20489 / 76732 ←次へ | 前へ→

【61661】カメラ機能を使用したブックがあると異常に処理が遅くなる
質問  ON  - 09/5/25(月) 17:07 -

引用なし
パスワード
   こんにちは

よろしくお願いいたします


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
1 hits

【61661】カメラ機能を使用したブックがあると異常に処理が遅くなる ON 09/5/25(月) 17:07 質問
【61662】Re:カメラ機能を使用したブックがあると異... ON 09/5/25(月) 17:18 発言
【61663】Re:カメラ機能を使用したブックがあると異... ON 09/5/25(月) 17:20 発言
【61664】Re:カメラ機能を使用したブックがあると異... もも 09/5/25(月) 18:04 発言
【61666】Re:カメラ機能を使用したブックがあると異... ON 09/5/25(月) 18:29 発言
【61667】Re:カメラ機能を使用したブックがあると異... もも 09/5/25(月) 18:51 発言
【61706】Re:カメラ機能を使用したブックがあると異... ON 09/5/28(木) 13:35 発言
【61709】Re:カメラ機能を使用したブックがあると異... もも 09/5/28(木) 14:56 発言
【61710】Re:カメラ機能を使用したブックがあると異... もも 09/5/28(木) 14:58 発言
【61722】Re:カメラ機能を使用したブックがあると異... ON 09/5/29(金) 20:56 お礼
【61805】Re:カメラ機能を使用したブックがあると異... ON 09/6/5(金) 16:21 お礼

20489 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free