Уважаемые форумчане, добрый день, просьба к вам помочь с таким вот вопросом: имеется таблица продаж по клиентам, в которой также представлены номера счетов фактур. Необходимо с помощью формул отфильтровать данную таблицу допустим по получатель: Кузьмин, позиция: лейка, и полученные номера счетов фактур копировать в столбец выделенный желтым цветом (т.е формула должна находиться в данном столбце). При этом необходимо, чтобы номера СФ следовали друг за другом не по возрастанию, а в том порядке в котором находятся в таблице. Заранее спасибо за помощь/совет.
Уважаемые форумчане, добрый день, просьба к вам помочь с таким вот вопросом: имеется таблица продаж по клиентам, в которой также представлены номера счетов фактур. Необходимо с помощью формул отфильтровать данную таблицу допустим по получатель: Кузьмин, позиция: лейка, и полученные номера счетов фактур копировать в столбец выделенный желтым цветом (т.е формула должна находиться в данном столбце). При этом необходимо, чтобы номера СФ следовали друг за другом не по возрастанию, а в том порядке в котором находятся в таблице. Заранее спасибо за помощь/совет.kameron5
Public Function SF(RR As Range, Recipient, Good As String, N As Long) As String For Each R In RR If R.Cells(1, 1).Value = Recipient And R.Cells(1, 2).Value = Good Then Counter = Counter + 1 If Counter = N Then SF = R.Cells(1, 3).Value Exit Function End If End If Next R End Function
[/vba]
В столбце H
Код
=SF($B$2:$B$30;$E$2;$F$2;СТРОКА()-1)
UDF [vba]
Код
Public Function SF(RR As Range, Recipient, Good As String, N As Long) As String For Each R In RR If R.Cells(1, 1).Value = Recipient And R.Cells(1, 2).Value = Good Then Counter = Counter + 1 If Counter = N Then SF = R.Cells(1, 3).Value Exit Function End If End If Next R End Function
Еще один вопрос, можно модифицировать формулу, чтобы считались не просто лопаты и лейки, со строгим совпадением, а если ячейка содержит много символов среди которых имеет значение лейка. Во вложении новый список, где присутствуют лейка-1; лейка-2 Ле1ка-3, желательно чтобы они все считались когда мы ищем просто слово: лейка.
Это возможно сделать?
Еще один вопрос, можно модифицировать формулу, чтобы считались не просто лопаты и лейки, со строгим совпадением, а если ячейка содержит много символов среди которых имеет значение лейка. Во вложении новый список, где присутствуют лейка-1; лейка-2 Ле1ка-3, желательно чтобы они все считались когда мы ищем просто слово: лейка.
Public Function SF(RR As Range, Recipient, Good As String, N As Long) As String For Each R In RR If R.Cells(1, 1).Value = Recipient And (InStr(LCase(R.Cells(1, 2).Value), LCase(Good)) > 0) Then Counter = Counter + 1 If Counter = N Then SF = R.Cells(1, 3).Value Exit Function End If End If Next R End Function
[/vba]
kameron5,
для UDF очень просто
[vba]
Код
Public Function SF(RR As Range, Recipient, Good As String, N As Long) As String For Each R In RR If R.Cells(1, 1).Value = Recipient And (InStr(LCase(R.Cells(1, 2).Value), LCase(Good)) > 0) Then Counter = Counter + 1 If Counter = N Then SF = R.Cells(1, 3).Value Exit Function End If End If Next R End Function