VBA Do until Loop Question

Yao567 · Oct 4, 2013

Write a function that calculates f(x) = 1/(1+x)

Create a table (see below) with an x-column and calculate the values for f(x) into the y column using your user defined function. Calculate and display f(x) up to 5 decimal places until the value for f(x) does not change any more after 5 decimal places. i.e. until f(i+1) – f(i) <= 10^-5


So this is the question from the homework. I just really dont know how to set it up.

patel45 · Oct 5, 2013

Code:

Sub test()
r = 1
x = 1000
step = 100
Cells(r, 1) = x
Cells(r, 2) = f(x)
x = x + step
Columns("B:C").NumberFormat = "0.00000"
Do
  r = r + 1
  Cells(r, 1) = x
  Cells(r, 2) = f(x)
  x = x + step
  diff = (Cells(r - 1, 2) - Cells(r, 2))
  Cells(r, 3) = diff
Loop Until diff < 0.00001
End Sub
Function f(x)
f = 1 / (1 + x)
End Function

Yao567 · Oct 5, 2013

Wow thanks! The way i was doing it was similar to yours but yours does it significantly better.

patel45 · Oct 5, 2013

remember to dimension variables

HaHoBe · Oct 6, 2013

Hi, patel45,

best practise would be to show how to do it in each posting of code rather than recommend something to other people that you yourself don´t do.

Ciao,
Holger

VBA Do until Loop Question

Yao567

New Member

Excel Facts

patel45

Well-known Member

Yao567

New Member

patel45

Well-known Member

HaHoBe

Well-known Member

Similar threads

Forum statistics

Share this page

VBA Do until Loop Question

Yao567

New Member

Excel Facts

patel45

Well-known Member

Yao567

New Member

patel45

Well-known Member

HaHoBe

Well-known Member

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock