[땡큐엑셀vba & 엑셀매크로] 셀의 글자크기 바꾸기

'작성자 : 땡큐엑셀vba & 엑셀매크로
'목 적
'1) 셀의 글자크기를 바꾸어 봅니다.
'2) 셀의 글꼴을 바꾸어 봅니다.
'3) 셀의 글꼴과 크기를 바꾸어 봅니다.
'4) With문을 사용해 봅니다.




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셀의 폰트를 맑은고딕으로
    Cells(10, 3).Font.Name = "맑은고딕"

    '메시지박스 띄우기
    MsgBox "글자크기를 변경합니다.", vbInformation, "땡큐엑셀vba & 엑셀매크로"
    'C10셀의 폰트크기를 10으로
    Cells(10, 3).Font.Size = 10
    
    
    '메시지박스 띄우기
    MsgBox "돋움으로 글꼴을 변경합니다.", vbInformation, "땡큐엑셀vba & 엑셀매크로"
    '선택셀(여기서는 C10)의 글꼴을 돋움으로
    Selection.Font.Name = "돋움"

    '메시지박스 띄우기
    MsgBox "글자크기를 변경합니다.", vbInformation, "땡큐엑셀vba & 엑셀매크로"
    '선택셀(여기서는 C10)의 글자크기를 11로
    Selection.Font.Size = 11
    
    
     MsgBox "완료되었습니다", vbInformation, "땡큐엑셀vba & 엑셀매크로"
End Sub



Sub 셀글자크기바꾸기2()

    Cells(10, "C").Select
    ActiveCell = "땡큐엑셀입니다."
    
    MsgBox "HY견고딕으로 글꼴을 변경합니다.", vbInformation, "땡큐엑셀vba & 엑셀매크로"
    ActiveCell.Font.Name = "HY견고딕"
    
    MsgBox "글자크기를 변경합니다.", vbInformation, "땡큐엑셀vba & 엑셀매크로"
    ActiveCell.Font.Size = 20

    
    MsgBox "글꼴과 글자크기를 변경합니다.", vbInformation, "땡큐엑셀vba & 엑셀매크로"
    'selection.font.name = "돋움"
    'selection.font.size = 30
    '을 아래와 같이 표현할수 있습니다.
    'with문을 사용하여 중복되는 코드를 줄일수 있습니다.
    With Selection.Font
        .Name = "돋움"
        .Size = 30
    End With
    

    MsgBox "글꼴과 글자크기를 변경합니다.", vbInformation, "땡큐엑셀vba & 엑셀매크로"
    'selection.font.name = "맑은고딕"
    'selection.font.size = 10
    '을 아래와 같이 표현할수 있습니다.
    'with문을 사용하여 중복되는 코드를 줄일수 있습니다.
    With Selection.Font
        .Name = "맑은고딕"
        .Size = 10
    End With
    
        
    MsgBox "작업을 완료하였습니다.", vbInformation, "땡큐엑셀vba & 엑셀매크로"
    
End Sub

 

​

​

​

 

 

셀_글자크기-땡큐엑셀vba.xlsm

0.05MB