|
▼ダウン さん:
こんばんわ
>セルを移動する度に黒枠になるのがふつうですが、
>それを色付の枠に変えたり、十字方向全体に色をつけて作業することは
>可能ですか?
>可能であれば、教えてください。
色付の枠に変えるのは、分かりませんが
十字方向全体に色をつけて作業することは出来ます。
該当するシートに、
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim R, C As Integer
R = ActiveCell.Row
C = ActiveCell.Column
'指定範囲の色を消す
Range("a1:d1,in1:iv1,a2:iv65536").Interior.ColorIndex = 0
'指定範囲に色を付ける
Range("e1,bg1,di1,fk1,hm1").Interior.ColorIndex = 35
Range("af1,ch1,ej1,gl1").Interior.ColorIndex = 37
'十字に色を付ける
Rows(R).Interior.ColorIndex = 34
Columns(C).Interior.ColorIndex = 6
End Sub
指定範囲に色を付ける操作はそのシートのセルに色を付けている箇所が無ければ、省いても問題ないですが、(セルに色を付けている箇所があれば範囲を指定する)
指定範囲の色を消す&十字に色を付ける操作は省けません。
確認してみてください。
|
|