예를 들어 셀의 내용이
'123456789'
이라구 하면 그중에 456은 진하게 하고 싶은데 우찌하면 되나요?
매크로 대로
sh.Range['C16:C16'].Characters( start := 1, Length := 3 ).Font.Bold := False;
sh.Range['C16:C16'].Characters( start := 4, Length := 3 ).Font.Bold := True;
sh.Range['C16:C16'].Characters( start := 7, Length := 3 ).Font.Bold := False;
하니까 걍 그대로 있던데요...
셀타입이 숫자인경우에는 적용되지 않습니다.
text 인지 확인해보세요
그리고 밑에 소스는 vb스크립트 매크로 실행 소스입니다. 참고하시길
With ActiveCell.Characters(Start:=1, Length:=3).Font
.Name = "돋움"
.FontStyle = "보통"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With ActiveCell.Characters(Start:=4, Length:=3).Font
.Name = "돋움"
.FontStyle = "굵게"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With ActiveCell.Characters(Start:=7, Length:=2).Font
.Name = "돋움"
.FontStyle = "보통"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With