miércoles, 21 de febrero de 2018

Sucesión de Fibonacci en Excel

Puede descargar el archivo fibonacci.xlsm

Las sucesión de Fibonacci es bastante famosa. Los dos primeros valores son cero y uno, y los restantes se forman sumando los dos anteriores.

Estos son los números de Fibonacci.

0, 1, 1, 2, 3, 5, 8, 13, 21, 34, ... ... ... 

Vamos a crear una hoja de cálculo en la que vamos a calcular la serie de tres formas diferentes.
  1. Mediante fórmulas de Excel
  2. Mediante VBA, con la Macro 1
  3. Mediante VBA, con la Macro 2

Veamos las macros.


 Sub Borra()  
 Range("D5:E34").ClearContents  
 End Sub  
   
 Sub fibonacci1()  
 [D5] = 0  
 [D6] = 1  
 For i = 3 To 30  
  Cells(i + 4, 4) = Cells(i + 3, 4) + Cells(i + 2, 4)  
 Next i  
 End Sub  
   
 Sub fibonacci2()  
 Dim A(30) As Long  
 A(1) = 0: [E5] = 0  
 A(2) = 1: [E6] = 1  
 For i = 3 To 30  
  A(i) = A(i - 1) + A(i - 2)  
  Range("E" & i + 4) = A(i)  
 Next i  
 End Sub  


  1. En la Macro 1 denominada fibonacci1 trabajamos con cells.
  2. En la Macro 2 denominanda fibonacci2 trabajamos con una array, con la matriz A.

No hay comentarios:

Publicar un comentario