Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
выбор значения из диапазона, ищем в диапазоне а не конкретно в столбце или строке и вынимаем из диапазона
 
#1
24.06.2022 14:00:54
Доброго времени суток.
Не хватает интеллекта, прошу помощи

Смысл: 2 таблицы,
(цифры (1,2,3,7,28...) и буквы (а,б,в,р,г,) для понимания)
1я 11 столбцов 46 строк - заполнены чётные (1,2,3,7,28...) значения уникальные
2я 23 столбца 46 строк - заполнены НЕ чётные. (а,б,в,р,г, рд, вг, дд,) значения уникальные
из 1й вставляем значение (допустим -15) в любую свободную ячейку  2й таблицы (над допустим "вг") ,
далее ячейка 1й таблицы строкой ниже, под значением 15 идет в таблицу 2, находит 15, видит строкой ниже "вг" и забирает его
=ИНДЕКС($O$5:$AJ$46;ПОИСКПОЗ($H$21;$R$5:$R$46;0)+1;4) не подходит. или я что то делаю не так

это к примеру
Значение 63-ХХХ брать из СЛ АТС (C21:L46), вбиваем ручками в любое место диапазона O5:AJ46, искать  справа за серым столбцом в "ПАНЕЛЬ 1, 2, 3,... (O5:AJ46),
при совпадении вставлять значение из ячейки под совпавшей в ячейку под ячейкой которую искали
Изменено: Evgen Evgen - 24.06.2022 14:01:58
 
 
 
#2
24.06.2022 15:51:47
Добрый день. Пользовательская функция в ячейку C24 вставляете FindNr(C23;$N$5:$AJ$46)

Код
Function FindNr(fNr As Range, Diap As Range) As String
Dim rngFound As Range, strKab As String
    Set rngFound = Diap.Find(What:=fNr.Value, LookIn:=xlFormulas, LookAt:=xlWhole)
        If Not rngFound Is Nothing Then
        strKab = rngFound.Offset(1, 0).Value
        End If
FindNr = strKab
End Function
 
 
 
#3
27.06.2022 07:21:58
Цитата
написал:
Добрый день. Пользовательская функция в ячейку C24 вставляете FindNr(C23;$N$5:$AJ$46)

Код
    [URL=#]?[/URL]       1  2  3  4  5  6  7  8      Function   FindNr(fNr   As   Range, Diap   As   Range)   As   String    Dim   rngFound   As   Range, strKab   As   String          Set   rngFound = Diap.Find(What:=fNr.Value, LookIn:=xlFormulas, LookAt:=xlWhole)              If   Not   rngFound   Is   Nothing   Then              strKab = rngFound.Offset(1, 0).Value              End   If    FindNr = strKab    End   Function  
 
Добрый день. Огромное спасибо. Все работает как и хотел. Удачи Вам в ваших делах и по жизни в целом !!!!!
 
 
 
Страницы: 1
Наверх