Com base em várias datas na coluna F
e em ListObject
/ "table" com uma coluna From
e To
contendo os eventos iniciando & datas de término, estou obtendo resultados aparentemente corretos com essa fórmula COUNTIFS
:
=COUNTIFS(Table1[From],"<="&$F2,Table1[To],">="&$F2)
FWIW Estou obtendo resultados idênticos com esta função VBA:
Public Function CountFor(ByVal calendarDate As Date, ByVal eventDates As Range) As Long
Dim dates As Variant
dates = eventDates.Value
'assert eventDates consists of 2 columns
Debug.Assert UBound(dates, 2) = 2
Const StartDateColumn = 1
Const EndDateColumn = 2
Dim result As Long
Dim eventIndex As Long
For eventIndex = LBound(dates, 1) To UBound(dates, 1)
If dates(eventIndex, StartDateColumn) <= calendarDate And dates(eventIndex, EndDateColumn) >= calendarDate Then result = result + 1
Next
CountFor = result
End Function
Usado da seguinte forma:
=COUNTFOR($F2,Table1[[From]:[To]])