Подсчет количества дней в указанных датах с обновлением в реальном времени

Question

Я использовал приведенную ниже формулу, чтобы рассчитывать количество дней ожидания с обновлением в реальном времени. Но это не работает хорошо. Я использовал vba для подсчета только тех клеток, которые не имеют цвета. Ячейка XFD является пустой ячейкой, чтобы задать критерий подсчета только пустой ячейки. Задача состоит в исключении дней назад в режиме реального времени.

=(CountCellsByColor($B2:$AL2,$XFD$1))-(TODAY()-$B$1)

VBA, указанный ниже:

Function CountCellsByColor(rData As Range, cellRefColor As Range) As Long
    Dim indRefColor As Long
    Dim cellCurrent As Range
    Dim cntRes As Long

    Application.Volatile
    cntRes = 0
    indRefColor = cellRefColor.Cells(1, 1).Interior.Color
    For Each cellCurrent In rData
        If indRefColor = cellCurrent.Interior.Color Then
            cntRes = cntRes + 1
        End If
    Next cellCurrent

    CountCellsByColor = cntRes
End Function

Answer 1

(Предполагается, что ячейка текущего дня не включена.)

TLDR: добавить совпадение и смещение в формулу.

Если введенная дата отформатирована как дата (не текст) , затем используйте:

=CountCellsByColor($B2:$AL2,$XFD$1)-CountCellsByColor(OFFSET($B2,0,0,1,MATCH(today(),$B1:$AL1,0)),$XFD$1)

Надеюсь, это поможет. (: