|
▼yuu さん:
>以下のようにIF文を組み、Cell(i,59)とCell(i,68)に値がある場合には以下のように3を表示したいと考え、以下のようにプログラムを組みましたが、3が表示されず、結果は2
が返ります。どうすればいいのでしょうか?
>If Sheets("TEST").Cells(i, 68) <> 0 Then
↓Cells(i,68)に値が入っているとここで完結しています
> Cells(e, 12).Value = "2"
> ElseIf Sheets("TEST").Cells(i, 59) And Sheets("TEST").Cells(i, 68) <> 0 Then
> Cells(e, 12).Value = "3"
> Else
> Cells(e, 12).Value = ""
> End If
こういう分岐ですかね。
With Sheets("TEST")
If .Cells(i, 68).Value <> 0 Then
If .Cells(i, 59).Value <> 0 Then
Cells(e, 12).Value = 2 '両方ゼロでない
Else
Cells(e, 12).Value = 3 '.Cells(i, 59).Valueがゼロ
End If
Else
Cells(e, 12).Value = "" '.Cells(i, 68).Valueがゼロ
End If
End With
|
|