[땡큐엑셀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셀의 폰트를 맑은고딕으로
    'Cells(10,"C")와 Cells(10,3)은 동일한 의미입니다.
    Cells(10, 3).Font.Name = "맑은고딕"
    
    '메시지박스 띄우기
    MsgBox "돋움으로 글꼴을 변경합니다.", vbInformation, "땡큐엑셀vba & 엑셀매크로"
    '선택된 셀(여기서는 C10)의 폰트를 돋움으로 변경
    Selection.Font.Name = "돋움"
    
    
     MsgBox "완료되었습니다", vbInformation, "땡큐엑셀vba & 엑셀매크로"
End Sub





Sub 셀글꼴바꾸기2()


    'C1셀 선택
    Cells(1, "C").Select
    '활성화셀(여기서는 C1)에 값입력
    ActiveCell = "땡큐엑셀입니다."
    '활성화셀(여기서는 C1)의 글꼴을 HY견고딕으로
    ActiveCell.Font.Name = "HY견고딕"
    
    'C2셀에 값입력
    Cells(2, "C") = "땡큐엑셀입니다."
    'C2셀의 폰트를 맑은고딕으로
    Cells(2, 3).Font.Name = "맑은고딕"
    
    'C3셀에 값입력
    Cells(3, "C") = "땡큐엑셀입니다."
    'C3셀 선택
    Cells(3, 3).Select
    '선택된셀(여기서는 C3)의 폰트를 돋움으로 변경
    Selection.Font.Name = "돋움"
    '선택된셀을 C4셀로 복사
    Selection.Copy (Cells(4, 3))
    
    
    'C3셀을 C5셀로 이동합니다.
    'Cells(3,3) = Cells(3,"C")과 같은 의미
    'Cells(5,3) = Cells(5,"C")와 같은 의미
    Cells(3, 3).Cut (Cells(5, 3))
    
    'C2셀 선택
    Cells(2, 3).Select
    '선택셀(여기서는 C2)을 C6셀로 이동합니다.
    Selection.Cut (Cells(6, 3))
    
    
     MsgBox "완료되었습니다", vbInformation, "땡큐엑셀vba & 엑셀매크로"
End Sub

 

​

​

​

​

 

셀_글꼴-땡큐엑셀vba.xlsm

0.05MB

​