ник: П.Полиграфович
Понял, но так тоже не работает
пишет несоответствие типов
Private Function Fibo(sum As Variant)
Dim x As Double, i As Integer
Sheets("Лист3").Activate
Range("b1").Value = "0"
Range("b2").Value = "1"
Range("b3").Value = "1"
For i = 4 To 53
Fibo = sum(Cells(i - 1, 2), Cells(i - 2, 2))
Next i
End Function
|
Нужно присвоить значение ф-ции ячейке?
Последовательность считается если код не содержит ф-ию, но мне нужно через ф-цию именно!