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

 참서리 (k5953)

추천:  2
파일:     get_unique_Year_month_format.xlsm (16.9KB) 조회:  1388
제목:   [RE]한가지 더 올립니다. 날자셀의 년월 가져오기
　 　 　
　 '---------------------------------------------------
Function unique_date(rngX As Range) As String
'---------------------------------------------------

    'Dim rngX As Range: Set rngX = Range("B2:B4")
    Dim sTemp As String: sTemp = ""
    Dim cell As Range
    Dim sDate As String
    
    ' 각 셀을 돌며
    For Each cell In rngX.Cells
    
          ' 년-월형식으로 리턴
          sDate = VBA.Format(cell.Value, "yyyy년 mm월")
          If sTemp = "" Then ' 처음일때
                sTemp = sDate
                
          Else ' 처음이 아닐 때
                ' sTemp에 없으면 추가
                If InStr(1, sTemp, sDate) = 0 Then sTemp = sTemp & "," & sDate
    
          End If
     
     Next cell
    
    unique_date = sTemp
    
End Function


 		　
[불량 게시물 신고]  
참서리다음 YouTube 영상에 자세히 설명되어 있습니다.
https://youtu.be/7XNplKXgVOY		06-16 (21:21)
ⓧ삭제 ■신고
김현수번번히 감사드립니다.
잘 사용토록 하겠습니다.		06-18 (10:22)
ⓧ삭제 ■신고
 　  　  　
  

작성일 : 2019-06-16(21:20)
최종수정일 : 2019-06-16(21:20)
　


 ◎ 관련글
  제 목   작성자   날짜
한가지 더 올립니다. 날자셀의 년월 가져오기 김현수 2019-06-16
◎ [RE]한가지 더 올립니다. 날자셀의 년월 가져오기 참서리 2019-06-16