[땡큐엑셀vba & 엑셀매크로] 셀 밑줄 (언더라인)

'작성자 : 땡큐엑셀vba & 엑셀매크로
'목 적
'1) 셀의 글자에 밑줄을 쳐봅니다.
'2) 셀의 글자에 이중 밑줄을 쳐봅니다.


Sub 셀밑줄()

    'C10셀 선택
    Cells(10, "C").Select
    '활성셀(여기서는 C10)에 값입력
    ActiveCell = "땡큐엑셀입니다."
    
    
    MsgBox "HY견고딕으로 글꼴을 변경합니다.", vbInformation, "땡큐엑셀vba & 엑셀매크로"
    '활성셀(여기서는 C10)의 글꼴을 HY견고딕으로
    ActiveCell.Font.Name = "HY견고딕"
    
    MsgBox "글자크기를 변경합니다.", vbInformation, "땡큐엑셀vba & 엑셀매크로"
    '활성셀(여기서는 C10)의 글자크기를 20으로
    ActiveCell.Font.Size = 20
    
    MsgBox "글자색을 변경합니다.", vbInformation, "땡큐엑셀vba & 엑셀매크로"
    '활성셀(여기서는 C10)의 글자색을 빨간색(vbRed)으로
    ActiveCell.Font.Color = vbRed
    
    MsgBox "밑줄을 칩니다.", vbInformation, "땡큐엑셀vba & 엑셀매크로"
    '활성셀(여기서는 C10)의 글자에 밑줄을
    ActiveCell.Font.Underline = xlUnderlineStyleSingle
    
    MsgBox "이중 밑줄을 칩니다.", vbInformation, "땡큐엑셀vba & 엑셀매크로"
    '활성셀(여기서는 C10)의 글자에 이중밑줄을
    ActiveCell.Font.Underline = xlUnderlineStyleDouble
    
    MsgBox "바탕색을 변경합니다.", vbInformation, "땡큐엑셀vba & 엑셀매크로"
    ''활성셀(여기서는 C10)의 바탕색을 검정색(vbBlack)으로
    ActiveCell.Interior.Color = vbBlack
   
   
       MsgBox "작업을 완료하였습니다.", vbInformation, "땡큐엑셀vba & 엑셀매크로"
   
End Sub



Sub 셀밑줄2()

    Cells(10, "C").Select
    ActiveCell = "땡큐엑셀입니다."
    
    
    MsgBox "글꼴,글자크기,글자색,밑줄,바탕색을 변경합니다.", vbInformation, "땡큐엑셀vba & 엑셀매크로"
    'selection.font.name="돋움"
    'selection.font.size=30
    'selection.font.color=vbRed
    'selection.font.underline=xlUnderlineStyleSingle
    '을 아래와 같이 with문으로 축약하여 표현할수 있습니다.
    With Selection.Font
        .Name = "돋움"
        .Size = 30
        .Color = vbRed
        .Underline = xlUnderlineStyleSingle '밑줄
    End With
    Selection.Interior.Color = vbBlack
    
    

    MsgBox "글꼴,글자크기,글자색,이중밑줄,바탕색을 변경합니다.", vbInformation, "땡큐엑셀vba & 엑셀매크로"
    'selection.font.name="맑은고딕"
    'selection.font.size=10
    'selection.font.color=vbBlue
    'selection.font.underline=xlUnderlineStyleDouble
    '을 아래와 같이 with문으로 축약하여 표현할수 있습니다.
    With Selection.Font
        .Name = "맑은고딕"
        .Size = 10
        .Color = vbBlue
        .Underline = xlUnderlineStyleDouble '이중밑줄
    End With
    Selection.Interior.Color = vbRed
    
        
    MsgBox "작업을 완료하였습니다.", vbInformation, "땡큐엑셀vba & 엑셀매크로"
    
End Sub

 

​

​

​

​

​

​

​

셀_언더라인-땡큐엑셀vba.xlsm

0.05MB