간격이없는 가장 긴 기간 찾기

Question

어떤 종업원이 중단없이 일한 가장 긴 기간을 표시하는 수식을 만들어야합니다.

예상 outpud이다 : - Agent1 : - 이십일일 (8H 시간 10 시프트, BO (ilness) 5 개 교대; VK 6 시프트 (주말) I는 화학식 또는 VBA (I 필요

가정 내가 :) 확인해야합니다 약 140 emplees)

Example of table

Answer 1

VBA 솔루션

이 있기 때문에 캔트 수동 검사를 사용 값을 '8', 'BO'와 'VK'이외의 모든 것이 중단을 고려,이 중단 작업의 가장 긴 기간의 총 일수를 제공해야

Option Explicit 

Function longestPeriod(rng As Range) As Integer 
    Dim k As Integer, cell As Range 
    k = 0 
    longestPeriod = 0 
    For Each cell In rng 
     If cell.Value = "8" Or cell.Value = "BO" Or cell.Value = "VK" Then 
      k = k + 1 
     Else 
      If k > longestPeriod Then 
       longestPeriod = k 
      k = 0 
      End If 
     End If 
    Next cell 
    If k > longestPeriod Then 
     longestPeriod = k 
    End If 
End Function 

사용 예 : = longestPeriod (B6 : B500)