[땡큐엑셀vba & 엑셀매크로] 지각합계 사용자정의 함수

 

 

'http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=280229761
'
'개인 근태 관련 1월~12월 까지 각각의 시트가 있습니다.
'각 시트별 지각시 "1지", "2지" (1시간지각, 2시간지각)
'로 표기 합니다. 지각에대한 연장시 "1지연", "2지연" 씩으로 표기하는데요.
'
'마지막 시트에서 월별 지각 및 지각연장에 대한 합계를 구하고
'싶습니다.



'
' source by 땡큐엑셀vba & 엑셀매크로
'
' 사용자정의함수
Function 지각(r1 As Range) As Integer
    On Error Resume Next
    

    For Each c In r1
        
        구분문자 = Right(c, 1) '오른쪽 한글자
        
        If 구분문자 = "지" Then
                지각합계 = 지각합계 + Int(Left(c, Len(c) - 1))
        End If
            
    Next

    지각 = 지각합계

End Function


Function 지연(r1 As Range) As Integer

    For Each c In r1
        
        구분문자 = Right(c, 1)
        
        If 구분문자 = "연" Then
                지연합계 = 지연합계 + Int(Left(c, Len(c) - 2))
        End If
            
    Next

    지연 = 지연합계

End Function

월별지각및지각연장합계구하기-사용자정의함수-땡큐엑셀vba.xlsm

0.20MB