Здравствуйте. Уважаемые форумчане, по возможности прошу помочь с формулой.
Нужно произвести подсчет отработанных смен (из диапазона E5:AF5) в ячейке AG5. Критерий 1: ВСЕ значения из диапазона B3:B10 Критерий 2: подсчитывать, только если день месяца обозначен в диапазоне E2:AF2 как ИСТИНА.
Ігор Гончаренко написал: не нужно извинятся. нам по кайфу по 40 раз решать одну и туже задачу
Игорь к чему столько негатива, добрее надо быть Вариант UDF
Код
Public Function RegSum(Rn As Range, Rn1 As Range)
Dim n As Long, i As Long, arr1 As Variant, arr2 As Variant
arr1 = Rn
arr2 = Rn1
s = 0
Set RegExp = CreateObject("VBScript.RegExp")
RegExp.Pattern = "\d+([\.|,]\d+)?"
RegExp.Global = True
For n = LBound(arr1, 2) To UBound(arr1, 2)
If arr2(1, n) = True And RegExp.Test(arr1(1, n)) Then
Set objMatches = RegExp.Execute(arr1(1, n))
For i = 0 To objMatches.Count - 1
s = s + CDbl(Replace(objMatches.Item(i).Value, ".", ","))
Next i
End If
Next n
RegSum = s
End Function