Vba: 열에서 값을 찾는 방법(예제 포함)

VBA에서 다음 기본 구문을 사용하여 Excel의 열에서 값을 찾을 수 있습니다.

 Sub FindValue()

Dim rng As Range
Dim cell As Range
Dim findString As String

'specify range to look in
Set rng = ActiveSheet.Columns(" A:A ")

'specify string to look for
findString = " Rockets "

'find cell with string
Set cell = rng.Find(What:=findString, LookIn:=xlFormulas, _
                    LookAt:=xlWhole, MatchCase:=False)

If cell Is Nothing Then
    cell.Font.Color = vbBlack
Else
    cell.Font.Color = vbRed
    cell.Font.Bold = True
End If

End Sub

이 특정 매크로는 현재 활성 시트의 전체 A 열에서 “Rockets”라는 문자열을 검색하고, 발견되면 셀의 글꼴 색상을 빨간색으로 변경하고 글꼴을 굵게 만듭니다.

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

예: VBA를 사용하여 열에서 값을 찾는 방법

다양한 농구 선수에 대한 정보가 포함된 다음 데이터 세트가 있다고 가정합니다.

A 열에서 팀 이름 “Rockets”를 찾고 일단 찾았으면 셀의 글꼴 색상을 빨간색으로 변환하고 글꼴을 굵게 표시한다고 가정해 보겠습니다.

이를 위해 다음 매크로를 생성할 수 있습니다:

 Sub FindValues()

Dim rng As Range
Dim cell As Range
Dim findString As String

'specify range to look in
Set rng = ActiveSheet.Columns(" A:A ")

'specify string to look for
findString = " Rockets "

'find cell with string
Set cell = rng.Find(What:=findString, LookIn:=xlFormulas, _
                    LookAt:=xlWhole, MatchCase:=False)

If cell Is Nothing Then
    cell.Font.Color = vbBlack
Else
    cell.Font.Color = vbRed
    cell.Font.Bold = True
End If

End Sub

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

“Rockets” 문자열이 포함된 셀의 글꼴이 이제 빨간색이고 굵게 표시됩니다.

다른 모든 셀은 단순히 검정색 글꼴을 유지했습니다.

코드의 MatchCase:=False 인수는 VBA에게 대소문자를 구분하지 않고 검색을 수행하도록 지시합니다.

따라서 A열의 팀 이름이 “rockets”인 경우 매크로는 항상 해당 문자열을 찾아 글꼴을 빨간색과 굵은 글꼴로 만듭니다.

추가 리소스

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

VBA: AVERAGEIF 및 AVERAGEIFS 함수 작성 방법
VBA: SUMIF 및 SUMIFS 함수 작성 방법
VBA: COUNTIF 및 COUNTIFS 함수 작성 방법