|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007): 엑셀2010
* 아래줄에 질문을 작성하세요 >>
날짜 배열 문의합니다.
기간내 날짜 값을 한셀에 나열 하는 수식 문의합니다.
2018/10/1 ~ 2018/10/31 매주 수, 목 => 10/3,10/4,10/10,10/11,10/17,10/18,10/24,10/25
저렇게 짧은기간이아니라 더 긴기간을 입력하다보니
검색해서 직접 알아보려했으나 .. 수식이 너무 어려워 문의드립니다.
==============[박현정님 글에 대한 답변입니다]==============
함수로 작성하는 것 보다 아래와 같이 사용자 정의함수를 사용하여야 할 것 같습니다.
A1셀에 시작일 : 2018/10/1
B1셀에 종료일 : 2018/10/31
C1셀에 옵션 : 수,목
D1셀에 결과 =DateToText(A1, B1, C1)
Function DateToText(dStart As Date, dEnd As Date, sOpt As String) As String
Dim iX As Integer
Dim sMD As String
Dim datTemp As Date
Application.Volatile
For iX = 0 To dEnd - dStart
datTemp = dStart + iX
If InStr(sOpt, Format(datTemp, "aaa")) Then
sMD = sMD & Format(datTemp, "m\/d") & ", "
End If
Next
DateToText = Left(sMD, Len(sMD) - 2)
End Function |
|