|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007):
* 아래줄에 질문을 작성하세요 >>
현재는 아래와 같이 사용하고 있는데요..
문제는 칼라가 너무 강해서 RGB 로 선택하고 싶습니다.
방법이 없겠습니까 ?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim A, B As Integer
On Error Resume Next
A = 18
B = Range("B5").End(xlDown).Row
Cells.FormatConditions.Delete
With Range(Cells(Target.Row, 2), Cells(Target.Row, A))
If Target.Column <= A And Target.Row > 5 And Target.Row <= B Then
.FormatConditions.Add Type:=2, Formula1:="true"
' .FormatConditions(1).Borders.ColorIndex = 5
.FormatConditions(1).Interior.ColorIndex = 6
End If
End With
End Sub
==============[update님 글에 대한 답변입니다]==============
첨부파일 참고하세요... |
|