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

 참서리 (k5953)

추천:  2
파일:     주_야간_근무_달력.xlsm (164.6KB) 조회:  1345
제목:   [RE]달력시트에 일마다 다른 함수값 고정하는 법
     
  '---------------------------------------------------------------------------------------
Function work_part(rName As Range, rPart As Range, iFind As Integer) As Variant
'---------------------------------------------------------------------------------------

    'Dim rName As Range: Set rName = [D6:D18]
    'Dim rPart As Range: Set rPart = [E6:E18]
    'Dim iFind As Integer: iFind = 1
    
    Dim vResult As Variant
    Dim oList As Object: Set oList = CreateObject("System.Collections.ArrayList")
    
    For i = 1 To rPart.Cells.Count
        If rPart.Cells(i).Value = iFind Then
            oList.Add rName.Cells(i).Value
        End If
    Next
  
   
    If oList.Count = 0 Then
        work_part = ""
    Else
        oList.Sort
    
        work_part = Join(oList.toarray, vbLf)
    End If
    
End Function


 
[불량 게시물 신고]  
참서리다음 YouTube 영상에서 자세히 설명되어 있습니다.
https://youtu.be/e81e0bMXbjA
05-17 (02:00)
삭제 ■신고
        
  

작성일 : 2019-05-17(01:59)
최종수정일 : 2019-05-17(01:59)
 


 ◎ 관련글

  제 목   작성자   날짜
달력시트에 일마다 다른 함수값 고정하는 법 헤이지니 2019-05-15
[RE]달력시트에 일마다 다른 함수값 고정하는 법 참서리 2019-05-17