Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo ExitHandler Application.EnableEvents = False
' 이전 선택영역 테두리 제거 If Not PrevSel Is Nothing Then With PrevSel .Borders(xlEdgeLeft).LineStyle = xlNone .Borders(xlEdgeTop).LineStyle = xlNone .Borders(xlEdgeBottom).LineStyle = xlNone .Borders(xlEdgeRight).LineStyle = xlNone End With
End If
' 현재 선택영역 외곽선 표시 Target.BorderAround LineStyle:=xlContinuous, Weight:=xlThick
Set PrevSel = Target
ExitHandler: Application.EnableEvents = True
End Sub
박
박용제작성자6월 9일
@마법의손 님 와 대박입니다 근데 셀을 움직일때마다 전체 시트가 깜빡거리는데 이거는 어쩔 수 없는건가요?
댓글 5
@마법의손 님 와 대박입니다 근데 셀을 움직일때마다 전체 시트가 깜빡거리는데 이거는 어쩔 수 없는건가요?
@박용제 님 Target.BorderAround LineStyle:=xlContinuous, Weight:=xlThick
==>
Target.BorderAround LineStyle:=xlContinuous, Weight:=xlThin
잘 몰라서 죄송합니다
이렇게 바로 밑에 붙여서하면 되는걸까요
@박용제 님 아 해결했습니다 그리고 혹시 이건 모든 액셀에 고정 적용은 안되는거고 파일마다 따로 해야되는거죠?