[땡큐엑셀vba & 엑셀매크로] 셀내용 지우기

'작성자 : 땡큐엑셀vba & 엑셀매크로
'목  적
'1) 셀에 값 또는 함수를 입력해 봅니다.
'2) 셀의 내용을 지워봅니다.


Sub 셀내용지우기()
    'A1셀에 문자입력
    Cells(1, "A") = "땡큐엑셀입니다."
    
    'A2셀에 오늘날짜 입력
    Cells(2, "A") = "=today()"

    MsgBox "A1셀을 지웁니다."
    'A1셀 내용지우기
    Cells(1, "A") = ""
   'Cells(1,"A").ClearContents '동일하게 내용을 지움

    MsgBox "A2셀을 지웁니다."
    'A2셀 내용지우기
    Cells(2, "A") = ""
   'Cells(2,"A").ClearContents '동일하게 내용을 지움

End Sub




Sub 셀내용지우기2()

    'B1셀에 1입력
    Cells(1, "B") = 1
    Cells(2, "B") = 2
    Cells(3, "B") = 3
    Cells(4, "B") = 4
    Cells(5, "B") = 5
    Cells(6, "B") = 6
    Cells(7, "B") = 7
    Cells(8, "B") = 8
    Cells(9, "B") = 9
    'B10셀에 10입력
    Cells(10, "B") = 10
    
    'B11셀에 B1:B10까지의 합계 함수 입력
    Cells(11, "B") = "=sum(B1:B10)"
    
    'B12셀에 B11셀의 값과 내용 입력
    Cells(12, "B") = "합계는 " & Cells(11, "B") & " 입니다."
    
    MsgBox "합계는 " & Cells(11, "B") & " 입니다"

    MsgBox "B12셀을 지웁니다"
    
    'B12셀 내용지우기
    Cells(12, "B").ClearContents

End Sub

 

​

 

 

셀_내용지우기-땡큐엑셀vba.xlsm

0.02MB

​

​