IF文中の数

Question

次のIF文をループで記述し、文が真であればカウンタが1増加すると、

ステートメントが真でない場合でも、カウンタは1つ増えます。

For i = 2 To lRow 
If (ptfile.Worksheets(1).Cells(i + 1, 17).Value - ptfile.Worksheets(1).Cells(i, 17).Value) < 1440 Or (ptfile.Worksheets(1).Cells(i + 1, 17).Value - ptfile.Worksheets(1).Cells(i, 17).Value) > 1440 Then 
cnt = cnt + 1 
casenames2.Worksheets(1).Cells(cnt, 2).Value = ptnames 
casenames2.Worksheets(1).Cells(cnt, 3).Value = i 
End If 

Next i 

エラーは実行時エラー6です。オーバーフローします。 、助け

Answer 1

があなたのIF文を簡素化してくださいそれは（何かが）正確に1440に等しいとき

If (something) < 1440 Or (something) > 1440 Then 
    cnt = cnt + 1 

ので、条件がFALSEで、カウンタが増加されていない唯一のケースがあると言います。