[땡큐엑셀vba & 엑셀매크로] 특정단어만 색칠하기

실행전

 

실행후

 

'http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=293360786
'
'특정 단어만 색을 바꾸는법 없을까요?
'제가 모두 바꾸기로 특정 단어 색을 바꿔봤는데?그렇게 하면 셀 안에 있는 모든 단어의 색이 바뀌어 안되더군요.


'작성자: 땡큐엑셀vba & 엑셀매크로
'
Sub 컬러입히기()


    Set 검색범위 = Selection
    찾을값 = Cells(1, "G")
        
      
    '범위의 모든 셀을 순환하면서 값을 찾아서 색을 입힌다.
    For Each R In 검색범위
    
        'inStr함수로 찾을값 검색. 검색이 되면 시작위치를 반환합니다.
        pos = InStr(1, R, 찾을값)
                
        If pos > 0 Then
            k = k + 1
            
            '찾은 글자에 색을 입힌다.
            With R.Characters(Start:=pos, Length:=Len(찾을값)).Font
               .Color = -16776961 '빨간색
           End With
    
        End If
        
    Next
    
    
    MsgBox k & "건 완료 하였습니다.", vbInformation, "땡큐엑셀vba & 엑셀매크로"


End Sub

 

찾은단어색칠하기-instr_fontcolor-땡큐엑셀vba.xlsm

0.14MB