Sub Test()
Dim g1val As Integer
g1val = 0
For i = 3 To 27
If g1val >= Cells(33, i).Value Then
g1val = g1val
ElseIf g1val < Cells(33, i).Value Then
g1val = Cells(33, i).Value
End If
Next i
End Sub
ここで、トグル ブレークポイントを 3 行目に配置して F8 キーで実行すると、実行速度が速くなると 'g1val' は値を取得しません。ブレークポイントを使用せずにコードを実行すると、同じことが起こります。助けてもらえますか??....