0
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' は値を取得しません。ブレークポイントを使用せずにコードを実行すると、同じことが起こります。助けてもらえますか??....

4

2 に答える 2

1

g1val = Cells(33,i).ValueFor ステートメントの後の最初の行にする必要があります。

于 2013-09-28T04:58:11.243 に答える