|
▼たけ さん:
こんばんは。
>条件分岐がたくさんあるため,その都度マクロ実行中に作業シートが
>めまぐるしく動いてしまいます.
>このコードを変法して,Selectを使わない(めまぐるしいシート移動がない)
>方法が可能でしょうか?
>例えばですが,
>--------------------------------------------
>Application.ScreenUpdating = False
>
With Sheets("反映シート").Shapes("pp001").ShapeRange
If Worksheets("入力シート").Cells(4, 48).value = 1 Then
.Fill.Visible = msoTrue
.Fill.ForeColor.SchemeColor = 10
Else
.Fill.Visible = msoFalse
End If
End With
>
>Application.ScreenUpdating = True
>--------------------------------------------
というふうにしたら、どうでしょう?
(試してませんが)
|
|