Styjun

Was Donald Trump at ground zero helping out on 9-11?

Should 2FA be enabled on service accounts?

My employer is refusing to give me the pay that was advertised after an internal job move

What Marvel character has this 'W' symbol?

Should I put my name first or last in the team members list?

Finding dents before the finish

How to innovate in OR

How can I type the name of the person I'm calling on the dial pad and make the call?

In the Schrödinger equation, can I have a Hamiltonian without a kinetic term?

Is it possible to tell if a child will turn into a Hag?

Create two random teams from a list of players

Move arrows along a contour

Why isn't LOX/UDMH used in staged combustion rockets now-a-days?

A conjectural trigonometric identity

How can you tell the version of Ubuntu on a system in a .sh (bash) script?

Best Ergonomic Design for a handheld ranged weapon

Why does the Rust compiler not optimize code assuming that two mutable references cannot alias?

Adding a (stair/baby) gate without facing walls

What do the novel titles of The Expanse series refer to?

Scam? Checks via Email

How does the barbarian bonus damage interact with two weapon fighting?

Academic progression in Germany, what happens after a postdoc? What is the next step?

Why do we need a voltage divider when we get the same voltage at the output as the input?

Can machine learning learn a function like finding maximum from a list?

VBA Sum of Fibonacci even numbers till sum

How to write the Fibonacci Sequence?Generating a list of EVEN numbers in PythonSum of even fibonacci numbers below 4 million - PythonFibonacci Numbers - Add odd numbers only - JavascriptJavaScript: calculate the sum of all even numbers in Fibonacci sequence values < 10000Fibonacci sequence long[] array throws negative numbers after index 92Rounding of big Fibonacci numbersRuby “FloatDomainError: Infinity” when calculating Fibonacci NumberExcel - Sum column until it reaches a cell that is not a numberExcel VBA. How to count isolated number series

.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty margin-bottom:0;

0

I need your help regarding my homework.
The aim is to sum all even numbers from Fibonacci sequence till the sum reach < 100

I have created formula as below

Sub fibbo()

Dim sum As Long
Dim a As Long
Dim b As Long
sum = 0

 Do While sum < 100

 sum = a + b
 a = b
 b = sum
 a = a + 1

 Loop

Range("A1").Value = sum

End Sub

The problem is that sum is over 100.

Please help. Thank you in advance.

excel vba fibonacci

share|improve this question

edited Mar 27 at 7:54

Pᴇʜ

30.6k66 gold badges3030 silver badges5656 bronze badges

asked Mar 26 at 22:03

goodkgoodk

1

• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  
  remove the While from the Do and add While sum + a < 100 to Loop.
  
  – Scott Craner
  Mar 26 at 22:08
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Or just replace Do While sum < 100 with Do While a + b < 100.
  
  – dwirony
  Mar 26 at 22:21
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Both methods above return 88
  
  – Scott Craner
  Mar 26 at 22:31
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  BTW, it does not only do even. Every 3rd loop after the second returns an odd number for SUM.
  
  – Scott Craner
  Mar 26 at 22:33
  

  
  
  
  


• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  
  You will also need to change the a = a + 1 to a = IIf(a = 0, 1, a) the other is causing the sequence to not be correct.
  
  – Scott Craner
  Mar 26 at 22:41
  

  
  
  
  

add a comment | 

0

I need your help regarding my homework.
The aim is to sum all even numbers from Fibonacci sequence till the sum reach < 100

I have created formula as below

Sub fibbo()

Dim sum As Long
Dim a As Long
Dim b As Long
sum = 0

 Do While sum < 100

 sum = a + b
 a = b
 b = sum
 a = a + 1

 Loop

Range("A1").Value = sum

End Sub

The problem is that sum is over 100.

Please help. Thank you in advance.

excel vba fibonacci

share|improve this question

edited Mar 27 at 7:54

Pᴇʜ

30.6k66 gold badges3030 silver badges5656 bronze badges

asked Mar 26 at 22:03

goodkgoodk

1

• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  
  remove the While from the Do and add While sum + a < 100 to Loop.
  
  – Scott Craner
  Mar 26 at 22:08
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Or just replace Do While sum < 100 with Do While a + b < 100.
  
  – dwirony
  Mar 26 at 22:21
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Both methods above return 88
  
  – Scott Craner
  Mar 26 at 22:31
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  BTW, it does not only do even. Every 3rd loop after the second returns an odd number for SUM.
  
  – Scott Craner
  Mar 26 at 22:33
  

  
  
  
  


• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  
  You will also need to change the a = a + 1 to a = IIf(a = 0, 1, a) the other is causing the sequence to not be correct.
  
  – Scott Craner
  Mar 26 at 22:41
  

  
  
  
  

add a comment | 

I need your help regarding my homework.
The aim is to sum all even numbers from Fibonacci sequence till the sum reach < 100

I have created formula as below

Sub fibbo()

Dim sum As Long
Dim a As Long
Dim b As Long
sum = 0

 Do While sum < 100

 sum = a + b
 a = b
 b = sum
 a = a + 1

 Loop

Range("A1").Value = sum

End Sub

The problem is that sum is over 100.

Please help. Thank you in advance.

excel vba fibonacci

share|improve this question

edited Mar 27 at 7:54

Pᴇʜ

30.6k66 gold badges3030 silver badges5656 bronze badges

asked Mar 26 at 22:03

goodkgoodk

1

Sub fibbo()

Dim sum As Long
Dim a As Long
Dim b As Long
sum = 0

 Do While sum < 100

 sum = a + b
 a = b
 b = sum
 a = a + 1

 Loop

Range("A1").Value = sum

End Sub

share|improve this question

edited Mar 27 at 7:54

Pᴇʜ

30.6k66 gold badges3030 silver badges5656 bronze badges

asked Mar 26 at 22:03

goodkgoodk

1

share|improve this question

edited Mar 27 at 7:54

Pᴇʜ

30.6k66 gold badges3030 silver badges5656 bronze badges

asked Mar 26 at 22:03

goodkgoodk

1

edited Mar 27 at 7:54

Pᴇʜ

30.6k66 gold badges3030 silver badges5656 bronze badges

edited Mar 27 at 7:54

Pᴇʜ

30.6k66 gold badges3030 silver badges5656 bronze badges

asked Mar 26 at 22:03

goodkgoodk

1

asked Mar 26 at 22:03

goodkgoodk

1