|
08.02.2006, 10:17:00
#33530409
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
|
|
|
|
|
Я для этого написал фунцию в VBA, удали все лишнее, но можно работать и так...
Function Сравн(ДиапСравн1 As Range, услмин1 As Integer, услмах1 As Integer, диапСравн2 As Range, усл2 As String, диапСуммир As Range)
' Функция Двойного условия т.е.
'1-й диапазон числовой(условие min,max)
'2-й диапазон строковый(условие)
'3-й диапазон суммирование
'
Dim Uslov1(), Uslov2() As Boolean
summa = 0
ReDim Uslov1(ДиапСравн1.Count)
ReDim Uslov2(диапСравн2.Count)
For i = 1 To ДиапСравн1.Count
If (ДиапСравн1.Cells(i, 1).Value >= услмин1 And ДиапСравн1.Cells(i, 1).Value <= услмах1) Then
Uslov1(i) = True
End If
Next i
For i = 1 To диапСравн2.Count
If диапСравн2.Cells(i, 1).Value = усл2 Then
Uslov2(i) = True
End If
Next i
For i = 1 To диапСуммир.Count
If (Uslov1(i) And Uslov2(i)) Then summa = summa + диапСуммир.Cells(i, 1).Value
Next i
Сравн = summa
End Function
|
|
|
