엑셀에서 활성셀의 행을 색깔을 입히고 싶답니다..
엑셀을 실행 시킨뒤 ==>도구 ==>매크로 ==>Visual Basic Editor
를 실행 시킵니다.
그리고 왼쪽 Pane 에서 Sheet1 를 더블 클릭하면 오른쪽 pane 에 VBA Code를 입력하는 창이 나올 겁니다.
여기에 아래의 코드를 입력(카피 & 패이스트) 하세요.
Dim C As Long
Dim R As Long
Private Sub Worksheet_Activate()
C = 1
R = 1
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'바로 전 라인의 색깔을 원상 복귀하는 부분
Cells.EntireRow.Rows(R).Interior.Color = RGB(255, 255, 255)
'선택한 행의 색상을 바꿔주는 부분
Target.Cells.EntireRow.Interior.Color = RGB(0, 0, 128)
' 기존값을 저장
R = Target.Cells.Row
C = Target.Cells.Column
End Sub
그리고 원하는 행의 색깔을 다른 색으로 하고 싶을실때는 RGB(x,y,z) 에서 x,y,z 에 원하시는 숫자를 입력하시면 원하시는 색깔이 출력 됩니다.
덕분에 저도 엑셀 오브젝트를 조금 공부했습니다. 머리 좀 식혔습니다.^^
하나더 추가...
만약 행이 아닌 열의 색상을 바꾸기 위해서는
Target.Cells.EntireCol.Interior.Color = RGB(0, 0, 128)
이런식으로 바꾸시면 됩니다.
그리고 이 부분을 알려면, Excel의 Component Object Model 을 공부해야 합니다.
저는 엑셀의 사용법을 약간 밖에 몰라서, 코딩으로 해결했습니다.
엑셀에서 활성셀의 행을 색깔을 입히고 싶답니다..
