엑셀 특정 단어 강조표시

엑셀에서 특정 단어만 찾아서 강조표시하고 싶은 경우 찾기/ 바꾸기를 실행하면 포함된 셀 전체의 서식이 바뀌어 버립니다.

 

 

이럴 때 VBA로 특정 단어만 찾아서 표시할 수 있습니다.

 

실행화면은 아래와 같습니다.

​

아래와 같은 코드가 사용되었습니다.

 

Sub Findicate()

    Dim sht As Worksheet, rng As Range
    Dim pos&, usr$, str$
    
    '찾을 단어
    usr = InputBox("표시할 단어는?", "특정단어 강조표시", "lov")
    If usr = "" Then Exit Sub
    
    '셀 순환
    Set sht = ActiveSheet
    For Each rng In sht.UsedRange
    
        str = rng.Text
        pos = InStr(1, str, usr, vbTextCompare)
        '찾을 단어가 있는 한 계속 순환
        While pos > 0 And pos <= Len(str)
            With rng.Characters(pos, Len(usr)).Font
                .Bold = True
                .Color = rgbRed
            End With
            pos = pos + Len(usr)
            pos = InStr(pos, str, usr, vbTextCompare)
        Wend
    
    Next rng
    
End Sub

 

첨부파일 참고하세요.

 

Findicate1.xlsm

0.02MB

 

 

참고: 지식인