나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내

작성자:  

 김은경 (kk0515)

추천:  2
파일:     조회:  3760
제목:   시트이름을 일괄적으로 변경할 수 있는 방법이 있는지요.
     
  * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

1. 엑셀 버전(95,97,2000,2002):
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...): 

* 아래줄에 질문을 작성하세요 >>
현재 파일을 월별로 만들고 파일 안에 시트이름이 
0601, 0602, 0603 .... 이렇게 되어있는데,
이것을 일괄적으로 0701, 0702, 0703.... 이렇게 바꾸고 싶습니다.
방법이 있을까요?
 
[불량 게시물 신고]  
미피모듈을 추가하고 아래코드를 넣고 실행시키세요.
시트들 이름이 모두 날짜형식이고 다른 특정이름의 시트는 없는것으로 가정합니다. 또한 시트이름이 오름차순 날짜순으로 정렬되었다고 가정하고...

Sub WSRename()
    Dim WS As Worksheet
    Dim sMon As String
    Dim iDay As Integer
    sMon = "07"
    For Each WS In Worksheets
        iDay = iDay + 1
        WS.Name = sMon & Format(iDay, "00")
    Next WS
End Sub

좋은하루되세요^^
07-01 (08:45)
삭제 ■신고
        
  

작성일 : 2003-07-01(07:36)
최종수정일 : 2003-07-01(07:36)