Excel VBAで数学 6

　Excel VBAを使った簡単な数学プログラミングの続きです。

　今回はネイピア数です。自然対数の底という言った方が普通な気がします。
　普通のプログラミングだと、変数の型に制限があるので、10桁くらいしか求まりません。もっと桁数を増やすにはテクニックが必要です。

　ソースコードは、ご自由にご利用ください。ただし、趣味のプログラムなので、保証はありません。

Option Explicit

'eの計算

Public Sub Macro()
    Dim i As Long
    Dim e As Double
    Dim temp As Double
   
    e = 1
    temp = 1
   
    For i = 1 To 100
        temp = temp / i
        e = e + temp
    Next i
   
    Sheet1.Cells(1, 1) = e
End Sub