ник: Гоблин
Все отлично. Работает. Выбрал первый вариант, хотя второй похоже проще. Теперь новый вопрос. Функцию пришлось слегка модифицировать, так как показывала #ошибку# если данных нет. Null.
Теперь новый вопрос. Параметр и формула находятся в таблице-справочнике. В рабочей таблице выбирается с поля со списком параметр, который при подстановке цифр вычисляется в поле Итог. Работает только с целыми числами. При подстановке 8,4 зависает, глючит, выпадает в осадок. В функции используется тип переменных value. Стало быть виновно не это. А что тогда? Работать приходится в основном не с целыми числами. Плиз пояснить.
Функция выглядит так:
Public Function funResultat(L, H, W, Формула As String) As Double
Dim strLitera As String
Dim i As Integer
Dim strResultat As String
If Len(Формула) > 0 Then
For i = 1 To Len(Формула)
strLitera = Mid(Формула, i, 1)
Select Case strLitera
Case Is = "L"
strResultat = strResultat & Nz(L, 0)
Case Is = "H"
strResultat = strResultat & Nz(H, 0)
Case Is = "W"
strResultat = strResultat & Nz(W, 0)
Case Else
strResultat = strResultat & strLitera
End Select
Next i
funResultat = Eval(strResultat)
Else
funResultat = 0
End If
End Function
Менял Double на Float не работает вообще. 