Zenn
🙆

ExcelのマクロVBA入門⑤

2023/07/03に公開
Excel
VBA
マクロ
vb
tech

目次

  • マクロの「繰り返し」をマスターする
    • 行を挿入
    • 文字を入力
    • 合計を計算
    • 背景色をつける
      この一連の流れを変数や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. 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

Discussion