=СУММ(ЕСЛИ((base!A2:A8="01.01.08")*(base!B2:B8="1");base!L2:L8))
При внесении формулы в ячейку=#ЗНАЧ
Подскажите: в чем ошибка
Может можно как-то по другому Суммировать ячейки с несколькими критериями?

KL (XL),

=СУММ(ЕСЛИ((base!A4:A10=base!$A$2)*(base!B4:B10=1)*(base!G4:G10='0503130'!A15);base!L4:L10))
в параметрах base!G4:G10='0503130'!A15, '0503130'!A15=текстовое поле, значение которого= 01.
Не находит этотот текст, если число 1 , то находит. А мне нужен именно текст

Вложен файл

Это при условии, что столбцы находятся рядом?
Как применить эту формулу к моему примеру?

Помогите мне, пожайлуста. НЕ ЗНАЮ ЧТО И ДЕЛАТЬ
ВОПРОС ЖИЗНИ И СМЕРТИ

=СУММ(ЕСЛИ(base!A4:A10=base!A2;ЕСЛИ(base!B4:B10=1;ЕСЛИ(base!G4:G10='0503130'!A16;ЕСЛИ(base!H4:H10='0503130'!B16;base!L4:L10)))))

Только так, и не стоит мучиться!!!!!!!!!

Продолжу тему

создание пользовательской функции:

Function balans_bud(d As Date, b As Integer, S As Integer, Ss As String, K As Integer)
Dim Diap_d As String
Dim Diap_b As String
Dim Diap_S As String
Dim Diap_Ss As String
Dim Diap_K As String
Dim diap_summa As String
If Ss = "00" Then
balans_bud={=СУММ(ЕСЛИ(Diap_d=d;ЕСЛИ(Diap_b=b;ЕСЛИ(Diap_S=S;ЕСЛИ(Dim Diap_Ss =Ss;diap_summa)))))}
КАК правильно написать массив?
Else

End If

End Function

_slan_,
если я напишу в "", то объявленные переменные не будут работать

Может есть другое решение?

-- some comments
Function balans_bud(d As Date, b As Integer, S As Integer, Ss As String, K As Integer, diap_summa As String)

Dim t As Integer
Dim j As Integer
j = 1
For t = 4 To 15 Step 1
If IsDate(Cells(t, 1).Value) = False Then 'проверка пустых ячеек
Else
If Cells(t, 1).Value < d Then 'проверка меньшей даты
If Cells(t, 2).Value = b Then 'проверка бюджета
If Cells(t, 7).Value = S Then 'проверка счета
If Cells(t, 8).Value = Ss Then 'проверка субсчета
balans_bud = balans_bud + Cells(t, 12).Value
Debug.Print balans_bud
End If
End If
End If
End If
End If
Next

End Function


Когда в ячейку вставляю функцию, определенную пользователем, то в расчет берутся ячейки только с этого листа, хотя есть ссылки на другой лист. Cells(t, 1).Value : как мне описать эти ячейки?

-- some comments

Function balans_bud(d As Date, b As Integer, S As Integer, Ss As String, K As Integer, diap_summa As String)

Dim t As Integer
Dim j As Integer
j = 1
For t = 2 To 25 Step 1
If IsDate(Sheets("base").Cells(t, 1).Value) = False Then
Else
If Sheets("base").Cells(t, 1).Value < d Then
If Sheets("base").Cells(t, 2).Value = b Then
If Sheets("base").Cells(t, 7).Value = S Then
If Sheets("base").Cells(t, 8).Value = Ss Then
balans_bud = balans_bud + Sheets("base").Cells(t, 12).Value

End If
End If
End If
End If
End If
Next

End Function
Сделала так, но вот проблема:
Если меняю цифры в ячейках Sheets("base").Cells(t, 12).Value
,то формула не перещитовается

Пересчет не происходит:


Private Sub Worksheet_Change(ByVal Target As Range)
Application.Volatile
End Sub