|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 엑셀 버전(95,97,2000,2002):2000
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):98
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...):
* 아래줄에 질문을 작성하세요 >>
아래코드는 셀이 선택되면 선택된 행 중에서 자료가 들어있는 부문의 행 색깔을 바꾸려고 작성한 것입니다.
그런데 실행하면 갑자기 먹통이 됩니다.
어디에 문제가 있는지 검토해 주시면 고맙겠습니다.
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
|
|