(1006) alt + Enter 친 첫 행만 폰트 굵게 색표시 (엑셀 VBA 매크로) [출처] (1006) alt + Enter 친 첫 행만 폰트 굵게 색표시 (엑셀 VBA 매크로)|작성자 니꾸

http://blog.naver.com/PostView.nhn?blogId=rosa0189&logNo=60157461967&parentCategoryNo=&categoryNo=41&viewDate=&isShowPopularPosts=false&from=postView

첨부파일 (1)

          
매크로 실행 전                                             매크로 실행 후 결과

 

Option Explicit

Sub emphasize_The_First_Line()

 

    Dim rngC As Range                                         '각셀을 넣을 변수
    Dim intNo As Integer                                         'alt + Enter 위치를 넣을 변수
    Dim i As Integer                                               '반복구문에 사용할 변수
  

    Application.ScreenUpdating = False                  '화면 업데이트 (일시)정지

    
    For Each rngC In Columns(1).SpecialCells(2)    'A열 각 셀을 순환
        If InStr(1, rngC, Chr(10), 0) Then                  '각 셀에 alt + Enter 줄바꿈 있으면
            intNo = InStr(1, rngC, Chr(10), 0)              'alt + Enter 위치를 변수에 넣음
 
            For i = 1 To intNo - 1                               '첫 alt + Enter위치 개수만큼 반복
                With rngC.Characters(i, 1).Font            '각 문자의 폰트를
                    .Bold = True                                   '굵게
                    .Color = vbBlue                              '색을 파란색으로
                End With
            Next i
 
        End If
    Next rngC
    
End Sub