PU-METALのブログ

日銀にはウンザリなので外貨専になりました

フィボナッチ数列を計算するマクロ

頭の体操にトレーダーらしくフィボナッチに挑戦

 

やはり頭弱いもんだから図描いたり色々悩みまくったが結局解らなかった

それで適当にプロシージャああでも無いこうでも無いやって完成

理解はあとでゆっくりlol

 

Sub fibo()
Dim P As Long
Dim F As Long
Dim F1 As Long
Dim F2 As Long
F1 = 1
For P = 1 To 10
F1 = F1 + F2
F2 = F
F = F1
Range("a" & P).Value = F
Next
End Sub

f:id:kohnodechu:20171115172201p:plain