Excelマクロの練習②

datacare1
今回の課題は以下のようになります。
練習用のファイルはこちらからダウンロードできます。
C列が
パチンコの場合 機種名のセルを黄色
スロットの場合 機種名のセルを水色
とします。

前回の課題は対象が1行のみでした。
今回は20行あります。
このような時に繰り返し処理を使用します。
模範解答は以下のようになります。
Sub サンプル() Dim i As Long For i = 5 To 24 If Cells(i, 3).Value = "パチンコ" Then Cells(i, 4).Interior.ColorIndex = 6 Else Cells(i, 4).Interior.ColorIndex = 8 End If Next i End Sub |
前回はセルの指定でRangeを使用していました。
しかし、今回は繰り返し処理を使用するためCellsを使用します。
このコードを実行すると以下のようになります。

繰り返し処理を使用する事で5行目→6行目→7行目・・・・24行目 と処理が繰り返されます。
今回は、For~Nextステートメントの中にIfステートメントが入っています。
最初は慣れないために混乱するかもしれません。
作成する場合は、まず5行目の「CR大海物語2 MTE」だけのコードをIfステートメントを使って作成します。
作成できたら、For~Nextステートメントを使って 次の行、次の行 と繰り返すようにします。
実務では、ステートメントの中に複数のステートメントが入ることが普通です。
条件分岐(Ifステートメント)、繰り返し処理(For~Nextステートメント)をコントロールできるようになる必要があります。
今回はここまでです。
徐々に難易度が上がりますよ。
ABOUT ME