Dismiss Notice
Join Physics Forums Today!
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

  1. Aug 6, 2010 #1
    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...

    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
    sum = 4 * sum + 1
    Range("E2:E100").Cells(2).Value = sum

    End Sub
    Last edited: Aug 6, 2010
  2. jcsd
  3. Aug 6, 2010 #2


    Staff: Mentor

    Your variables sum and n should not be declared as integer. There might be other problems in your code, but this jumped out at me right away.
Share this great discussion with others via Reddit, Google+, Twitter, or Facebook