기초방 #621 [기초방] VBA 100제 #62 [ 홀수_짝수차 구별하기 ] 더보기 Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rngU As Range Dim rngAll As Range: Set rngAll = [e7].CurrentRegion Set rngAll = rngAll.Offset(1, 1).Resize(rngAll.Rows.Count - 1, rngAll.Columns.Count - 1) '= 차수별 데이터 If Intersect(rngAll, Target) Is Nothing Then Exit Sub '= 차수별 데이터를 클릭하지 않으면 종료 rngAll.Interior.ColorIndex = xlNone '= 색상 초기화 rngAll.Font.Bold = Fal.. 2023. 9. 18. 이전 1 다음
