엑셀 셀 선택시 열,행 색상으로 표시하기

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

   Application.ScreenUpdating = False
   If Target.Cells.Count > 1 Then Exit Sub
   
   Dim oColumnscount As Long
   oColumnscount = Cells(15, Columns.Count).End(xlToLeft).Column
   
   '//Clear the color of all cells
   range("A16:Z & oColumnscount").Interior.ColorIndex = 0
   
	With Target
    '//Highlight row and column of the selected cell
    .EntireRow.Interior.ColorIndex = 38
    '// Highlight row of the selected cell 
    '//.EntireColumn.Interior.ColorIndex = 24
    End With

    
End Sub

 

엑셀 셀 선택시 열,행 색상으로 표시하기 / 매크로 / vba

---