前々回に試して頂いた「めいろ１」ですが、「X」の壁にぶつからないで「オバケ」をつかまえられたでしょうか？
もし、壁にぶつかると条件分岐処理によりペンギンは止まります
今回は、この条件分岐の処理を体験して頂きます
通常のIF関数の復習
今回は、前回使用した演習２のファイルからはじめます
このファイルのK8セルには上記のようなIF関数が埋め込まれています
ですので、「迷路の一の二/C４セル」に”X”が入力されていると”終了”の文字を出力します
このIF関数と同じ仕組みが、記事の冒頭の「カベにぶつかったとき」のマクロの処理に組み込まれています
壁にペンギンをぶつける
では、今回はめいろ１にて敢えてペンギンを壁/Xにぶつけてみましょう！
上の画像のように、コードの1行目で下に進むようにすれば、スタートボタンを押すのとほぼ同時に壁にぶつかります
上の画像では、数式バーに「X」と出ています
つまり、これはカーソルがある箇所にXが入力されているということになります
カーソルがある箇所のセルの中味が「X」の場合には、処理が止まるようにマクロが組み込まれているわけですが、コードにすると次のようになります
2行目の「End」は「マクロ処理」の終了という意味です
この「End」というコードが、1行目のIfからはじまるコードと3行目のEnd Ifに囲まれています
1行目のコードでは、IfとThenの間に「Selection.Value」というコードが入力されています
「Selection.Value」については、今の段階では次のように解釈しておいてください
「選択/Selectionした箇所 の 中味/Value」
つまり、「もし/If、カーソルが選択されているセルの中味が”X”の場合には」という条件式が「If ～ Then」の ～ の箇所に書いてあります
そして、条件に合う場合には、次の行から書いてあるコードを実行します
3行のEnd Ifは、条件に合う場合に実行されるコードの終点を示しています
条件分岐処理を体験する
では演習２のファイルに戻ります
こちらのファイルにあるSample3のマクロを開いてみて下さい
今回は、下の画像の「Visual Basic」のところをクリックしてみましょう！
すると「Sub Sample3()」の箇所がみえるはずです
こちらのマクロは、実行するとカウンターとして設定した「myCount」が１から３まで増える間にメッセージボックスを3回繰り返し表示します
では、今回はFor ～ Next文の中に次の3行を入力してみましょう
こちらのコードは「もし/If、１からはじまるmyCountが1の場合には、マクロを終了する」という意味になります
ですので、このIf文をMsgBox～の上に書くと、メッセージボックスは1度も表示されません
＜まとめ＞
今回は、条件分岐の処理を体験して頂きました
前回の繰返し処理もそうですが、この条件分岐処理は操作を記録して再生する「記録マクロ」では実行できません
ですので、繰り返し処理と同様にシステムの醍醐味といってもいい処理だと思います
ぜひ、手を動かして体感してみてください
尚、記事の中で無造作にマクロという言葉を使用していますが、こちらはVBAコードを集めたセット/一式ぐらいに思っていただければ結構です
ではまた次回もよろしくお願いします
