Q&A

  • 엑셀...
예를 들어 셀의 내용이

'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;

하니까 걍 그대로 있던데요...
1  COMMENTS
  • Profile
    박종덕 2005.01.13 02:13


    셀타입이 숫자인경우에는 적용되지 않습니다.
    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