Excelシート上にフィボナッチ数列を表示するVBAのサンプルコード

1,1,2,3,5,8,13,21,34,55,89,144,233・・・

Sub ボタン1_Click()

    Dim num1 As Long
    Dim num2 As Long
    num1 = 1
    num2 = 1
    
    Dim limit As Long    '添え字の最大値
    limit = Worksheets("Sheet1").Cells(2, 2).Value '求める項数
    
    
    Worksheets("Sheet1").Cells(4, 2).Value = num1 '項1をセル出力
    Worksheets("Sheet1").Cells(4, 3).Value = num2 '項2をセル出力
    
    Dim i As Long
    i = 3               '項3以降の添え字の初期値
    Dim nextNum As Long
    nextNum = 0         '項3以降の値の初期値
    
    '項3以降をセル出力
    Do While i <= limit
    
        nextNum = num1 + num2                              '項の値を計算
        Worksheets("Sheet1").Cells(4, i + 1).Value = nextNum '項をセル出力(D3セル以降)
        
        
        num1 = num2
        num2 = nextNum
            
        i = i + 1
        
    Loop
    
End Sub