엑셀 매크로 VBA] 워크시트 이름을 셀 내용으로 자동으로 바꾸기

2017.04.29 11:30



셀에 입력하는 텍스트 내용을 자동으로 시트 이름으로 바꿔주는 매크로. 




적용하려는 시트에 아래 코드 입력.

(시트 제목이 입력될 셀이 A3셀인 경우)




1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
 
ActiveSheet.Name = ActiveSheet.Range("A3").Value
 
End Sub
cs







해당 셀(A3)의 텍스트가 바뀔 때마다 자동으로 시트 이름이 변경된다. 









저작자 표시 비영리 변경 금지
신고

또루아빠 Excel/엑셀 VBA , , , , , , ,

  1. Blog Icon
    권민

    정말 큰 도움이 되었습니다 감사합니다

  2. 댓글 감사합니다. 행복한 하루 되세요.. ^^

  3. Blog Icon
    권민

    안녕하세요! 혹시 이 기능을 매크로(단축키나 버튼으로 사용 가능하게) 하려면 어떻게 해야 하나요..?
    바쁘시면 어떤 검색어로 검색이나 공부해야 할 지라도 알려주시면 감사하겠습니다..!

  4. http://ttend.tistory.com/384
    이 글 보시면 버튼(단추)에다가 매크로 연결해서 사용하는 방법이 나오는데 이 방법이면 괜찮을까요?

  5. ㅎㅎ 더 헷갈릴수 있겠네요.

    매크로 연결하는 단추 만드는 방법은 아신다고 전제하고 말씀드리면

    1. 먼저 버튼 만드시구요
    2. 버튼에서 오른쪽 버튼 -매크로지정
    3. 매크로 편집
    4. 매크로 입력하는 부분이 Sub 단추1_Click ()이렇게 나올겁니다.
    그 아랫줄 End Sub 사이에
    블로그 소스에 있는 ActiveSheet.Name = ActiveSheet.Range("A3";).Value 를 끼워넣으시요.

    이제 엑셀 시트에서 A3셀에 텍스트를 입력하고 버튼을 클릭하면 시트 이름이 바뀔껍니다. 아마. ^^;;