細かい事は分からんがVBAがやりたい-12-

[ いきなりVBA ]

---

いきなりVBA　第1回　LOG

---

前回の3段階に続いて、4段階もやっておきましょう。
今度は、前回それ以外だった部分を、もう一段階分岐させています。

B2セルが…
ペイトン　→　C2に18
イーライ　→　C2に10
アーチー　→　C2に8
それ以外　→　不明
と入れるようにしています。

VBAでは、こんなコードです。

If Range("B2").Value = "ペイトン" Then
Range("C2").Value = 18
ElseIf Range("B2").Value = "イーライ" Then
Range("C2").Value = 10
ElseIf Range("B2").Value = "アーチー" Then
Range("C2").Value = 8
Else
Range("C2").Value = 不明
End If

ElseIfは、どんどんつなげていけるんですね。
あんまり多段階に分岐させるのは関心しませんが、必要な時にはこういう処理ができるという事を覚えておいて損は無いです。

でもやっぱりこれだと、入る値によって分岐する処理が、多くなるとそれだけ複雑になってしまいますね。
コードがごちゃごちゃしてくると、確認や修正が困難になる事も問題です。

という訳で、次回は多段階に分岐させる時の便利なコードに進みましょう。

BGM♪　Cascade / Chet Atkins
cascadeは、階段状の滝のように、段階的に流れ落ちる水や、段階的な処理や接続という意味に使われる言葉です。
この曲でチェット・アトキンスは、自身の様々な曲で用いているテクニックやフレーズをつなぎ合わせるようにして演奏しています。
If～ElseIF～Elseで、こんなにいっぱい接続したら、作った本人も分からないコードになる事、請け合いです。