예를 들면...
(서울시 강남구 대치동 000-00) 중에서 강남구만 (서울시 강남구 신사동 000-00)
이렇게 빨간색으로 주소목록 전체가 바뀌었으면 합니다.

[방법]
데이터가 A열에 있고, 찾으려는 값이 B1셀에 있다고 가정할 때

 

 아래와 같은 매크로를 이용하시면 될 듯...

 Sub test()
    Dim MyRange As Range, MyCell As Range
    Dim x As Integer
    Set MyRange = Range(Range("a1"), Range("a1").End(xlDown))
    For Each MyCell In MyRange
        x = InStr(1, MyCell, Range("b1"), 1)
        MyCell.Characters(Start:=x, Length:=Len(Range("b1"))).Font.Color = -16776961
    Next MyCell
    Set MyRange = Nothing
End Sub


Set MyRange = Range(Range("a1"), Range("a1").End(xlDown))
위 구문은 a1셀부터 a열의 마지막 데이터(공백)까지 범위를 잡아 MyRange에 담아둡니다.

위 빨강색부분을 실제 데이터가 있는 위치로 바꾸시면 되겠죠.

For Each MyCell In MyRange
위 구문은 MyRange범위를 한셀씩 순환합니다.

x = InStr(1, MyCell, Range("b1"), 1)
위 구문은 MyRange범위를 순환하면서 현재 선택된 셀(MyCell)의 B1셀 값의 위치를 찾아 x에 담아둡니다.

위 빨강색부분을 실제 데이터가 있는 위치로 바꾸시면 되겠죠.

MyCell.Characters(Start:=x, Length:=Len(Range("b1"))).Font.Color = -16776961
위 구문은 현재 선택된 셀의 윗 구문에서 찾은 위치부터 B1셀의 문자수만큼
문자색상을 빨강색(-16776961)으로 바꿉니다.

위 빨강색부분을 실제 데이터가 있는 위치/실제 색상으로 바꾸시면 되겠죠.

Next MyCell
위 구문은 MyRange범위의 마지막까지 계속 순환토록 합니다.

Set MyRange = Nothing
위 구문은 MyRange범위를 메모리상에서 지웁니다.

맘 강하게 다져보자....
맘 한구석에 자리잡은 것을 강하게 만들어보자...

맘 강하게 다져보자..
나쁘기만 한 일은 없는것이다..
.
.
.
.
.
.
.
.
.
.
'행복'을 말하다.
"진짜 슬픈 인생은 살면서 아무 일도 일어나지 않는 겁니다.", "행복하고 싶으시죠? 웃는 거 밖에 방법이 없습니다."


'사랑'을 말하다.
 "사랑을 지키기 위한 모든 노력은 희생이 아니라 행복이다."

'희망'을 말하다.
"아래로 떨어질 수 있다. 그렇게 마음먹으면 그 곳이 절벽 끝이 아니라 다이빙대 일수도 있구요. 그리고 그 아래는 시원한 바다일 수도 있습니다."


'♡ 일상' 카테고리의 다른 글

[뮤직]샤이니-잠꼬대(Please, Don't Go)  (0) 2009.07.14
핸폰시리즈1. 쿠키폰과 신규번호 인연이 아니건가...  (0) 2009.07.07
맘 강하게 다져보자!!!  (0) 2009.06.23
2009년도 반이....  (0) 2009.06.10
6월 9일 화요일  (0) 2009.06.09
독해지자  (0) 2009.06.07