본문으로 바로가기

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

category Excel VBA/VBA 예제 2018.01.08 16:33

키워드의 카테고리 찾기


카테고리이름찾기.xlsm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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
 
 
cs

end.



댓글을 달아 주세요