태터데스크 관리자

도움말
닫기
적용하기   첫페이지 만들기

태터데스크 메시지

저장하였습니다.

 

* 목표: 엑셀에서 선택한 영역을 가져와서 각 문자열의 문자 중에 입력한 단어가 있으면 색을 변환하는 매크로 작성

 

* 작성 환경: 엑셀 2010

 

: 예를 들면 아래와 같은 엑셀이 있을 경우 'fer'를 빨간색으로 변환하고 싶다.

 

 

 

 

1. 매크로 생성

: 위의 메뉴바에서 보기 > 매크로 > 매크로 보기를 선택

: 매크로 이름에 'WordColor' 등 매크로 이름을 넣으면 오른쪽에 '만들기' 버튼이 활성화 된다.

: '만들기' 버튼 클릭

 

 

 

: 그러면 아래와 같이 비쥬얼 베이직 모듈 작성 윈도우가 열린다. 여기다가 매크로를 작성한다.

 

 

2. 매크로 작성

: 아래의 소스를 매크로에 작성한다.

Sub WordColor()
    Dim cell As Range, word As String, startIndex As Integer
    
    word = InputBox(Prompt:="단어를 입력하세요", Title:="문자열 색 변환")

    If Len(word) > 0 Then
        For Each cell In Selection
            startIndex = InStr(1, cell, word, vbTextCompare)
    
            If startIndex > 0 Then
                cell.Characters(startIndex, Len(word)).Font.Color = RGB(0, 0, 255)
                cell.Characters(startIndex, Len(word)).Font.Bold = True
            End If
        Next cell
    End If
End Sub

 

: 위의 소스 코드를 각 줄마다 설명해보면,

 

    Dim cell As Range, word As String, startIndex As Integer

 

: 변수 선언을 하는 부분이다. cell은 이후 사용자가 선택한 영역의 각 셀을 저장할 변수, word는 사용자가 입력할 색을 변환 시킬 문자열, startIndex는 각 셀에 문자열이 있는지 여부와 위치를 저장할 변수이다.

 

 

    word = InputBox(Prompt:="단어를 입력하세요", Title:="문자열 색 변환")

 

: InputBox는 사용자가 입력을 할 수 있는 다이얼로그를 띄우는 명령이다. 위의 명령을 실행하면 아래와 같은 다이얼로그가 띄워진다.

 

 

 

 

If Len(word) > 0 Then
    ' 중략
End If

: 사용자가 입력한 문자열 (word)의 길이가 0 이상이면 진행하고, 0이면 진행하지 않는다. 사용자가 그냥 확인을 눌렀거나 취소를 눌렀을 때 해당된다.

 

    For Each cell In Selection
        ' 중략
    Next cell

 

: Selection은 사용자가 선택한 영역 범위이고, 영역 범위 내의 각 셀을 선택하여 cell에 넣고 '중략 에 들어가는 동작들을 실행한다. 아래는 '중략에 해당하는 부분이다.

 

        startIndex = InStr(1, cell, word, vbTextCompare)

 

: InStr 함수를 이용해서 셀에 word가 있는지 구분한다. InStr은 만약 cell 안에 word가 있는지 1번째 알파벳부터 비교를 하고 그 시작 위치를 반환하여 startIndex에 저장한다.

 

        If startIndex > 0 Then
            ' 중략
        End If

 

: cell안에 word가 있으면 '중략의 부분을 실행한다. 아래의 부분이 '중략에 해당한다.

 

            cell.Characters(startIndex, Len(word)).Font.Color = RGB(0, 0, 255)
            cell.Characters(startIndex, Len(word)).Font.Bold = True

 

: 선택 영역 내부의 셀 (cell)의 문자들을 선택하는데, 위에서 startIndex로 얻어온 word의 시작 위치부터 word의 길이만큼 (Len(word)) 선택하여 Font를 수정한다. Font.Color = RGB(0,0,255)은 색을 파란색으로 설정하게 되고, 이 부분을 수정하면 색이 변환되는 색을 수정할 수 있다. Font.Bold = True로 설정하면 해당하는 범위의 문자들이 볼드체가 된다.

 

 

3. 매크로 실행

: 아래와 같이 작성되었으면 일단 엑셀 셀 중에서 문자열 색을 바꾸길 원하는 부분을 먼저 선택한다.

: 아래의 비쥬얼 베이직 화면에서는 윗쪽 중간의 '재생/실행' 버튼이나 "F5"를 눌러서 실행한다.

: 엑셀 쪽에서 실행하려면 보기 > 매크로 > 매크로 보기 > 매크로 선택한 다음에 실행 버튼을 누르면 된다.

 

 

 

: 그럼 위의 InputBox로 인하여 문자열을 입력받게 되고,

 

 

: 그러면 엑셀을 보면 선택한 영역에 위의 문자열들이 바뀐 것을 볼 수 있다.

 

 

 

* 주의

- 변환하기 전에 바꾸고자하는 범위를 먼저 선택해야한다.

- 바꾸고 나면 취소가 안되고, 글 서식을 다시 설정해야한다.

- 매크로를 저장하려면 xlsm 파일이나 xls (2003 이전 버전 파일)로 저장해야한다.

- 보안 설정을 해제해줘야한다. 파일 > 옵션 > 보안 센터 > 보안 센터 설정 > 매크로 설정으로 들어가서 '모든 매크로 포함'과 'VBA 프로젝트 개체 모델에 안전하게 액세스할 수 있음'을 체크한다.

- InStr로 한번만 체크하기 때문에 문자열을 검색했을 때 나온 가장 먼저 나온 부분의 색만 변환하게 된다. 예를 들면 're'의 색을 변환하고자 할 때 reference 가 있으면 첫번째 're'ference 의 색만 변환된다. 뒷쪽을 할지/앞쪽을 할지 아니면 모든 문자열을 바꿀지 여부를 자동화하려면 추가 작업이 필요하다.

- 변환되는 다른 색으로 바꾸고자 한다면 매크로 안에서 RGB(0,0,255) 이 부분의 RGB 값을 바꾸면 된다.

 

 

* 아래의 첨부 파일은 매크로가 포함되어있으며, 범위를 선택하고 'CTRL+m'의 단축키를 누르면 실행할 수 있게 되어있다.

  

WordColor.xlsm

끝.

저작자 표시 비영리 동일 조건 변경 허락
신고

이 글을 공유하세요.

  • 1 2013.03.28 19:14 신고  댓글주소  수정/삭제  댓글쓰기

    엑셀 매크로 제작, 의뢰인 거래사이트 "오투잡"

    오투잡은 현재 하루 접속자 4000명이 접속하는 재능거래 사이트 입니다.
    오픈한지 얼마되지 않았지만 부업분야 전체 점유율 2위, 국가지원을 받고있습니다.

    오투잡에서 [컴퓨터/프로그래밍] 카테고리의 판매자를 대모집 중입니다.
    카테고리 활성화가 시작 되니, 많은 판매 등록 바랍니다.
    오투잡은 네이버에서 "오투잡" 으로 검색 하세요.

  • 세경 2013.08.26 13:45 신고  댓글주소  수정/삭제  댓글쓰기

    안녕하세요! 특정 텍스트 색만 변경하는 매크로를 찾다가(엑셀 초보) 고수님 게시물을 보고 한참 연구끝에 적용해보았네요. 감사합니다 ^.^ 그런데 어떤 셀에서는 특정 글씨 색 이후 모든 글씨의 색이 투명하게 변경되더라구요ㅜ.ㅜ 제가 잘못실행한 것인지..궁금합니다.

    • Unikys 2013.08.28 14:30 신고  댓글주소  수정/삭제

      잘못 실행했다기 보다는 매크로를 잘못 만들었을 확률이 높습니다. RGB(255,255,255) 등과 같이 설정하거나 cell의 값을 설정하는 부분이 있으면 살펴보시는것이 좋을 것 같습니다.

  • 자갈밭 2013.11.14 19:10 신고  댓글주소  수정/삭제  댓글쓰기

    안녕하세요~~!! 감사합니다. 드디어 메크로에 대한 궁금증을 풀게 됐어요ㅠㅠ ㅋㅋ
    그런데 위에도 적어두셨듯이, reference에서 뒤에 있는 "re"에도 색깔을 입히고 싶은데,
    추가작업이 어떤 것인지도 좀 알려주셨으면 해요~~ ㅠㅠ 너무너무 궁금하네요. 꼭 필요하구요. ㅠㅠ.. ^^;

    • Unikys 2013.11.15 06:37 신고  댓글주소  수정/삭제

      중간에 If startIndex > 0 Then을 while 문으로 고치고 While 문 안에 startIndex를 추가로 추출하면 됩니다~

      Do While startIndex > 0
      cell.Characters(startIndex, Len(word)).Font.Color = RGB(0, 0, 255)
      cell.Characters(startIndex, Len(word)).Font.Bold = True
      startIndex = InStr(1, cell, word, vbTextCompare)
      Loop

      이렇게 하면 될 것 같은데 테스트는 못해봤습니다 ㅎㅎ

    • 2013.11.15 10:56  댓글주소  수정/삭제

      비밀댓글입니다

    • Unikys 2013.11.18 12:54 신고  댓글주소  수정/삭제

      일단 Do While 안에
      startIndex = InStr(1, cell, word, vbTextCompare)

      startIndex = InStr(startIndex + 1, cell, word, vbTextCompare)
      이 되어야겠네요.

    • 자갈밭 2013.11.18 18:20 신고  댓글주소  수정/삭제

      정말 감사합니다. ^^ 즐거운 저녁 되세요!!

  • Ekddmf 2016.06.20 22:51 신고  댓글주소  수정/삭제  댓글쓰기

    대박이네요!! 정말 감사합니다!! ^^

질문이나 의견을 댓글로 달아 주세요