Добрый день!
В файле имеется сводная техн. карта и техн. карты по культурам, в которых пользователем указывается техника. Задача в том, чтобы в сводную техн. карту собрать технику со всех тематических карт. В столбце "B" в значении ячеек есть косвенное указание в виде аббревиатуры на тематический лист, в котором необходимо произвести поиск, а также уникальный код ТО.
Подскажите в какой части кода пользовательской функции мной допущена ошибка:
В файле имеется сводная техн. карта и техн. карты по культурам, в которых пользователем указывается техника. Задача в том, чтобы в сводную техн. карту собрать технику со всех тематических карт. В столбце "B" в значении ячеек есть косвенное указание в виде аббревиатуры на тематический лист, в котором необходимо произвести поиск, а также уникальный код ТО.
Подскажите в какой части кода пользовательской функции мной допущена ошибка:
| Код |
|---|
Вариант 1:
Function wbFind(IDRange As Range, iNumberColumn As Long, StCell As String, Number1 As Integer, Number2 As Integer)
wbFind = Thisworkbooks.Sheets("ТК_" & Left(IDRange.Value, 3)).Columns(iNumberColumn) _
.Find(IDRange.Value, Range(StCell), xlValues, xlWhole, xlByRows, xlNext).cell.Offset(Number1, Number2).Value
End Function
Вариант 2:
Function WbIndex(IDRange As Range, iRangeValue As String, iRangeCri As String)
WbIndex = Application.WorksheetFunction.Index(Thisworkbooks.Sheets("ТК_" & Left(IDRange.Value, 3)).Range(iRangeValue), _
WorksheetFunction.Match(IDRange, Thisworkbooks.Sheets("ТК_" & Left(IDRange.Value, 3)).Range(iRangeCri), 0))
End Function
|
