[땡큐엑셀vba & 엑셀매크로] 여러시트의 셀에 값입력

'작성자 : 땡큐엑셀vba & 엑셀매크로
'목 적
'1) 여러시트의 셀에 값을 입력해 봅니다.
'2) 현재 보이는(Active)시트의 셀에 값을 입력해 봅니다.
' Sheets(시트명).cells(행,열)의 형식으로 다른 시트에 값을 입력할수 있습니다.


Sub 여러시트의셀에값입력()
    'Sheet1의 A1셀에 값입력
    Sheets("Sheet1").Cells(1, "A") = "Sheet1입니다"
    
    'Sheet2의 A1셀에 값입력
    Sheets("Sheet2").Cells(1, "A") = "Sheet2입니다"
    
    'Sheet3의 A1셀에 값입력
    Sheets("Sheet3").Cells(1, "A") = "Sheet3입니다"

     MsgBox "완료되었습니다", vbInformation, "땡큐엑셀vba & 엑셀매크로"
End Sub


Sub 여러시트의셀에값입력2()
    '현재 보이는(Active)시트의 A3셀에 값입력
    Cells(3, "A") = "안녕하세요. 땡큐엑셀입니다."

    'Sheet1의 A4셀에 값입력
    Sheets("Sheet1").Cells(4, "A") = "Sheet1. 만나서 반갑습니다."
    
    'Sheet2의 A4셀에 값입력
    Sheets("Sheet2").Cells(4, "A") = "Sheet2. 만나서 반갑습니다."
    
    'Sheet3의 A4셀에 값입력
    Sheets("Sheet3").Cells(4, "A") = "Sheet3. 만나서 반갑습니다."

     MsgBox "완료되었습니다", vbInformation, "땡큐엑셀vba & 엑셀매크로"
End Sub

 

 

 

 

sheet1

 

sheet2

 

sheet3

 

 

셀_여러시트에입력-땡큐엑셀vba.xlsm

0.02MB