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

[ いきなりVBA ]

---

いきなりVBA　第1回　LOG

---

前回、条件分岐をいくつも重ねると、自分でもよく分からなくなってくる事ってのが結構あるよねって話をしました。

今回は、B2セルが●●だったら、というひとつの条件に対して分岐が幾つもある時に便利なコードです。

Select文とか言われるやつです。
Select Case ●●　'●●が～だったらという条件
　Case ●●　　　'～だったらの条件1
　■■　'どうする部分
　Case ●●　　　'～だったらの条件2
　■■　'どうする部分
End Select
という形です。

実例で見たほうがいいですね。
B2セルに、都市名を入れてボタンを押すと、球団欄にチーム名が表示されるコードを作ってみました。
ボタンに設定したコードは、こんな感じです。

Select Case Range("B2").Value
Case "カロライナ"
Range("C2").Value = "マッドキャッツ"
Case "テネシー"
Range("C2").Value = "スモーキーズ"
Case "ハンツヴィル"
Range("C2").Value = "スターズ"
Case "ウェストテネシー"
Range("C2").Value = "ダイヤモンドジャックス"
Case "チャタヌーガ"
Range("C2").Value = "ルックアウツ"
End Select

まずは、都市名にカロライナと入れてみましょう。

ボタンをクリックすると、マッドキャッツが表示されます。

もちろん、NFLファンの方はコードのマッドキャッツという部分にパンサーズって入れといてもいいですよ(笑)。

今度は、テネシーと入れてみましょう。

（画像では、C2欄のマッドキャッツという文字列を消しておきましたが、この記事を読みながら続けている方は、C2にマッドキャッツという文字列が残っているはずですね。）

ボタンをクリックすると、今度はC2にスモーキーズという文字列が入りました。


もちろん、パソコンくんはコードに記載した事しかやりません。
だから、コードに記載していない文字列をB2に入力した場合は...。

↓

ボタンをクリックしても、何も起こりません。

これは、コードの書き方が良くないのですが、それはまた次回に。
とりあえずは、プルダウンとかにしておくと、こういう事態を防ぐ事ができます。


ともあれ、Selectは便利なコードですね。

BGM♪　Bad Case of Loving you(Doctor,Doctor) / Robert Palmer
むぅカッコいい。ロバート・パーマーの曲の中では、一番好きです。
取り合えずCaseって言ったら、まずはこの曲でした。

細かい事は分からんが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で、こんなにいっぱい接続したら、作った本人も分からないコードになる事、請け合いです。

開幕戦黒星

[ Fantasy Baseball 2010 ]

---

Fantasy Baseball　LOG

---

TOP PERFORMER;
ヒース・ベル(SD - RP)#21
2.0IP　2SV　2BB　2K



Santos 5-10 Dwight

いきなりダブルスコアで敗戦。全体10位というスタートになってしまいました。
我がチームが獲得したのは、（野手）R、2B、BB　（投手）SV、BBの5カテゴリーのみ。
これらを死守したうえで、他のカテゴリーも獲りにいかないとです。

選手としては、割と期待していたマクラウスが全く当らず。
良かったのは、ドラフト1位のチェイス・アトリーは、それだけの価値を見せてくれるシーズンになりそうでした。
後、期待度は低かったバラハスが2本塁打と、良い面を出してくれた事も来週以降に期待を持たせてくれる要素です。

とはいえ、全体的にもう少しボトムアップしないと勝利はおぼつきません。
という訳で、早速選手を大きく入れ替えてみました。

【今週の戦力外通告】

Drop	add
Cody Ross (Fla - OF)	Jason Heyward(Atl - OF)
Comment; イキが良さそうだったので、反射的にとびついちゃいました。そのために、誰がいいか適当に探して、コディくんをチョイス。
-	Edgar Renteria(SF - SS)
Comment; 遊撃手補強。サルティをDropせずにDL入りで獲得です。
Brad Hawpe(Col - OF)	Ryan Hanigan(Cin - C)
Comment; ホウプのDropは、はやってしまいました。失敗、失敗…。しかも、その失敗で獲得したライアンは起用しないという失敗ぶり...。
Melky Cabrera(Atl - OF)	Chase Headley(SD - 3B,OF)
Comment; とりあえず外野手を補強。まぁ、これは今週の中では比較的適切な入れ替えではないかと。

選手入れ替えでも失敗がありましたが、ともあれ入れ替え後のメンバーで次週を戦います。
頑張ろう！

BGM♪ Am I Losing You / Jim Reeves
ファンタジー・ベースボール開幕って事で、セントルイス・カージナルス入団という経歴を持つ歌手、ジム・リーブスで行きましょう。
スローなテンポですが、趣のある歌ですね。
我がチームの方も、スローなテンポで始まって、最初からお別れする選手が複数出てしまいましたが、自分でDropしてる訳で、Am I Losing You?とは、トボけ過ぎですかね...。

アルコール備忘録2010-12-

今日は、仕事のお客さんや同僚の歓送迎会。

今までお世話になった人達を送り出し、新たにやって来た人達を迎え入れました。

★飲み会種別；
歓送迎会

★一緒に飲んだ人；
クライアント、同僚

★会場；
しゃぶ楽亭　新橋店

★記憶にある料理；
しゃぶしゃぶ。と、すき焼。肉はいいですね。

★話題；
仕事のあれこれ。加えてカラオケ。

★試合結果（？）；
目立たないよう、ひっそりと少量で済ませました。

これからも飲み過ぎに気をつけて、元気にやって行きましょう。

BGM♪ Beer barrel polka / Nokie Edwards
すっかり悠々自適モードのノーキー・エドワーズがリラックス録音のアルバムに収録されたポルカです。
3日連続の飲み会で、そんなに飲まない私も、合計したらビア樽程に・・・ならないですね。

アルコール備忘録2010-11-

今日は海外からのゲストと遅めのランチ・パーティ。
奥さんがオーストラリア人、旦那さんはニュージーランド人というご夫婦を迎えて、楽しく語らいました。

★飲み会種別；
ランチ・パーティ

★一緒に飲んだ人；

先述のご夫妻、両親、その他

★会場；
両親の家

★記憶にある料理；
かつおのたたき、アボカドサラダ、フルーツポンチなど。旨し。

★話題；
食べもの、文化、音楽など。
トミー・エマニュエルが好きだと伝えたら、割りと喜んでました。

★試合結果（？）；
程々に飲んだから、特に問題はありませんでした。

問題が無いよう、飲み過ぎに気をつけて、元気にやって行きましょう。

BGM♪ ザ・パーティ・イズ・オーバー（The party is over） / Willie Nelson
楽しかったパーティも終わって、帰ってきました。違う文化の人達と語らうのは楽しいですね。
もちろん、この歌は純粋にパーティが終わったって意味じゃ無くて、いわゆる失恋的な内容ですけどね。まぁいいじゃ無いですか。