教えて!ExcelVBA!

ExcelVBAの基礎知識・書き方について紹介します。

【ExcelVBA プログラミング】(条件判断4)入力データを条件判断し結果を表示する方法(IF文とFor~Next文の組み合わせによる複数判断)

f:id:m_kbou:20200420172322p:plain

入力したデータを条件判断し結果を表示する方法について説明します。今回はIF文とFor~Next文の組み合わせによる複数判断について説明します。

 

 

例題

例題は、<実行>ボタンにVBAマクロが登録されており、ボタンをクリックする事で入力したデータを条件判断して結果を表示します。内容は、名前欄(A列の3行目~8行目セル)に”大山”の名前が入力されおり、かつ性別欄(B列の3行目~8行目セル)に”男”が入力されている場合は結果欄(C列セル)に”●”を表示し、それ以外の場合は結果欄に”×”を表示するプログラミング方法となります。

[実行前]:

A列の3行目~8行目に名前が入力されており、B列3行目~8行目に性別が入力されている。

f:id:m_kbou:20200307114842p:plain

[実行後]:

名前欄に”大山”が入力されており、かつ性別欄に”男”が入力されている場合は”●”、それ以外の場合は”×”をC列の結果欄に表示する。

f:id:m_kbou:20200307114908p:plain

 

プログラミング

プログラミングは以下の通りとなります。

[記述例]:

Sub サンプル()

  Dim 行 As Double

  For 行 = 3 To 8
    If (Trim(Range("A" & 行)) = "大山" And Trim(Range("B" & 行)) = "男") Then
      Range("C" & 行) = "●"
    Else
      Range("C" & 行) = "×"
    End If
  Next

End Sub

最初に変数:行を指定します。

次にFor~Next文を使用して変数:行に3~8までの数値を順次セットしながらループさせます。

このループによりA列の3行目~8行目に入力されている名前とB列の3行目~8行目に入力されている性別を条件判断します。

条件判断にはIF文を使用し、A列の入力されたデータが”大山”であるか否かの判断をするTrim(Range("A" & 行)) = "大山"と、B列の入力されたデータが”男”であるか否かの判断をするTrim(Range("B" & 行)) = "男"を記述します。Trim関数は文字列前後にスペース文字が入っていた場合に取り除くための指定となります。

結果はC列のセルに出力するため、A列のセルに”大山”かつB列のセルに”男”が入力されている場合は、C列セルに”●”を表示するRange("C" & 行) = "●"を記述し、A列のセルに”大山”以外又はB列のセルに”男”以外が入力されている場合は、C列セルに"×"を表示するRange("C" & 行) = "×"を記述します。

ループ内の処理内容を説明すると、

---------------------------------

まず最初に変数:行に3がセットされ、A3セルの名前が”大山”でかつB3セルの性別が”男”であるか否かを判断します。A3セルには”久保木”の名前が入力されており、B3セルには”男”の性別が入力されているため、名前の条件が一致しない事からC3セルへの結果は”×”をセットします。

---------------------------------

次に変数:行に4がセットされ、A4セルの名前が”大山”でかつB4セルの性別が”男”であるか否かを判断します。A4セルには”照沼”の名前が入力されており、B4セルには”女”の性別が入力されているため、名前及び性別の両条件が一致しない事からC4セルへの結果は”×”をセットします。

---------------------------------

次に変数:行に5がセットされ、A5セルの名前が”大山”でかつB5セルの性別が”男”であるか否かを判断します。A5セルには”大山”の名前が入力されており、B5セルには”男”の性別が入力されているため、両条件が一致する事からC5セルへの結果は”●”をセットします。

---------------------------------

次に変数:行に6がセットされ、A6セルの名前が”大山”でかつB6セルの性別が”男”であるか否かを判断します。A6セルには”遠藤”の名前が入力されており、B6セルには”男”の性別が入力されているため、名前の条件が一致しない事からC6セルへの結果は”×”をセットします。

---------------------------------

次に変数:行に7がセットされ、A7セルの名前が”大山”でかつB7セルの性別が”男”であるか否かを判断します。A7セルには”大山”の名前が入力されており、B7セルには”女”の性別が入力されているため、性別の条件が一致しない事からC7セルへの結果は”×”をセットします。

---------------------------------

次に変数:行に8がセットされ、A8セルの名前が”大山”でかつB8セルの性別が”男”であるか否かを判断します。A8セルには”鈴木”の名前が入力されており、B8セルには”男”の性別が入力されているため、名前の条件が一致しない事からC8セルへの結果は”×”をセットします。

---------------------------------

との意味になります。

f:id:m_kbou:20210426181456p:plain

※上記の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。また、ボタンにプログラムを割り当てるにはこちらを参考にして下さい。

 

ダウンロード

上記で説明したファイルをダウンロードできます。ご自由にお使い下さい。

drive.google.com

 

関連プログラム

www.osiete-excelvba.work