【VBA】 IFの中にIF
いつもこちらの識者の方々にはお世話になっています。
VBAの質問です。
やりたいことは下記構文を見ていただければわかると思うのですが、
------------------------------------------------------------------------------
Sub Test()
Dim f As Long
Dim lRow As Long
lRow = Cells(Rows.Count, 1).End(xlUp).Row
For f = lRow To 2 Step -1
If Cells(f, 2).Value = "りんご" Then
Cells(f, 2).EntireRow.Delete
Else
Cells(f, 2).Value = Cells(f, 2) & "0" & Cells(f, 3)
Cells(f, 18).Value = If Cells(f, 4).value = 1 Then Cells(f, 13) Else Cells(f, 14) Endif
End If
Next f
End Sub
------------------------------------------------------------------------------
Cells(f, 18).Value = If Cells(f, 4).value = 1 Then Cells(f, 13) Else Cells(f, 14) Endif
の部分が解決したい部分になります。
IFで条件分岐したあとの処理にさらにIFで分岐を加えたいのですが、無茶だと思いつつやってみたらやはり通りませんでした。
こういうのはなんというのでしょうか、ネストとも違うと思うのですが・・・
上記のような場合、どのような構文が適していますでしょうか。
お礼
ありがとうございました。 助かりました。