| |
度々お世話になります．
条件分岐でオートシェイプの塗りつぶしを行っているのですが，
条件分岐がたくさんあるため，その都度マクロ実行中に作業シートが
めまぐるしく動いてしまいます．
例えばですが，
--------------------------------------------
Application.ScreenUpdating = False
Worksheets("入力シート").Activate
Select Case ActiveSheet.Cells(4, 48).value
Case 1
Sheets("反映シート").Select
ActiveSheet.Shapes("pp001").Select
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Case Else
Sheets("反映シート").Select
ActiveSheet.Shapes("pp001").Select
Selection.ShapeRange.Fill.Visible = msoFalse
End Select
Application.ScreenUpdating = True
--------------------------------------------
こんな条件分岐が多々あります．
ScreenUpdatingが効かない理由として，色々と調べてみると，
どうもSelectが関係しているというところまでは理解できました．
（Selectにより，シート固定ができなくなるようですが）
このコードを変法して，Selectを使わない（めまぐるしいシート移動がない）
方法が可能でしょうか？
ヒントを頂ければと思います．
|
|
たけ
- 09/5/18(月) 23:22 -
