|
아래코드는 셀이 선택되면 선택된 행 중에서 자료가 들어있는 부문의 행 색깔을 바꾸려고 작성한 것입니다.
그런데 실행하면 갑자기 먹통이 됩니다.
어디에 문제가 있는지 검토해 주시면 고맙겠습니다.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim myRange As Range
Dim 행 As Integer
Dim 열 As Integer
Dim AllRange As Range
행 = Range("A2").CurrentRegion.Rows.Count
열 = Range("A2").CurrentRegion.Columns.Count
Set AllRange = Range(Cells(2, 1), Cells(행, 열))
Set myRange = Application.Intersect(Target.EntireRow, AllRange)
' Target.entireRow ---> 현재선택되어있는 셀의 전체행
If Not myRange Is Nothing Then
AllRange.Interior.ColorIndex = xlNone
myRange.Interior.ColorIndex = 20
Else
AllRange.Interior.ColorIndex = xlNone
End If
End Sub
==============[해기님 글에 대한 답변입니다]==============
안녕하세요?
처음부터 새로 만들은 이벤트(VBA)를 이용한 색칠하기입니다.
도움이 되시길..
|
|