Excel VBA 키워드의 카테고리 찾기

키워드의 카테고리 찾기

 

키워드를 입력하면 그 키워드가 어떤 의미인지를 찾아주는 기능이 필요할 때가 있습니다. 머신러닝 같은 기법으로 해결 해볼 수도 있지만 vba로 단순하게 구현 해볼 수 있습니다.

 

'거실', '수영장'을 입력하면 A열의 '행동'이 나오게 하는 기능이 필요하다고 했을때 아래 코드로 해볼 수 있습니다.

 

'필터' 시트

get_카테고리_이름()이라는 VBA함수를 엑셀 시트에서 호출 합니다.

 

Sub main()
    result = get_카테고리_이름("거실")
    MsgBox (result)
End Sub

Function get_카테고리_이름(키워드)
    
    결과 = "결과가 없습니다."
    '해당 키워드가 들어있는 행의 a열 값
    
    '7행 10열 에서 검색
    For 행 = 1 To 7
        For 열 = 1 To 11
            셀값 = Sheets("keywords").Cells(행, 열 + 1).Value
            If 키워드 = 셀값 Then
                카테고리이름 = Sheets("keywords").Cells(행, 1).Value
                결과 = 카테고리이름
                Exit For
            End If
        Next
    Next
    
    get_카테고리_이름 = 결과
    
End Function

 

아래 파일을 다운받아서 열어보시면 예제가 있습니다.

카테고리이름찾기.xlsm

다운로드

 

 

end.