Я пытаюсь вычислить результат формулы, используя этот код, но по какой-то причине я не могу понять, почему он не печатает в l oop ...
Sub findx()
Dim A, B, fct As Variant
Dim k, i As Long
fct = InputBox("What is the function in terms of x?")
A = InputBox("Set lower boundary")
B = InputBox("Set upper boundary")
i = InputBox("How many times would you like to repeat this algorithm?")
Range("A6").Value = A
Range("B6").Value = B
For k = i To k = i + 6
Cells(k, 5).Value = "=" & Replace(LCase(fct), "x", Cells(k, 1).Value)
k = k + 1
Next
End Sub