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

 참서리 (k5953)

추천:  2
파일:     get sheetName date formed.xlsm (18.3KB) 조회:  1607
제목:   [RE]시트이름 날짜로 가져오기
     
  '--------------------------------------------------
Function getsheetname_1()
'--------------------------------------------------
    
    Application.Volatile
    
    Dim sheetname As String
    sheetname = Application.Caller.Parent.Name
    '6월1일, 6,1
    Dim vX As Variant
    vX = Split(Replace(Replace(sheetname, " ", ""), "일", ""), "월")
    Dim vDate As Date
    vDate = DateSerial(Year(VBA.Date), vX(0), vX(1))
    
    getsheetname_1 = Array( _
                                        Format(vDate, "yyyy년 mm월  dd일"), _
                                        Format(vDate, "aaaa") _
                                        )
    
    
    
End Function '
'
'
'--------------------------------------------------
Function getsheetname()
'--------------------------------------------------
    
    Application.Volatile
    Dim sheetname As String
    sheetname = Application.Caller.Parent.Name
    '6월1일, 6,1
    Dim vX As Variant
    vX = Split(Replace(Replace(sheetname, " ", ""), "일", ""), "월")
    getsheetname = DateSerial(Year(VBA.Date), vX(0), vX(1))

End Function

 
[불량 게시물 신고]  
참서리다음 YouTube 동영상에 자세히 설명되어 있습니다.
https://youtu.be/ZgFmTioSrc4
06-01 (22:52)
삭제 ■신고
차알돌이YouTube 설명까지 친절하게 해주셔서
너무 감사합니다.잘 들었습니다
06-02 (09:08)
삭제 ■신고
        
  

작성일 : 2019-06-01(22:51)
최종수정일 : 2019-06-01(22:51)
 


 ◎ 관련글

  제 목   작성자   날짜
시트이름 날짜로 가져오기 차알돌이 2019-06-01
[RE]시트이름 날짜로 가져오기 참서리 2019-06-01