カテゴリー: ExcelVBA

'アクティブセルが10以上になるまで1を足す
Do Until ActiveCell >= 10
ActiveCell = ActiveCell + 1
Loop

ループ処理には、種類が複数あります
大きく分けると「For」と「Do」の2つがあり、それらが少し派生します

なかでも使いやすいのは「Do」の「Until」を使用する形です
「Until」はループの終了条件を指定するものです
条件式の書き方は他のコードと同じ書き方をし、このDoの後に条件式を書くことを前判定といいます（後判定はこちら）
Untilは条件式が真（True）になった時に終了します

これとは別に「While」という終了条件判定もありますが、こちらは終了の条件ではなくループを続ける条件を指定します
基本的にループ処理を作ることを考えたときに、終了条件の方が考えやすいと思うので「While」の説明は割愛します
条件式の作り方でどちらも同じ動きをするため、両方つかいこなす必要もありません

無限ループについて

ループ処理には常に付いて回るエラーが、無限ループです

たとえばこの記事の条件では10以上となっています
これを「Do Until ActiveCell = 10」として、セルの数値が11以上であった場合「12…13…14…」と加算されていき、永遠に10になることが無いので無限ループに陥ります

ループを作成した場合は、しっかりループが終了する事を確認してから処理の実行を行うようにしてください

もし無限ループに陥った場合は、「Ctrl+Break」か「Esc」で処理の実行をキャンセルさせるようにします（うまくいかない場合もあります）

ただ、この無限ループは意図せず発生した場合にエラーとして認識しますが通常は監視用無限ループというプログラミングもあります
なんらかの条件が成り立つまで待機するようなプログラムを作る際に使用します

ですが、VBAはプロシージャの複数同時実行は得意ではありません
1つのプロシージャを監視無限ループさせて、別のプロシージャで別の処理を並行して行うことは基本的に出来ません、というか安定しないので出来てもしないでください

この作りではデバッグもうまく機能しません、別のプロシージャに切り替えるようなデバッグの方法がありません

これを実現したい場合はVBAではなく、VBScriptという別のプログラミング言語がありますのでそちらを応用します

'条件を対象にして分岐
Select Case True
Case UserForm1.OptionButton1.Value

Case UserForm1.OptionButton2.Value

Case Else

End Select

SelectCase分岐の逆説的な使い方として、答えの方から分岐させる方法があります

よく使うのがユーザーフォームでオプションボタンを使用した際に、どれがチェックがついているかを判断することです

オプションボタンは、複数の中で1つだけONにできるコントロールです
オプションボタンはONの状態（チェックがついた状態）で「Value」プロパティが「True」になり、OFFなら「False」になります

そして、そのTrueを対象として各コントロールのValueプロパティを検証します
それが「Select Case True」の部分になります

この後の条件式には、対象とするコントロールを指定していきます
オプションボタンなら1つしかTrueにならないのでいいですが、チェックボックスなどで検証する場合は上にあるほど優先されることに注意します
逆にその優先度を利用することもいいかもしれません

OFF状態を検証したい場合は、対象を「False」とします
もちろん数値や文字列などを対象に検証することもできます

'複数の条件で分岐
Select Case ActiveCell
Case 10

'10の時の処理内容

Case 20

'20の時の処理内容

Case Else

'10と20ではない時の処理内容

End Select

SelectCase条件分岐は複数の条件を１つの対象に検証して分岐します
対象が１つのものに条件を立てていくので、条件比較がわかりやすい条件分岐です

ちなみに、条件式は上から順番に検証されるので同じ条件で当てはまる場合は上の処理が優先されるのでIf構文のように続く条件に下限値などの設定は必要ありません

「Case　～～」～～の部分に条件の数値や文字列などを入力します
このCaseは追加で増やしていくことが可能です

最終的にどれにも当てはまらない場合は、「Case　Else」にある処理が実行されます

Caseの書き方

'数値の範囲指定
Case 0 To 5

数値の範囲指定には「To」を使用します
開始と終了の数値を入力することにより、その範囲の数値であれば真となります
例コードであれば対象が０～５の数値であれば真です

'検証対象との比較
Case Is <= 5

検証対象を条件式に使用する場合は「Is」を使用します
「Case ActiveCell <= 5」は間違いになります、赤字の部分はIsに書き換えます
最大や最小の数値が分からない時はこちらで対応します

'複数の条件を指定
Case Is <= 6, 8 To 9

複数の条件を指定する場合は「,」で区切って追加します
変則的な数値であったりする場合はここで追加入力していきます
また、この条件はOr検証なので条件のどれかが成り立ったら真となります

'And（両方成り立つとき）
If ActiveCell = 100 And ActiveCell = 200 Then

'Or（どちらかが成り立つとき）
If ActiveCell = 100 Or ActiveCell = 200 Then

'Not（条件に当てはまらないとき）
If Not ActiveCell = 100 Then

Andはすべての条件式が真のときに真を返します
さらにAndを追加して条件式を1行に増やしていくことも可能です
もちろんそんなことをすれば、コードが読み取りづらくはなります

Orはどれか1つでも条件式が真のときに真を返します
Andと同じく追加することが可能です

Notは条件式の結果を反転させます
この場合だと、アクティブセルが100でなければ真となります
ただこの例だとあえて使う必要性がまったくありません
等符号の場合は、向きや右左辺を入れ替えればいいだけなので
「Like」や「Is」などの向きの変更ができなかったりするときに使います
Notを使う場面は初心者では少ないかもしれません

またこれらのコードは全て組み合わせて使用することもできます
ネストでは対応できない場合に使用するようにして、なるべくコードの可読性を落とさないように注意して使用してください

'Ifによる処理分岐
If ActiveCell = 100 Then

'1つ目が真の時の処理内容

ElseIf ActiveCell = 200 Then

'2つ目が真の時の処理内容

Else

'どちらも偽の時の処理内容

End If

IF条件分岐の多数条件です

1つ目の条件は、「If　～～　Then」の「～～」に条件式を入力します

2つ目の条件は、「ElseIf　～～　Then」の「～～」に条件式を入力します
1つ目の書式にElseを頭に追加するだけです

今回の場合は、アクティブセルの値が100なら1つ目が真、200なら2つ目が真となります
それ以外の数値や文字列、空白もすべて偽になります
どちらの結果になって処理が実行されても、最後のEnd Ifまできてその後の処理につながります

またElseIfはさらに追加して入力していくことができます
ただそんなことをすると訳がわからなくなる可能性が非常に高いので、せいぜいElseIfは１つぐらいがいいと思います
そもそも多数条件の場合はSelect分岐の方が良いです

'Ifによる処理分岐
If ActiveCell = 100 Then

'真の時の処理内容

Else

'偽の時の処理内容

End If

IF条件分岐は、条件式が成り立つかどうかで処理を分岐させるコードです

プログラミングの必須知識として重要な処理です
関数でもあるので、多少はやったことがあるかもしれません

If ～～ Then

コード中間の「～～」に条件式を入力します

例コードでは「ActiveCell = 100」の部分が条件式になります
アクティブセルが100かどうかを調べています
それ以外の数値や文字列、空白もすべて偽になります

条件が成り立った場合は、「Then」以降の次の行からElseの前まで実行されます
条件が成り立たなかった場合は、「Else」以降の次の行から処理が実行されます

どちらの結果になって処理が実行されても、最後の「End If」まできてその後の処理につながります