| |
▼たけ さん：
こんばんは。
>条件分岐がたくさんあるため，その都度マクロ実行中に作業シートが
>めまぐるしく動いてしまいます．
>このコードを変法して，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
>--------------------------------------------
というふうにしたら、どうでしょう？
（試してませんが）
|
|
kanabun
- 09/5/19(火) 0:02 -
