Excelマクロの練習⑥(複数条件付きの合計算出)
![](https://p-vba.jp/wp-content/uploads/2023/06/catch20230621.png)
wp-datacare
今回の課題も、マクロを使って合計を求めます。
単調な練習問題が続きますが、このような練習問題を繰り返すことで、条件分岐・繰り返し処理が身に付きます。
Excelマクロの習得では、条件分岐・繰り返し処理が使いこなせると必ず上達します。
一日一問でもよいので、何も見ずにプログラムコードが書けるようになって下さい。
練習用のファイルはこちらからダウンロードできます。
C列のPS区分がパチンコ & D列の貸料金が4円未満の売上額の売上合計額を算出します。
条件が2つあります。
今回の練習問題では1円パチンコと1円スロットがある事に注意して下さい。
![](https://p-vba.jp/wp-content/uploads/2023/06/pic20230621-01.png)
模範解答は以下のとおりです。
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 |
このコードを実行すると以下のようになります。
![](https://p-vba.jp/wp-content/uploads/2023/06/pic20230621-02.png)
コードを 貸料金が2円又は1円と書く方法もあります。
![](https://p-vba.jp/wp-content/uploads/2023/06/pic20230621-03.png)
今回の作成条件が「D列の貸料金が4円未満」とありますので模範解答の方が良いです。
また、実務では0.5円パチンコなどが追加された場合にはコードの追加が必要となります。
貸料金の種類が多い現在では、Or を使った記述はお勧めできません。
今回はここまでです。
ABOUT ME