아별님, 안녕 하셨어요?
며칠만에 또 새로운 작업을 하고 싶은 일이 생겼는데, 나의 부족한 지식으로는 할 수가 없어서
아별님께 도움을 받고져 또 방문하게 되었습니다.
검색창 만드는 방볍에 대한 질문 인데요.....
질문은 첨부파일에 올렸습니다.
한 수 가르침 부탁드리겠습니다. 매번 수고스럽게 해서 죄송하구요... 감사합니다.
답글 감사합니다.
많은 도움 되었습니다.
그러나 조금 아쉬움이 있네요....
제가 하고자 하는 것은 필터해서 추출하여 보는게 아니고, 첨부파일과 같이 데이터는 그대로 두고
포함하고 있는 아이들의 색상만 변경하고 싶었습니다.
역시 무리한 요구사항 이었네요. 엑셀의 기능상 어렵겠다고하니 쩝, 아쉬움이.....
위 답글로서도 많은 도움이 됐습니다. 아별님, 감사합니다.
![[레벨:2]](http://www.abyul.com/zbxe/modules/point/icons/default/2.gif "포인트:550point (42%), 레벨:2/30"){kind=icon}
시나브로
![[레벨:30]](http://www.abyul.com/zbxe/modules/point/icons/default/30.gif "포인트:141971point, 레벨:30/30"){kind=icon}
아별
시나브로님..
일단.. 제반 사항을 좀 설명해주시는게 좋을 것 같네요..
저 작업이 왜 필요한지 어디에 사용할건지..
반복해서 필요한 일이니.. 10회 이하로만 작업할 건지..
일단..
해당 하는 값만 찾을거면.. 자동필터를 사용하면 될 것 같구요..
해당 값들만 추출할거면 고급필터도 고려해볼 만 합니다.
데이터는 해당 위치에 그대로 두고.. 색만 변경하고 싶으신건가요?
일단 포함되는 아이들만 골라서 빨간색으로 칠하는 방법은 엑셀의 기본 기능으로 힘들 것 같구요..
VBA를 써야합니다.
Find메서드를 사용해서 하나씩 찾던가.. 자동필터로 한번에 찾은 다음..
필터링 된 아이들만 대상으로 셀을 순환하면서 해당 문자열을 찾아 빨간색으로 글자색을 변경해주는 코딩이 필요할 것 같네요..
글자의 일부분을 빨간색으로 칠하는 것은 아래 코드를 응용해서 해보세요..
ActiveCell.Characters(Start:=22, Length:=13).Font.Color = RGB(255,0,0)
22번째 글자부터 13개까지 그러니까.. 35번째 글자까지 빨간색으로 칠하라는 의미죠..
22번째를 찾는 것은.. 아래 코드를 응용해보시구요..
InStr(ActiveCell.Value,"15,21,22,26,34")
어느정도 힌트는 드린것 같네요..
도움이 되셨기를..