Поиск последнего значения в строке

[IlGiZar]

Код: Выделить всё

Public Function lastprice(row) 
row = row.row
Z = Cells(row, 3)
    For inCol = 4 To 256
        If Cells(row, inCol) > 0 Then
            Z = Cells(row, inCol)
        End If
    Next inCol
lastprice = Z
End Function


Функция работает, но достаточно кривовато. Кривость в том, что при удаление/добавлении листов в других книгах, ексель все пересчитывает, и в результат функции вставляет цифры из активного листа. Пробывал перед cells(r,c) добавлять имя листа, но это сильно тормозит процесс вычислении. Способов уменьшить число циклов не нашел.

[iGrok]

Пробывал перед cells(r,c) добавлять имя листа, но это сильно тормозит процесс вычислении.

Как добавлял имя листа? Покажи код.

[alibek]

Ужас.
Словами скажи, что ты хочешь.

[IlGiZar]

Как добавлял имя листа? Покажи код.

Код: Выделить всё

Public Function lastprice(row) 
row = row.row
Z = Sheets("price").Cells(row, 3)
    For inCol = 4 To 256
        If Sheets("price").Cells(row, inCol) > 0 Then
            Z = Sheets("price").Cells(row, inCol)
        End If
    Next inCol
lastprice = Z
End Function


вот так вот добавлял.

Ужас.
Словами скажи, что ты хочешь.
Ужас.
Словами скажи, что ты хочешь.

Есть номенклатура, оттуда последние цены должны попадать в калькуляцию. т.е. в ячейке где формула всегда должна стоять последняя цена, из номенклатуры. Цены меняются каждый день.

[Апострофф]

Код: Выделить всё

'Public Function lastprice(row)  'не понятно, что передается этой ф-ии в качестве параметра
Public Function lastprice(row as long)  as double 'я бы передал номер строки
'row = row.row '???
'Z = Sheets("price").Cells(row, 3) 'зачем?

For inCol = 3 To 256
  If WorkSheets("price").Cells(row, inCol) > 0 Then 'Sheets имеет некоторые отличия от WorkSheets - более узкого понятия
     Z = Sheets("price").Cells(row, inCol)
  else
    exit for  'зачем проверять все ячейки строки, если уже есть пустая (нулевая)
  End If
Next inCol
lastprice = Z
End Function

[KL]

Как все запущено! )))))))))))

У меня ощущение, что...
- функция нужна для использования на рабочем листе
- ведется поиск числового значения

Если уж очень надо кодом, то быстрее вот так:

Код: Выделить всё

Public Function LastCol(rng As Range)
    Set LastCol = rng(1)
    On Error Resume Next
    LastCol = rng.Find("*", rng(1), xlValues, xlWhole, xlByColumns, _
        xlPrevious).Value
End Function

и вызываем из ячейки =LastCol(D2:IV2)

Но вообще ничто не сравнится по скорости вот с такой формулой:

=ПРОСМОТР(9E+307;D2:IV2)

я уже не говорю об остальных удобствах

Кстати, в коде тоже можно вот так:

Код: Выделить всё

Public Function LastCol(rng As Range)
    LastCol = Application.Lookup(9E+307, rng)
End Function