hatena
hatena
2021/03/08 (月) 20:41:48
「浮動小数点数 誤差」でWEB検索してみてください。正確な計算をおこないたいときは、使えないものだと分かるでしょう。
また、変数はきちんと型を指定して宣言しましょう。型宣言無しに小数を代入すると浮動小数点数になります。
小数点4桁までなら、通貨型を使うと誤差のない計算ができます。
Dim SumFM As Currency
Dim ctl As TextBox
Dim i As Long
For i = 1 to 25
set ctl = me.Controls("txt0" & Format (i,00))
SumFM = SumFM + Nz(ctl ,0)
next i
通報 ...