Excel VBA 小数点以下でインクリメントする方法

小数点以下でインクリメントする方法

やりたい事

タイトルの通りで小数点以下で今回は、0.1ずつ増やしていくプログラムを書いていきます。Javaとかの言語みたいに「++」みたいな書き方はできません。

小数点を扱える型として「single」「double」があるが計算に使用すると誤差が生じて期待通りの結果とならないことがあるので今回は「Decimal」型を使用しました。

VBAでDecimal型を使用する場合は、Variant型で定義した変数にCDec関数を使用することで利用可能です。

サンプルコード

Sub 小数点以下でインクリメントする()
    Dim version As Variant: version = CDec(0.1)
    Dim count As Long: count = 1
    
    Do While count < 10
        Cells(count, 1) = version
        version = version + CDec(0.1)
        count = count + 1
    Loop      
End Sub

参考資料

Docs