[땡큐엑셀vba & 엑셀매크로] 셀 바탕색 바꾸기

'작성자 : 땡큐엑셀vba & 엑셀매크로
'목 적
'1) 셀의 바탕색을 바꾸어 봅니다.
'2) 셀의 글자색을 바꾸어 봅니다.
'3) 셀의 글꼴을 변경해 봅니다.
'4) 셀의 글자크기를 바꾸어 봅니다.

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)의 바탕색을 검정색(vbBlack)으로
    ActiveCell.Interior.Color = vbBlack
    
    
    
    '메시지박스 띄우기
    MsgBox "맑은고딕으로 글꼴을 변경합니다.", vbInformation, "땡큐엑셀vba & 엑셀매크로"
    'C10셀의 글꼴을 맑은고딕으로
    Cells(10, 3).Font.Name = "맑은고딕"

    '메시지박스 띄우기
    MsgBox "글자크기를 변경합니다.", vbInformation, "땡큐엑셀vba & 엑셀매크로"
    'C10셀의 글자크기를 10으로
    Cells(10, 3).Font.Size = 10
    
    
    '메시지박스 띄우기
    MsgBox "글자색을 변경합니다.", vbInformation, "땡큐엑셀vba & 엑셀매크로"
    'C10셀의 글자색을 녹색(vbGreen)으로
    Cells(10, 3).Font.Color = vbGreen
    
    '메시지박스 띄우기
    MsgBox "바탕색을 변경합니다.", vbInformation, "땡큐엑셀vba & 엑셀매크로"
    'C10셀의 바탕색을 빨간색(vbRed)으로
    Cells(10, 3).Interior.Color = vbRed
    
    
    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
    '를 아래와 같이 with문을 사용하여 표현할수 있습니다.
    With Selection.Font
        .Name = "돋움"
        .Size = 30
        .Color = vbRed
    End With
    Selection.Interior.Color = vbBlack
    
    

    MsgBox "글꼴,글자크기,글자색,바탕색을 변경합니다.", vbInformation, "땡큐엑셀vba & 엑셀매크로"
    'Selection.Font.Name = "맑은고딕"
    'Selection.Font.Size = 10
    'Selection.Font.Color = vbBlue
    '를 아래와 같이 with문을 사용하여 표현할수 있습니다.
    With Selection.Font
        .Name = "맑은고딕"
        .Size = 10
        .Color = vbBlue
    End With
    Selection.Interior.Color = vbRed
    
        
    MsgBox "작업을 완료하였습니다.", vbInformation, "땡큐엑셀vba & 엑셀매크로"
    
End Sub

 

​

​

​

​

​

 

셀_바탕색-땡큐엑셀vba.xlsm

0.05MB