I've just been messing around on VBA and am trying to write a summation that estimates pi. It doesn't add anything to the sum within the do while. I tried a for loop also, but it just takes whatever i initialize sum to and multiplies it by 4 and adds one. I just want it to add continually to sum the new values of n given j. Need help it seems like such a simple problem...(adsbygoogle = window.adsbygoogle || []).push({});

Sub pi()

Dim j As Integer

Dim sum As Integer

Dim n As Integer

sum = 0

j = 2

Do While j <= 100

n = (1 / (2 * j - 1)) * ((-1) ^ (2 * j - 1))

sum = sum + n

j = j + 1

Loop

sum = 4 * sum + 1

Range("E2:E100").Cells(2).Value = sum

End Sub

**Physics Forums | Science Articles, Homework Help, Discussion**

Join Physics Forums Today!

The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

# VBA not calculating how I want it to

**Physics Forums | Science Articles, Homework Help, Discussion**