ループによる条件判断での計算をする方法について説明します。今回はIF文とFor～Next文を使用した足し算処理について説明します。
例題
会社名欄（A列）に”B社”が入力されている場合は総務部人員（B列）と経理部人員（C列）を足し算して結果欄（D列）に表示し、”B社”以外が入力されている場合は何もしないプログラミング方法となります。
[実行前]：
A列3行目～6行目に会社名、B列3行目～6行目に総務部人員、C列3行目～6行目に経理部人員が入力されている。
[実行後]：
会社名欄に”B社”が入力されている場合は総務部人員と経理部人員の足し算結果をD列の結果欄に表示し、”B社”以外が入力されている場合は何もしません。
プログラミング
プログラミングは以下の通りとなります。
[記述例]：
Sub サンプル()
Dim 行 As Double
For 行 = 3 To 6
If (Range("A" & 行) = "B社") Then
Range("D" & 行) = ""
Range("D" & 行) = Range("B" & 行) + Range("C" & 行)
End If
Next
End Sub
最初に変数：行を指定します。
次にFor～Next文を使用して変数：行に3～6までの数値を順次セットしながらループさせます。
このループによりA列の3行目～6行目に入力されている会社名をIF文を使用して条件判断します。
A列のセルに入力したデータが”B社”であるか否かの判断をするため、Trim(Range("A" & 行)) = "B社"と記述します。Trim関数は文字列前後にスペース文字が入っていた場合に取り除くための指定となります。
条件が一致した場合は総務部人員と経理部人員を足し算し、結果をD列に表示するためRange("D" & 行) = Range("B" & 行) + Range("C" & 行)と記述します。
ループ内の処理内容を説明すると、
---------------------------------
「まず最初に変数：行に3がセットされ、A3セルの会社名が”B社”であるか否かを判断します。A3セルには”A社”が入力されているため、足し算は行いません。
---------------------------------
次に変数：行に4がセットされ、A4セルの名前が”B社”であるか否かを判断します。A4セルには”B社”が入力されているため、B4セルの値(20)とC4セルの値(2)が足し算され、D4セルには結果の22(20+2=22)が表示されます。
---------------------------------
次に変数：行に5がセットされ、A5セルの名前が”B社”であるか否かを判断します。A5セルには”C社”が入力されているため、足し算は行いません。
---------------------------------
次に変数：行に6がセットされ、A6セルの名前が”B社”であるか否かを判断します。A6セルには”D社”が入力されているため、足し算は行いません。
---------------------------------
との意味になります。
ダウンロード
上記サンプルプログラムを使用したい場合は、こちらからダウンロードして下さい。