Vba: 열의 처음 n 값을 강조 표시하는 방법

VBA에서 다음 구문을 사용하여 Excel에서 열의 처음 N 값을 강조 표시할 수 있습니다.

 SubHighlightTopN ()

    Dim rng As Range
    Dim EntireRange As Range
    
    'specify range to use
    Set EntireRange = Range(" A2:A11 ")
    
    'highlight top 3 values in range
    For Each rng In EntireRange
        
        For i = 1 To 3
        
        If rng.Value = WorksheetFunction.Large(EntireRange, i) Then
        rng.Interior.Color = vbYellow
        End If
        Next
    
    Next rng

End Sub

이 특정 매크로는 A2:A11 범위에서 가장 높은 값 3개를 강조 표시합니다.

다른 수의 상한값을 강조 표시하려면 For i = 1 To 3 행을 편집하여 다른 상한값을 지정하면 됩니다.

다음 예에서는 실제로 이 구문을 사용하는 방법을 보여줍니다.

예: VBA를 사용하여 열의 처음 N 값 강조 표시

Excel 스프레드시트의 A열에 다음 값이 있다고 가정합니다.

A2:A11 범위에서 처음 3개의 가장 큰 값을 강조 표시하기 위해 다음 매크로를 만들 수 있습니다.

 SubHighlightTopN ()

    Dim rng As Range
    Dim EntireRange As Range
    
    'specify range to use
    Set EntireRange = Range(" A2:A11 ")
    
    'highlight top 3 values in range
    For Each rng In EntireRange
        
        For i = 1 To 3
        
        If rng.Value = WorksheetFunction.Large(EntireRange, i) Then
        rng.Interior.Color = vbYellow
        End If
        Next
    
    Next rng

End Sub

이 매크로를 실행하면 다음과 같은 출력이 나타납니다.

이제 A열에서 가장 높은 값 3개를 포함하는 셀이 강조 표시됩니다.

강조 표시에 사용할 색상과 강조 표시할 기본 값의 수를 변경할 수도 있습니다.

예를 들어 다음 매크로를 사용하여 A열의 처음 5개 값을 녹색으로 강조 표시할 수 있습니다.

 SubHighlightTopN ()

    Dim rng As Range
    Dim EntireRange As Range
    
    'specify range to use
    Set EntireRange = Range(" A2:A11 ")
    
    'highlight top 5 values in range
    For Each rng In EntireRange
        
        For i = 1 To 5
        
        If rng.Value = WorksheetFunction.Large(EntireRange, i) Then
        rng.Interior.Color = vbGreen
        End If
        Next
    
    Next rng

End Sub

이 매크로를 실행하면 다음과 같은 출력이 나타납니다.

A열에서 가장 높은 값 5개를 포함하는 셀이 이제 녹색으로 강조 표시됩니다.

추가 리소스

다음 자습서에서는 VBA에서 다른 일반적인 작업을 수행하는 방법을 설명합니다.

VBA: 셀에 조건부 서식을 적용하는 방법
VBA: 중복 값에 조건부 서식을 적용하는 방법
VBA: 열에서 값을 찾는 방법