[ いきなりVBA ]
いきなりVBA 第1回 LOG
今日は、条件分岐処理をやってみましょう。
通常のIF関数を使うと、こんな条件分岐処理をする事ができますよね。
C2に条件分岐の結果を入力
=IF(B2="ペイトン",18,10)
(B2セルが“ペイトン”だったらC2に18を、そうでなければ10を入力)
同じ事をVBAでやろうとすると、こうなります。
C2に条件分岐の結果を入力
If Range("B2").Value = "ペイトン" Then
Range("C2").Value = 18
Else
Range("C2").Value = 10
End If
ちょっと困ってしまう事があります。
計算式の場合なら、C3にも同じ事をやろうとする際、下のセルにコピーとかできますね。
ところがこれを(ここまでの)VBAでやろうとすると、この式をC3でもやろうとすると、別の方法を用いるか、C2のトコをC3に書き換えて、続けて処理するか...。
その辺は、おいおい記載しようかと。
ともあれ、これだけでも条件分岐ができる事で、処理の幅は大きく広がるんじゃないでしょうか。
次回も条件分岐でいこうと思います。
BGM♪ お金があればね(If You Got The Money, I Got The Time) / Lefty Frizzell
君にお金があるなら、自分はいつでも暇ですよ、という歌です。
レフティは、これを逆にしてI got a money, If you got a timeという歌詞を、I'm an old old manという曲に使ってますね。
ともあれ、非常に分かりやすい条件分岐による行動のようです。
いきなりVBA 第1回 LOG
今日は、条件分岐処理をやってみましょう。
通常のIF関数を使うと、こんな条件分岐処理をする事ができますよね。
C2に条件分岐の結果を入力
=IF(B2="ペイトン",18,10)
(B2セルが“ペイトン”だったらC2に18を、そうでなければ10を入力)
同じ事をVBAでやろうとすると、こうなります。
C2に条件分岐の結果を入力
If Range("B2").Value = "ペイトン" Then
Range("C2").Value = 18
Else
Range("C2").Value = 10
End If
ちょっと困ってしまう事があります。
計算式の場合なら、C3にも同じ事をやろうとする際、下のセルにコピーとかできますね。
ところがこれを(ここまでの)VBAでやろうとすると、この式をC3でもやろうとすると、別の方法を用いるか、C2のトコをC3に書き換えて、続けて処理するか...。
その辺は、おいおい記載しようかと。
ともあれ、これだけでも条件分岐ができる事で、処理の幅は大きく広がるんじゃないでしょうか。
次回も条件分岐でいこうと思います。
BGM♪ お金があればね(If You Got The Money, I Got The Time) / Lefty Frizzell
君にお金があるなら、自分はいつでも暇ですよ、という歌です。
レフティは、これを逆にしてI got a money, If you got a timeという歌詞を、I'm an old old manという曲に使ってますね。
ともあれ、非常に分かりやすい条件分岐による行動のようです。