条件分岐 | VBA・GAS・Pythonで仕事を楽しく効率化

Select Case～End Select構文での条件分岐

okumasahito — Sat, 27 Aug 2016 08:03:31 +0000

If~End If構文よりもたくさんの分岐を使うときにわかりやすい
Select Case~End Select構文の基本的な使い方
Select Case~End Select構文で範囲を指定した条件式
Select Case~End Select構文で～未満などの比較演算子を使用する条件分岐をつける

If~End If構文よりもたくさんの分岐を使うときにわかりやすい

複数の条件分岐を書く方法としてSelect Case~End Select構文があります。
Select Case~End Select構文は、If~End If構文で複数の条件分岐を書くよりも一般的で、コードを見たときに処理の内容がわかりやすいメリットがあります。
今回はSelect Case~End Select構文の書き方についてご紹介します。

Select Case~End Select構文の基本的な使い方

前回の複数条件のIf~End If構文のときに使用した以下の表を使います。

Select Case~End Select構文の基本的な使い方は以下のようになります。

Sub 数学の点数で処理を分ける1 ()
Dim i As Integer
For i = 2 To 6
Select Case Cells(i, 2).Value
Case 90
Cells(i, 7).Value = “90点です”
Case 80
Cells(i, 7).Value = “80点です”
Case 70
Cells(i, 7).Value = “70点です”
Case 60
Cells(i, 7).Value = “60点です”
Case 50
Cells(i, 7).Value = “50点です”
Case 40
Cells(i, 7).Value = “40点です”
End Select
Next i
End Sub

Select Case~End Select構文で範囲を指定した条件式

点数の範囲を定めて処理を分岐させる場合は以下のように「To」を用います。

Sub 数学の点数で処理を分ける2()
Dim i As Integer
For i = 2 To 6
Select Case Cells(i, 2).Value
Case 90 To 100
Cells(i, 7).Value = “数学優秀”
Case 70 To 89
Cells(i, 7).Value = “数学まずまず”
Case 0 To 69
Cells(i, 7).Value = “数学もっと頑張れ”
End Select
Next i
End Sub

「,」で区切って「Case 0 To 19 , Case 21 to 69」などのように記載すると20点だけ除外するOrの条件にすることもできますが、この方法では「～未満」は記載できません。

Select Case~End Select構文で～未満などの比較演算子を使用する条件分岐をつける

前回のIf~End If構文のように数学が90点以上で「数学優秀」、70点以上で「数学まずまず」、70点未満で「数学もっと頑張れ」と記入する場合は以下のように「Case Is」と書いて、その後「>=」や「<」などの比較演算子を用いた条件式を書きます。

Sub 数学の点数3段階で分ける2()
Dim i As Integer
For i = 2 To 6
Select Case Cells(i, 2).Value
Case Is >= 90
Cells(i, 7).Value = “数学優秀”
Case Is >= 70
Cells(i, 7).Value = “数学まずまず”
Case Is < 70
Cells(i, 7).Value = “数学もっと頑張れ”
End Select
Next i
End Sub

あまり必要に迫られることはないかもしれませんが、Select Caseの一つの条件式にAndを記載する方法はないようです。その場合は2重の入れ子にするかIf～End If構文を使用しましょう。

複数の条件分岐を使うIf～End If構文

okumasahito — Fri, 26 Aug 2016 07:02:06 +0000

If~End If構文で複数の条件分岐を使う
複数の条件を一つの分岐に入れるIf~End If構文は「And」と「Or」で区切る
1. ①数学と英語の点数がいずれも80点以上の場合に名前のセルの背景色を黄色にするVBAコード
2. ②数学と英語の点数がいずれかが80点以上の場合に名前のセルの背景色を黄色にするVBAコード
複数の条件分岐を使用するは「Else」「Else If」を用いる
1. ①点数を複数の段階で区切って処理を分けるVBAコード

If~End If構文で複数の条件分岐を使う

以前にIf~End If構文を使用した条件分岐について書きましたが、今回は複数の条件分岐を行う方法を記載します。
条件分岐は一つの分岐に条件をたくさんいれることも、分岐自体をたくさん作ることも可能です。

ただし条件分岐をたくさん作る場合にはIf~End If構文よりもSelect Case~End Select構文を使う方が良い場合が多いです。
Select Case~End Select構文についてはまた他の機会に記載します。
→記載したのでこちらを参考にしてください。

複数の条件を一つの分岐に入れるIf~End If構文は「And」と「Or」で区切る

複数の条件を用いたIf~End If構文を作成するにあたり、例として以下のような表を用います。
A君からE君の5人のテストの点数を記した表です。

この表の内容を条件分岐に使用します。

①数学と英語の点数がいずれも80点以上の場合に名前のセルの背景色を黄色にするVBAコード

数学の点数と英語の点数をどちらも調べて、その2つが両方とも80点を超える場合に実行するコードは以下のようになります。
二つの条件をIfの後に並べてAndでつなぎます。

Sub 数学と英語いずれも80点以上色を付ける()
Dim i As Integer
For i = 2 To 6
If Cells(i, 2).Value >= 80 And Cells(i, 3).Value >= 80 Then
Cells(i, 1).Interior.ColorIndex = 6
End If
Next i
End Sub

②数学と英語の点数がいずれかが80点以上の場合に名前のセルの背景色を黄色にするVBAコード

①とは異なり、英語と数学のどちらかの点数が80点以上の場合の条件式は次のようになります。
A君、B君だけでなく、英語が80点のD君も該当します。
書き方は二つの条件をIfの後に並べてOrでつなぎます。

Sub 数学と英語どちらか80点以上色を付ける()
Dim i As Integer
For i = 2 To 6
If Cells(i, 2).Value >= 80 Or Cells(i, 3).Value >= 80 Then
Cells(i, 1).Interior.ColorIndex = 6
End If
Next i
End Sub

複数の条件分岐を使用するは「Else」「Else If」を用いる

複数の条件を用いてその後に行う処理を分岐する場合は「Else」「Else If」で条件式を加えます。

①点数を複数の段階で区切って処理を分けるVBAコード

数学が90点以上で「数学優秀」、70点以上で「数学まずまず」、70点未満で「数学もっと頑張れ」とG列に記入するVBAコードは以下のようになります。

Sub 数学の点数3段階で分ける()
Dim i As Integer
For i = 2 To 6
If Cells(i, 2).Value >= 90 Then
Cells(i, 7).Value = “数学優秀”
ElseIf Cells(i, 2).Value >= 70 Then
Cells(i, 7).Value = “数学まずまず”
Else
Cells(i, 7).Value = “数学もっと頑張れ”
End If
Next i
End Sub

最初の条件は通常通り「If~」で表し、その次からの条件分岐には「Else If~」を用います。最後は残りの全ての条件を該当させる場合は「Else~」として
分岐後の処理を記載します。

VBAでの変数の使用と繰り返しについて

okumasahito — Thu, 16 Jun 2016 22:58:04 +0000

ある条件の間の繰り返し処理
プログラミングでの変数とは
①前回の内容
②変数で置き換える場所
③変数の宣言
④変数を用いたコードの作成
⑤繰り返しのコード作成
繰り返し処理のコードのルール

ある条件の間の繰り返し処理

よくマクロの勉強をしていて、つまずく所の1つに変数を用いて繰り返しを使えるようになるというものがあります。私も独学で勉強した際にかなり苦戦したので、今日は変数の使い方と繰り返しの方法について書きます。

プログラミングでの変数とは

IT用語辞典(http://e-words.jp/w/%E5%A4%89%E6%95%B0.html)には「変数」が以下のように書かれています。

変数とは、プログラムのソースコード中で、データを一時的に記憶しておくための領域に固有の名前を付けたもの。

こういう初めて変数を扱う人にはイメージがわきにくいと思います。

変数はVBAでコードを書くときに、繰り返し作業のコードを簡略化させる場合や、条件によって作業を切り替えたい場合などに役立つものです。
本当はもっと色々な意味がありますが、まずはその認識で取り組めば理解しやすいと思います。

前回の点数表に色づけするVBAを基に、変数を用いたVBAコードを作成してみます。

①前回の内容

以下の表があった際に、80点以上の点数をとっている人の名前のセルに黄色く色づけするコードを前回作成しました。

Sub 色を分ける

If Cells(1,2) >= 80 Then ’B1セルが80以上なら
Cells(1,1).Interior.ColorIndex = 6 ’A1セルを黄色に塗る。
End If ’Ifの作業を終了する。
If Cells(2,2) >= 80 Then ’B2セルが80以上なら
Cells(2,1).Interior.ColorIndex = 6 ’A2セルを黄色に塗る。
End If ’Ifの作業を終了する。
If Cells(3,2) >= 80 Then ’B3セルが80以上なら
Cells(3,1).Interior.ColorIndex = 6 ’A3セルを黄色に塗る。
End If ’Ifの作業を終了する。
If Cells(4,2) >= 80 Then ’B4セルが80以上なら
Cells(4,1).Interior.ColorIndex = 6 ’A4セルを黄色に塗る。
End If ’Ifの作業を終了する。
If Cells(5,2) >= 80 Then ‘B5セルが80以上なら
Cells(5,1).Interior.ColorIndex = 6 ’A5セルを黄色に塗る。
End If ’Ifの作業を終了する。
If Cells(6,2) >= 80 Then ‘B6セルが80以上なら
Cells(6,1).Interior.ColorIndex = 6 ’A6セルを黄色に塗る。
End If ’Ifの作業を終了する。

End Sub

このコードは作業する行が多くなるとムダに長くなるという問題があります。変数を用いることでコードを短く短縮し、見やすくします。

②変数で置き換える場所

変数は繰り返しを行う部分に使います。
前回作成したコードは赤い部分を除いて以下の内容の繰り返しになります。

If Cells(1,2) >= 80 Then ’B1セルが80以上なら
Cells(1,1).Interior.ColorIndex = 6 ’A1セルを黄色に塗る。
End If ’Ifの作業を終了する。

赤で記された部分は1～6まで変更する部分になります。
こういう繰り返しの中の一部分変更する場所を変数で置き換えるのが基本操作です。

③変数の宣言

変数は日本語でも英語でもほぼどんなものでも文字列なら使えます。
よく数字を表す変数で使われるのはi,kなどの文字です。

変数を使う時には事前に「これが変数ですよ」と記しておくコードが必要になり、それを「変数の宣言」といいます。今回はiという文字を変数として使用します。

Dim i

変数の宣言のコードはこれでOKです。他にその変数の範囲を表すコードを追加することもできますが、よくわからなければこのままでも大丈夫です。変数の範囲を表すものを「型」といいます。
この内容に関してはまた後日お伝えします。

④変数を用いたコードの作成

変数を使い、先ほどのコードを以下のように書き換えます。

Dim i　’変数としてiを使う
i = 1　’iを1とする
If Cells(‘i,2) >= 80 Then ’(1,2)セルが80以上なら
Cells(‘i,1).Interior.ColorIndex = 6 ’(1,1)セルを黄色に塗る。
End If ’Ifの作業を終了する。

⑤繰り返しのコード作成

これをこのままコピペを使ってiの値を変更しながら繰り返してもよいのですが、それだと変数を使う意味があまりなくなってしまいます。そこで繰り返しのコードを用いて全体を簡略化します。

繰り返しのコードは大きく2つありますが、今回はFor~Next構文を用います。
使い方は以下のようになります。

For i = 1 to 6
実行したい処理
Next i

これでiに1～6まで順番に代入して、実行したい処理を繰り返し行うコードが作れます。
このコードを先ほどのコードと組み合わせて以下のようにします。

Sub 繰り返し実行Dim i　’変数としてiを使う
For i = 1 to 6　’iを1から6まで順に増やす
If Cells(‘i,2) >= 80 Then ’(i,2)セルが80以上なら
Cells(‘i,1).Interior.ColorIndex = 6 ’(i,1)セルを黄色に塗る。
End If ’Ifの作業を終了する。
Next i

End Sub

一番最初にiを変数として宣言します。

次にFor~Next構文を用いて、作業内容を繰り返すコードを入れます。

For~Next構文の繰り返しの中にIf~End If構文を用いたコードを書き、条件分岐を行う作業を繰り返すコードを作成します。

繰り返し処理のコードのルール

繰り返しのコードを使うと便利なのが、データが100個あろうが10000個あろうが、
Forの後の数字を入れ替えるだけで簡単にコードを書き換えることができます。

For i = 1 to 100

For i = 1 to 10000

ちなみに1行おきに実行する場合は下記のように”Step 2”と記入します。（2行おきなら”Step 3”）

For i = 1 to 99 Step 2

この記載でiは1,3,5…と奇数だけで99まで進みます。

変数を使った繰り返しと条件分岐を覚えると一気に作業できる幅が増え、プログラムを作るのが楽しくなってきます。ぜひ楽しんでコードを作ってみてください。

おすすめ書籍 (広告)

Amazon 楽天 Yahoo検索
Amazon 価格：￥2,420円
楽天Kobo電子書籍ストア価格：2,574円
楽天Kobo電子書籍ストア価格：2,574円
bookfanプレミアム価格：2,420円
bookfanプレミアム価格：2,200円

Excel VBAのプログラミングのツボとコツがゼッタイにわかる本[第2版]
秀和システム立山秀利

Amazon Kindle
楽天市場 Kobo
Yahoo

If～End Ifによる条件分岐について

okumasahito — Thu, 16 Jun 2016 00:23:19 +0000

条件分岐とは
VBAでIf～End Ifを使った条件の例
①セルに色を付けるコード
②If構文は次のようなルールで記載します。
③If構文を用いたコードの作成
まとめ

条件分岐とは

マクロでできなくて、VBAでコードを組むことによってできることの一つに条件分岐があります。条件分岐とは条件によって行う処理を変えることを言います。今回は代表的な条件分岐のIf～End Ifについて記載します。

VBAでIf～End Ifを使った条件の例

例えば以下のような表があったとします。

表の中で80点を超えた人の名前のセルを黄色にするサンプルを考えることにします。
まず①セルに色をつけるコードを作り、②続いて条件を入れるIf～End If構文を組んでいきます。

①セルに色を付けるコード

セルに色を付ける場合、Interior.ColorIndex=○○（色の番号）というコードで行うことができます。（ほかの指定もありますが、この書き方が一番簡便です。）
色の番号に関してはインターネットなどで参考にできます。
私はいつもインストラクターのネタ帳（http://www.relief.jp/itnote/archives/000482.php）というサイトで確認します。

セルのA1の色を変える黄色に変更する場合以下のような記載になります。

Cells(1,1).Interior.ColorIndex=6’A1セル（Cells(1,1)）の背景色を黄色にする

②If構文は次のようなルールで記載します。

If 条件 Then’もし条件が満たされていたら
作業コード’この作業を行う。
End If’Ifの作業を終了する。

B1セルが80以上ならA1セルを黄色に塗るコードは以下のようになります。

Sub A列に色を付ける
If Cells(1,2) >= 80 Then’B1セルが80以上なら
Cells(1,1).Interior.ColorIndex = 6’A1セルを黄色に塗る。
End If’Ifの作業を終了する。
End Sub

これでIf～End Ifを使った条件分岐ができました。

③If構文を用いたコードの作成

6行目まで行うには少し面倒ですが、このコードを6回繰り返せば作れます。

Sub A列に色を付ける

If Cells(1,2) >= 80 Then’B1セルが80以上なら
Cells(1,1).Interior.ColorIndex = 6’A1セルを黄色に塗る。
End If’Ifの作業を終了する。
If Cells(2,2) >= 80 Then’B2セルが80以上なら
Cells(2,1).Interior.ColorIndex = 6’A2セルを黄色に塗る。
End If’Ifの作業を終了する。
If Cells(3,2) >= 80 Then’B3セルが80以上なら
Cells(3,1).Interior.ColorIndex = 6’A3セルを黄色に塗る。
End If’Ifの作業を終了する。
If Cells(4,2) >= 80 Then’B4セルが80以上なら
Cells(4,1).Interior.ColorIndex = 6’A4セルを黄色に塗る。
End If’Ifの作業を終了する。
If Cells(5,2) >= 80 Then’B5セルが80以上なら
Cells(5,1).Interior.ColorIndex = 6’A5セルを黄色に塗る。
End If’Ifの作業を終了する。
If Cells(6,2) >= 80 Then’B6セルが80以上なら
Cells(6,1).Interior.ColorIndex = 6’A6セルを黄色に塗る。
End If’Ifの作業を終了する。
End Sub

まとめ

IF～End If構文によって条件を分けて色分けをしました。他にElseやElse Ifを使用することでより細かい条件分けも行うことができるようになります。

複数の条件分岐を使う方法についてはこちらを参考にしてください。

If～End If構文を単体で使っても今回のように繰り返しを行う際にコードがムダに長くなり、手間もかかる場合が多いです。
そういう時には条件分岐に追加して、変数を用いて繰り返し処理を組み込んだりする方法が有効です。

If～End If構文の条件分岐と変数を使った繰り返しの処理はVBAでコードを作る上ですごく役立つので次回に載せます。