VBAですがおしえてくださいFOR TO STEP という構文で、STEPを0.1とすると最後まで計算せず0.1だけ手前で止まってしまうのですが、どう対処すればよいですか

一応、９迄は実施できているようです。

提示のパターンであれば、変数定義をダブルにされればできますね。



Dim K As As Double



変数を整数にすれば問題はでないので、最初にループ回数を計算するとかも検討されたほうがいいと思います。



テスト・コード

Sub sample()

Dim iRow As Long

Dim K As Single, k1 As Double, k2 As Variant



iRow = 1

For K = 10 To 9 Step -0.1

Cells(iRow, \u0026quot;A\u0026quot;).Value = K

iRow = iRow + 1

Next K



iRow = 1

For k1 = 10 To 9 Step -0.1

Cells(iRow, \u0026quot;B\u0026quot;).Value = k1

iRow = iRow + 1

Next k1



iRow = 1

For k2 = 10 To 9 Step -0.1

Cells(iRow, \u0026quot;C\u0026quot;).Value = k2

iRow = iRow + 1

Next k2



iRow = 1

K = 10#

Do Until (K \u0026lt; 9#)

Cells(iRow, \u0026quot;E\u0026quot;).Value = K

iRow = iRow + 1

K = K - 0.1

Loop



iRow = 1

k1 = 10#

Do Until (k1 \u0026lt; 9#)

Cells(iRow, \u0026quot;F\u0026quot;).Value = k1

iRow = iRow + 1

k1 = k1 - 0.1

Loop



iRow = 1

k2 = 10#

Do Until (k2 \u0026lt; 9#)

Cells(iRow, \u0026quot;G\u0026quot;).Value = k2

iRow = iRow + 1

k2 = k2 - 0.1

Loop

End Sub