어떻게 행와 함께의에 색 변경 2010 VBA에서 Microsoft Excel을 사용하여 클릭
이 기사에서는 클릭 한 번으로 행의 색상을 변경하는 방법을 배웁니다.
개발자 탭을 클릭하십시오. 코드 그룹에서 Visual Basic을 선택하십시오
현재 워크 시트에 다음 코드를 입력합니다 (이 예에서는 sheet1)
Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Dim rownumber As Integer
rownumber = ActiveCell.Row
If ActiveCell.Value <> “”Then
Range ( “A”& rownumber & “: D”& rownumber) .Interior.ColorIndex = 6
End If
End Sub
SelectionChange 이벤트는 사용자가 셀을 선택할 때마다 활성화되며 흰색에서 노란색으로 색상이 변경됩니다.
활성 셀이 비어 있으면 코드가 실행되지 않습니다.
B3 셀을 클릭하면 행이 노란색으로 강조 표시됩니다. 아래 표시된 스냅 샷 참조
여기에서 수식 표시 줄에 선택한 셀, 즉 B3 셀이 표시되는 것을 볼 수 있습니다. A8 셀을 선택하면 8 행이 강조 표시됩니다. 아래 표시된 스냅 샷을 참조하십시오.
한 번에 한 행만 강조 표시하려면 이전 코드에 한 줄을 추가해야합니다.
추가 된 코드 :
Range ( “A1 : D13”). Interior.ColorIndex = xlNone
코드는 다음과 같습니다.
Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Dim rownumber As Integer
rownumber = ActiveCell.Row
If ActiveCell.Value <> “”Then
Range ( “A1 : D13”). Interior.ColorIndex = xlNone
Range ( “A”& rownumber & “: D”& rownumber) .Interior.ColorIndex = 6
End If
End Sub
이제 한 시점에 하나의 행만 강조 표시됩니다.
이러한 방식으로 VBA 코드를 사용하여 한 번의 클릭으로 행을 강조 표시 할 수 있습니다.