ExcelのマクロVBA入門⑤

目次

• マクロの「繰り返し」をマスターする
  • 行を挿入
  • 文字を入力
  • 合計を計算
  • 背景色をつける
    この一連の流れを変数やDo Loopを使って繰り返す

マクロの「繰り返し」をマスターする

繰り返しのフロート

1. 2つ左のセル＋1つ左のセルを合計⇒下のセルに移動・選択
2. これを10回繰り返す

Sub 選択セルから10回合計_DoLoop()
  Dim i
  Do
    Selection = Selection.Offset(0,2) + Selection.Offset(0,-1)
    Selection.Offset(1,0).Select
    i = i + 1
  Loop Until i = 10
End Sub

1. Dim：これが変数ですと宣言
2. Do ~ loop：ここからここまで繰り返す
3. Until i = 10：変数が10になるまで繰り返す

行の挿入の繰り返し

例

1. 6行目を選択
2. 行を挿入
3. 選択している行から、3つ下に移動して選択

Sub すべての行を挿入()
  Range("6:6").Select
  Selection.Insert
  Selection.Offset(3,0).Select
End Sub

このコードにDo Loopを使う！！

Sub すべてに行を挿入()
  Dim i
  Range("6:6").Select
  Do
    Selection.Insert
    Selection.Offset(3,0).Select
    i = i + 1
  Loop until i = 6
End Sub

合計という文字を挿入の繰り返し

例

1. セルC6を選択
2. 選択セルに「合計」と入力
3. 下に3行移動して選択

Sub C列に「合計」という文字を入力する()
  Range("C6").Select
  Selection = "合計"
  Selection.Offset(3,0).Select
End Sub

このコードにDo Loopを使う！！

Sub すべてに行を挿入()
  Dim i
  Range("C6").Select
  Do
    Selection = "合計"
    Selection.Offset(3,0).Select
    i = i + 1
  Loop until i = 6
End Sub

すべての合計セルの計算の繰り返し

ここについては例のコードのみの掲載。

Sub すべての合計セルを計算()
  Dim i
  Dim k
  セルD6を選択する
  Do
    1月の計算をする
      Do
        右のセルに移動、計算を3回繰り返す
	i = i + 1
      Loop Until i = 3
    3行下、左に3列移動・選択を6回
    k = k + 1
  Loop Until k = 6
End Sub

セル範囲選択＆背景色をつける、を繰り返す

例

1. セルB4を選択
2. 選択セルから、下に2セル、右に5セル先まで範囲選択
3. 選択範囲の背景色を青にする
4. 選択セルから6つ下に移動してセル選択

Sub 一支店おきに背景色を青()
  Range("B4").Select
  Range(Selection, Selection.Offset(2,5)).Select
  Selection.Interior.Color = RGB(221,235,247)
  Selection.Offset(6,0).Select
End Sub

このコードにDo Loopを使う！！

Sub 一支店おきに背景色を青()
  Dim i
    Range("B4").Select
    Range(Selection, Selection.Offset(2,5)).Select
    Do
      Selection.Interior.Color = RGB(221,235,247)
      Selection.Offset(6,0).Select
      i = i + 1
    Loop Until i = 3
End Sub

これから
コードのコピペではなく、繰り返し処理を使う！！