[땡큐엑셀vba & 엑셀매크로] 단어찾아서 컬러문자 추가

실행전

 

실행후

 

 

' http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=287032869
'
' 토끼 셀마다 빨간색 "산"을 추가해야하는 비슷한 노가다를 하고 있는데.. 어떻게 하면 빠르게 할 수 있을까요? ㅠㅠ


'
' Source by 땡큐엑셀vba & 엑셀매크로
'
Sub 컬러문자추가()

    Set 검색범위 = Selection
    찾을값 = Cells(1, "D")
    추가문구 = Cells(1, "E")
    변경값 = 추가문구 & 찾을값
        
      
    '범위 루프
    For Each R In 검색범위
    
        '글자 위치
        pos = InStr(1, R.Value, 찾을값)
        '길이
        iLen = Len(R.Value)
        
        '찾을값이 포함되어 있다면 변경값으로 교체함
        If pos > 0 Then
            temp = Replace(R.Value, 찾을값, 변경값) 'repalce함수를 사용
            R.Value = temp
            
            '글자 위치(예:산토끼)
            pos = InStr(1, R.Value, 변경값)
            
            '글자색 변경
            With R.Characters(Start:=pos, Length:=1).Font
                '.Name = "맑은 고딕"
                '.FontStyle = "보통"
                '.Size = 11
                '.Strikethrough = False
                '.Superscript = False
                '.Subscript = False
                '.OutlineFont = False
                '.Shadow = False
                '.Underline = xlUnderlineStyleNone
                .Color = -16776961
                '.TintAndShade = 0
                '.ThemeFont = xlThemeFontMinor
            End With
            
        End If
        
        
    Next
    
    MsgBox "완료되었습니다.", vbInformation, "땡큐엑셀vba & 엑셀매크로"

End Sub

 

 

문구찾은후 컬러문자추가-for each_characters.font-땡큐엑셀vba.xlsm

0.02MB

 

땡큐엑셀vba