Robocop01, насколько я понимаю, никак, потому что результатом работы формулы будет некий массив. Т.е. Вы сможете его просуммировать, найти большее-меньшее, выбрать любой его элемент. А значением ячейки должно быть некое значение
Robocop01, насколько я понимаю, никак, потому что результатом работы формулы будет некий массив. Т.е. Вы сможете его просуммировать, найти большее-меньшее, выбрать любой его элемент. А значением ячейки должно быть некое значениеМВТ
Sub uprst__() Application.ScreenUpdating = 0 l = "" For Each v In Range("a2:a831") If v = [c9] Then n = v.Offset(0, 1) l = l & n & " " End If Next [d9] = l 'одна ячейка Application.ScreenUpdating = 1 End Sub
[/vba]
[vba]
Код
Sub uprst__() Application.ScreenUpdating = 0 l = "" For Each v In Range("a2:a831") If v = [c9] Then n = v.Offset(0, 1) l = l & n & " " End If Next [d9] = l 'одна ячейка Application.ScreenUpdating = 1 End Sub
Robocop01, насколько я понимаю, никак, потому что результатом работы формулы будет некий массив. Т.е. Вы сможете его просуммировать, найти большее-меньшее, выбрать любой его элемент. А значением ячейки должно быть некое значение
Можно ли в данном случает применить фунцию "сцепить"?
Robocop01, насколько я понимаю, никак, потому что результатом работы формулы будет некий массив. Т.е. Вы сможете его просуммировать, найти большее-меньшее, выбрать любой его элемент. А значением ячейки должно быть некое значение
Можно ли в данном случает применить фунцию "сцепить"?Robocop01
Почему то при изменении значений в ячейках не происходит перерасчет... [moder]Излишнее цитирование - это нарушение Правил форума. Поправила.[/moder]Robocop01
Сообщение отредактировал Manyasha - Суббота, 26.03.2016, 14:18
Написано несколько UDF - на одну уже дали ссылку, вторая называется VLOOKUPCOUPLE(), код есть тут: копилка планеты Если конечно я правильно понял что нужно, что не факт - примера ведь нет, подробного описания тоже...
Написано несколько UDF - на одну уже дали ссылку, вторая называется VLOOKUPCOUPLE(), код есть тут: копилка планеты Если конечно я правильно понял что нужно, что не факт - примера ведь нет, подробного описания тоже...Hugo
ну Вы же не указали на какое событие Вам надо. в модуль листа: [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("a2:b831, c9")) Is Nothing Then Application.ScreenUpdating = 0 l = "" For Each v In Range("a2:a831") If v = [c9] Then n = v.Offset(0, 1) l = l & n & " " End If Next [d9] = l 'одна ячейка End If Application.ScreenUpdating = 1 End Sub
ну Вы же не указали на какое событие Вам надо. в модуль листа: [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("a2:b831, c9")) Is Nothing Then Application.ScreenUpdating = 0 l = "" For Each v In Range("a2:a831") If v = [c9] Then n = v.Offset(0, 1) l = l & n & " " End If Next [d9] = l 'одна ячейка End If Application.ScreenUpdating = 1 End Sub