Archief - Rij van Fibonacci in VBA Excel

Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
S

Skizzy

Legacy Member
Hey,

Ik ben een beetje aan het 'experimenteren' in VBA Excel en wou eens proberen om een formule te maken om de eerste x aantal getallen van de rij van Fibonacci te weergeven in een excel werkblad.
Maar ik geraak er eigenlijk niet helemaal :s.
Ik weet niet hoe ik men 'n' moet "maken" in VBA Excel.

Formule is volgens mij nog altijd : Xn = Xn-2 + Xn-1 (waardat X dus een getal is en n de positie van dat getal)

Iemand die me daar uit kan helpen? :).

Cheers
d

daVinci

Legacy Member
Code: 
sub Fibonacci()
Dim getal1, getal2,n,i as integer

getal1=0 'initialisatie begingetal 1
getal2=1 'initialisatie begingetal 2
n=10 'bepaalt het aantal elementen dat je wil wegschrijven op een sheet

cells(1,1)=getal1 'getal 1 wegschrijven
cells(1,2)=getal2 'getal 2 wegschrijven

for i=3 to n
   cells(1,i)=getal1+getal2 'het volgende getal is de som van de 2 vorige
   getal1=getal2 'het eerste getal voor de volgende berekening is gelijk aan het vorige tweede
   getal2=cells(1,i) 'het tweede getal is het nieuwe berekende getal
next

end sub

Dat is één manier om het te doen (normaal toch - heb het niet getest), maar er zullen er nog wel anderen zijn (progammatorisch gezien mooier). Maar aangezien ik geen programmeur ben is in de eerste plaats het resultaat dat telt, en daarna pas de "mooiheid" van de code.
Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
Terug
Bovenaan