'### 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
네.. 이상하군요.. 왜 불가능하다고 대답했을까요? @_@;;
답변부터 드리면.. 가능합니다.
일단..
셀안에 텍스트 단위로 셀서식을 적용하기 위해서는 전제조건이 있습니다.
셀 서식이 회계 서식으로 적용되어 있으면 안됩니다.
정확히 얘기하면.. 문자열 서식 부분에 @외에 다른 요소가 있으면 안됩니다.
회계 서식은 아래와 같은데요.. 문자열 부분이 _-@_-로 되어 있어서 텍스트 단위로 적용한 서식이 반영이 안됩니다.
_-* #,##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