조건을 만족하면 지급, 아니면 부지급을 판단 함수 검토 또는 VBA

@007 님 Sub test01()

If Application.WorksheetFunction.CountIfs(Range("G:G"), "*여비부지급*", Range("M:M"), "<1", Range("C:C"), Range("F27")) < 1 Then '여비부 지급이 아니거나 편도거리가 1KM 미만이 아닐 시

If Application.WorksheetFunction.XLookup(Range("F27"), Range("C:C"), Range("F:F")) < 4 Then '출장 시간이 4시간 미만일 시

Range("G27") = "1" '1만원

ElseIf Application.WorksheetFunction.XLookup(Range("F27"), Range("C:C"), Range("F:F")) > 4 And Application.WorksheetFunction.XLookup(Range("F27"), Range("C:C"), Range("F:F")) < 24 Then '출장시간이 4시간보다 길고, 24시간보다 적을 시

Range("G27") = "2" '2만원

ElseIf Application.WorksheetFunction.XLookup(Range("F27"), Range("C:C"), Range("F:F")) > 24 Then '출장 시간이 24시간 이상일 시

Range("G27") = Application.WorksheetFunction.RoundDown(Application.WorksheetFunction.XLookup(Range("F27"), Range("C:C"), Range("F:F")) / 24, 0) * 2 '24시간마다 2만원씩 추가 지급

End If

End If

End Sub

파일을 조금 수정하여, F27 셀에 이름 입력 후 버튼 클릭 시 지급액 계산되는 VBA 코드와

지급액 열에 엑셀 자체 수식으로 계산식도 넣어봤습니다.

첨부파일 : 여비지급.xlsm