【VBA】 시트를 오브젝트명으로 지정

기본 시트 객체 이름

디폴트에서는 Sheet1(시트명) 등이 되어 있습니다.

시트 오브젝트 이름 변경

디폴트 그대로도 좋지만, 알기 쉬운 이름으로 변경하면 취급하기 쉽다.


셀 지정 등에 사용하면 이런 느낌으로 깔끔하기 때문에 좋아

Sub MasterDataAdd1()
    '最終行のひとつ下にデータを追加する
    Dim LastRow As Long
    LastRow = Master.Cells(Rows.Count, 1).End(xlUp).Row
    Master.Cells(LastRow + 1, 1).Value = 10
    Master.Cells(LastRow + 1, 2).Value = "jjj"
End Sub

실행 결과


TihsWorkbook~토카다라고 이런 느낌

Sub MasterDataAdd()
    '最終行のひとつ下にデータを追加する
    Dim LastRow As Long
    LastRow = ThisWorkbook.Worksheets("マスタ").Cells(Rows.Count, 1).End(xlUp).Row
    ThisWorkbook.Worksheets("マスタ").Cells(LastRow + 1, 1).Value = 10
    ThisWorkbook.Worksheets("マスタ").Cells(LastRow + 1, 2).Value = "jjj"
End Sub

길어지고 시트 이름을 변경했을 때 번거롭다!
마음대로 시트 이름을 바꾸는 사람은 자주 있습니다.

와타시 흐름 조건

어떤 Book이 Active가 되어도 제대로 지정할 수 있도록
언제나 도키도 시트 오브젝트명을 붙이고 싶다!