VBAのコードスニペット

ここでは、弊社新入社員研修を受ける受講者のためにVBAのコードスニペットをご紹介します。

なお、スニペットとは“断片”という意味です。

よく使用するコードの慣用句のようなものです。

１．セルの指定方法

１．１ 一つのセルの選択

【書式】

Range(“セル”)

【例】

Range("A1").Select

１．２ セル範囲の選択

【書式】

Range(“開始セル:終了セル”)

【例】

Range("A1:D6").Select

１．３ 複数のセル範囲の選択

【書式】

Range(“開始セル1:終了セル1,開始セル2:終了セル2”).Select

のようにカンマで区切る。

【例】

Range("A3:B6,C9:D12").Select

１．４ 選択セルを次々と変化させる

【書式】

Cells(変数, 列番号)

のようにCellsを使う。

【例】

For i = 1 To 5
     Cells(i, 4) = Cells(i, 2) * Cells(i, 3)
Next

１．５ セル範囲を移動させる

【書式】

Range(“範囲”).Offset(行方向に動かすセル数,列方向に動かすセル数)

【例】

Range("A1:B6").Offset(3, 4).Select

１．６ シート全体を選択する

【書式】

Cells.Select

２．連続範囲のセルの最後を指定する

【書式】

A列目の最後 Cells(Rows.Count, "A").End(xlUp).Row

１行目の最後 Cells(1, Columns.Count).End(xlToLeft).Column

３．条件分岐

３．１条件に応じて処理をさせたり何もさせなかったりする

【書式】

If 条件 Then
条件を満たした場合の処理
End If

【例】

If Cells(i, 4) = 0 Then
      Cells(i, 4) = "×"
End If

３．２ 条件に応じて２通りの処理をする

【書式】

If 条件 Then
条件を満たした場合の処理
Else
条件を満たさなかった場合の処理
End If

【例】

 If Cells(i, 4) >= 1.05 Then
    Cells(i, 5) = "S"
 Else
    Cells(i, 5) = "D"
 End If

３．３ 条件に応じて３通り（以上）の処理をする

【書式】

If 条件１ Then
条件１を満たした場合の処理
ElseIf 条件２ Then
条件２を満たした場合の処理
Else
条件１，２を満たさなかった場合の処理
End If

【例】

 If Cells(i, 4) >= 1.05 Then
    Cells(i, 5) = "S"
 ElseIf Cells(i, 4) >= 1 Then
    Cells(i, 5) = "A"
 Else
    Cells(i, 5) = "D"
 End If

３．４ 条件に応じて３通り（以上）の処理をする（）

Select Case Cells(i, 4)
    Case Is >= 1.05
    　Cells(i, 5) = "S"
    Case Is >= 1
    　Cells(i, 5) = "A"
    Case Is >= 0.95
    　Cells(i, 5) = "B"
    Case Is >= 0.9
    　Cells(i, 5) = "C"
    Case Else
    　Cells(i, 5) = "D"
End Select

４．繰り返し

４．１ 回数指定ループ（For～Next文）

【書式】

【例】

For i = 2 To 11
    Cells(i, 4) = Cells(i, 2) / Cells(i, 3)
Next i

４．２ ループ（Do～Loop文）

【書式】

Do While 継続条件式
繰り返し処理
Loop

【例】

Do While Cells(i, 1) <> ""
   If Cells(i, 1) = a Then
        Exit Do
   End If
   i = i + 1
Loop

４．３ 必ず一度は処理を実行する後判定ループ

【書式】

Do
繰り返し処理
Loop While 継続条件式

【例】

i = 1
Do
    Worksheets("Sheet1").Cells(i, 1).Value = i
    i = i + 1
Loop While i < 11

４．４ オブジェクトをループさせる（For Each In～Next文）

【書式】

For Each 変数 In 対象配列またはコレクション
　繰り返し処理
Next

【例】

Dim R1 As Range
Range("B4:E7").Select
For Each R1 In Selection
      R1.Interior.ColorIndex = 3
Next R1

５．　乱数を生成する

５．１　0～1未満の数値をランダムに生成する

【書式】

Rnd()

５．１　最大値と最小値を指定して乱数を生成する

【書式】

Int(Rnd()*(最大値－最小値+1）+最小値）

【例】

For i = 1 To 10
    Cells(i, 1) = Rnd()
    Cells(i, 2) = Int(Rnd() * (10 - 1 + 1) + 1)
Next i

以上です。