Excelマクロ学習

Excelマクロの練習②

wp-datacare

今回の課題は以下のようになります。
練習用のファイルはこちらからダウンロードできます。

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
酒見 拓也
酒見 拓也
代表取締役
パチンコ企業向けにExcelマクロを使って業務の自動化、効率化のやり方を発信しています。 企業向けに「Excelマクロ研修」も行っています。
記事URLをコピーしました