Упростить формулу на базе ВПР. - Страница 2

Старая форма входа

Страница 2 из 2 « 1 2
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Упростить формулу на базе ВПР. (Формулы/Formulas)

Упростить формулу на базе ВПР.

Proletariy

Дата: Воскресенье, 08.11.2015, 22:57 | Сообщение № 21

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

Репутация: 6 ±

Замечаний: 0% ±

Excel 2007

Поиск идет по не точному совпадению.

Ответить

Proletariy

Дата: Воскресенье, 08.11.2015, 22:59 | Сообщение № 22

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

Репутация: 6 ±

Замечаний: 0% ±

Excel 2007

Все равно ты очень помогла,.

Ответить

SLAVICK

Дата: Понедельник, 09.11.2015, 10:44 | Сообщение № 23

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Цитата Proletariy, 08.11.2015 в 22:42, в сообщении № 18

Еще, когда делаю изменение в искомом листе -это не отображается в "Исходнике".

Сделайте функцию "волатильной" : Application.Volatile - будет пересчитыватся при каждом "чихе"

[vba]

Код

Function VLookUpAllSheets(vCriteria As Variant, rTable As Range, lColNum As Long, Optional iPart As Integer = 1) As Variant
    Dim rFndRng As Range
    Application.Volatile
    If iPart <> 1 Then iPart = 2
    For i = 1 To Worksheets.Count
        If oDic.Exists(Sheets(i).Name) Then
            With Sheets(i)
                Set rFndRng = .Range(rTable.Address).Resize(, 1).Find(vCriteria, , xlValues, iPart)
                If Not rFndRng Is Nothing Then
                    VLookUpAllSheets = rFndRng.Offset(, lColNum - 1).Value
                    Exit For
                End If
            End With
        End If
    Next i
End Function

[/vba]

Цитата Proletariy, 08.11.2015 в 22:57, в сообщении № 21

Поиск идет по не точному совпадению.

Тут в формуле за точность поиска отвечает iPart - у Вас в формуле Вы поставили 0. Поставьте 1 и будет Вам счастье