|
抽出の条件で教えて下さい。
色々処理していますが下のようなif文で条件は満たしました。
しかし、この書き方だとソートを工夫しないとなりません。
もっと簡単に記載できないものでしょうか?
tori 変数
nentuki 変数
概要)
条件に一致したらデータを加算したり減算したりする。
Do While Cells(i, 26) <> ""
If CStr(Cells(i, 26).Value) = tori Then
If CStr(Cells(i, 28).Value) = "1" Then
If CStr(Cells(i, 18).Value) = nentuki Then
If CStr(Cells(i, 27).Value) = "500" Then
If CStr(Cells(i, 17).Value) = "2" Then
goke1 = goke1 - Cells(i, 11).Value
i = i + 1
Else
goke1 = goke1 + Cells(i, 11).Value
i = i + 1
End If
Else
If CStr(Cells(i, 17).Value) = "2" Then
goke2 = goke2 - Cells(i, 11).Value
i = i + 1
Else
goke2 = goke2 + Cells(i, 11).Value
i = i + 1
End If
End If
Else
Exit Do
End If
Else
Exit Do
End If
Else
Exit Do
End If
Loop
|
|