[megaloman]

Tolea3, Основывать зависимость вычислений от дифференциации цвета штанов ячеек - плохая идея, так как: "изменение цвета шрифта не является изменением содержимого ячеек и не вызывает пересчёта"(Iska). Да, плюс к этому, если цвет ячейки случайно назначили не красным, а каким-нибудь красно-зелёным, получим не то что хотелось.
Могу предложить другую идею: основное время писать цифрами (7,50), а дополнительное - цифрами с + (7,50+) на конце. Вот доработанная функция.

Код:

Function SumTimDec(rall As Range, Optional Flag As Integer = 1)
    SumTimDec1 = 0
    SumTimDec2 = 0
    For Each r In rall
        If IsNumeric(r) Then
            If Flag = 1 And Right(r, 1) <> "+" Then
                SumTimDec1 = SumTimDec1 + Int(r)
                SumTimDec2 = SumTimDec2 + (r - Int(r)) * 100
            End If
            If Flag = 2 And Right(r, 1) = "+" Then
                rr = CDec(r)
                SumTimDec1 = SumTimDec1 + Int(rr)
                SumTimDec2 = SumTimDec2 + (rr - Int(rr)) * 100
            End If
        End If
    Next
    SumTimDec = SumTimDec1 + Int(SumTimDec2 / 60) + Round((SumTimDec2 Mod 60) / 100, 2)
    If Flag = 2 Then SumTimDec = CStr(SumTimDec) + "+"
End Function

Что касается цвета ячеек в зависимости от значения - есть условное форматирование. Пример прикрепляю.

[Tolea3]

megaloman, спасибо за идею. я спрошу человека как ему будет удобнее из двух вариантов и сделаю финальный вариант.

[Iska]

но проблема остаётся. »

Научите нажимать F9 после изменения цвета шрифта. »