이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
글 수 822
![[레벨:4]](http://abyul.com/zbxe/modules/point/icons/default/4.gif "포인트:1791point (43%), 레벨:4/30"){kind=icon}
부루끄안녕하세요 최근 업무가 바빠서 오랫만에 질문글을 올리는군요..
항상 업무향상을 위해 연구를 합니다. ^^
질문을 시작합니다.
한셀안의 내용중 특정부분을 강조하여 눈에 띄게 하고 싶은데 대략 불가능하다는 내용의 검색이 전부더군요.
하지만 일정한 규칙이 있다면 가능하지 않을까하여 실낱같은 희망을 찾고자 문의 드립니다.
ex).
첨부참조
xp, excel2003 ver
![[레벨:30]](http://abyul.com/zbxe/modules/point/icons/default/30.gif "포인트:141749point, 레벨:30/30"){kind=icon}
아별
네.. 이상하군요.. 왜 불가능하다고 대답했을까요? @_@;;
답변부터 드리면.. 가능합니다.
일단..
셀안에 텍스트 단위로 셀서식을 적용하기 위해서는 전제조건이 있습니다.
셀 서식이 회계 서식으로 적용되어 있으면 안됩니다.
정확히 얘기하면.. 문자열 서식 부분에 @외에 다른 요소가 있으면 안됩니다.
회계 서식은 아래와 같은데요.. 문자열 부분이 _-@_-로 되어 있어서 텍스트 단위로 적용한 서식이 반영이 안됩니다.
_-* #,##0_-;-* #,##0_-;_-* "-"_-;_-@_-
아래와 같이 바꾸면 적용이 되죠..
_-* #,##0_-;-* #,##0_-;_-* "-"_-;@
왜 그러냐면.. 모르겠습니다. =_=;; MS의 일률적이지 않은 셀 서식 정책이 이해가 안가는 1인..
===> 디테일 쩌는 엑신 오주원.. ㅋㅋ
암튼..
아래의 절차를 따라하시면 텍스트 단위로 서식을 달리 적용할 수 있습니다.
1. 셀 서식을 회계서식이 아닌 다른 서식으로 지정한다.
보통은 일반으로 지정합니다. 단축키도 있지요.. Ctrl+Shift+~ 입니다. ~는 숫자1 왼쪽에 있습니다.
2. F2를 눌러 셀 편집 모드로 들어가시구요.. (셀을 더블 클릭하거나, 수식입력줄을 클릭해도 편집 모드로 들어가겠죠..)
3. 변경할 텍스트들만 선택을 합니다. 예제처럼 앞에서 2개 텍스트만 선택해보세요..
4. 글자 색을 파랑으로 변경합니다. Ctrl+1을 눌러서 서식창에서 설정해줘도 되구요..
5. 나머지도 바꾸고 싶은데로 바꿉니다.
6. 엔터를 쳐서 편집 모드를 종료합니다.
끝~
자.. 이걸..
셀 하나씩 편집해야하냐고 물어보실 수 있습니다.
답변은 간단하죠.. 그렇습니다.
그게 싫다고 하시면..
이때 필요한게 뭐죠?
그렇습니다. 이때 필요한게 VBA입니다.
첨부파일을 다운 받으시고..
변경할 영역을 선택하신 다음.. Ctrl+Shift+J를 눌러보세요..
다운받기 : abyul.com_20110928_서식문의-1.xls
촤라락 바뀌는걸 볼 수 있습니다.
Ctrl+Shift+J는 제가 임의로 지정한 단축키입니다.
Alt+F8을 눌러 매크로 창에서 옵션 버튼을 눌러 단축키를 변경할 수도 있지요..
해당 코드는 아래와 같습니다.
VBA.. 공부해볼만 하겠죠? ^^;
'### Created by abyul.com 2011.09.28 pm 5:58
'### Shortcut is Ctrl+Shift+J
Sub abTextFormatting()
Dim rngTarget As Range: Set rngTarget = Selection
Dim r As Range
For Each r In rngTarget
If r.NumberFormat <> "General" Then r.NumberFormat = "General"
With r.Characters(Start:=1, Length:=2).Font
.Color = -65536
.TintAndShade = 0
.Bold = True
End With
With r.Characters(Start:=7, Length:=4).Font
.Color = -16776961
.TintAndShade = 0
.Bold = True
End With
Next r
End Sub