投稿/コメントを表示します。

エクセルマクロ・VBA基礎編フォローアップ ベーシック
複数条件を組み合わせた条件分岐

ひらさんの投稿

(投稿ID: 4814)

elseif（elseとifをひとつにまとめて記載）と、elseとifを改行して用いる場合、endifの数が違ったりしますか？

先ほど問題を解いたところ、回答エクセルに比べendifの数が１つ少なかったのですが、問題なく動きました。

【自分の書いたマクロ】
Sub gouhi()

Dim gyo
For gyo = 2 To 11

If Range("C" & gyo).Value = "男性" Then
If Range("D" & gyo).Value >= 80 Then
Range("H" & gyo).Value = "合格"
Else
Range("H" & gyo).Value = "不合格"
End If
ElseIf Range("D" & gyo).Value >= 70 Then
Range("H" & gyo).Value = "合格"
Else
Range("H" & gyo).Value = "不合格"
End If

Next
End Sub

【答えのエクセルのマクロ】
Sub GogakuFugokaku()
Dim gyobangou
For gyobangou = 2 To 11
If Range("C" & gyobangou).Value = "男性" Then
If Range("D" & gyobangou).Value >= 80 Then
Range("H" & gyobangou).Value = "合格"
Else
Range("H" & gyobangou).Value = "不合格"
End If
Else
If Range("D" & gyobangou).Value >= 70 Then
Range("H" & gyobangou).Value = "合格"
Else
Range("H" & gyobangou).Value = "不合格"
End If
End If
Next
End Sub

elseif（改行せず使用）はあまり使用しない方がよいのでしょうか。
もしすでに過去この件がお話しされていたら申し訳ございませんが、
ご教示いただけますと幸いです。
2020/08/05 18:08