久しぶり

うわ、ものすごく放置してたｗ
て言うかこのブログの存在忘れてたよｗ

フィボナッチ数

１から１００番目までのフィボナッチ数をセルに書き出すコードをひねらず率直に書いてみた。

Sub Fibonacci()

    a = 1
    b = 1

    For i = 1 To 100

        Select Case i
            Case 1
                c = a
            Case 2
                c = b
            Case Else
                c = a + b
                a = b
                b = c
        End Select

        Cells(i, "A").Value = c

    Next i

End Sub

まぁ、エクセルの場合ワークシートに数式を書いたほうが全然簡単なんですけどね…。(^_^;)

ＮｉｊａＴ＠新下駄配列 現在のｋｐｍ

無シフト面のみ 253.54kpm
シフト面あり 185.80kpm

無シフト面で 240kpm 以上、シフト面ありで 180kpm 以上をコンスタントに出せるようになるのが当面の目標。(｀・ω・´)

タイプウェル＠新下駄配列 Ｂ到達！

タイプウェル＠新下駄配列 地味に更新

総合Ｂまではまだちょっとかかりそうだけど、ともかく全種目一位はやっぱり嬉しいです！