2023.06.21 2023.06.24

Excelマクロの練習⑥（複数条件付きの合計算出）

datacare1

今回の課題も、マクロを使って合計を求めます。
単調な練習問題が続きますが、このような練習問題を繰り返すことで、条件分岐・繰り返し処理が身に付きます。
Excelマクロの習得では、条件分岐・繰り返し処理が使いこなせると必ず上達します。
一日一問でもよいので、何も見ずにプログラムコードが書けるようになって下さい。

練習用のファイルはこちらからダウンロードできます。

C列のPS区分がパチンコ　＆　D列の貸料金が4円未満の売上額の売上合計額を算出します。
条件が２つあります。
今回の練習問題では1円パチンコと1円スロットがある事に注意して下さい。

模範解答は以下のとおりです。

Sub サンプル()
　　Dim i As Long
　　Dim lngUriage As Long

　　For i = 5 To 24
　　　　If Cells(i, 3).Value = “パチンコ” Then　 ‘PS区分がパチンコの場合
　　　　　　If Cells(i, 4).Value < 4 Then　 ‘貸料金が4円未満の場合
　　　　　　　　lngUriage = lngUriage + Cells(i, 6).Value
　　　　　　End If
　　　　End If
　　Next i
　　Range(“F26”).Value = lngUriage

End Sub

このコードを実行すると以下のようになります。