VBAのコードスニペット

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

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

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

１．セルの指定方法

１．１ 一つのセルの選択

【書式】

Range(“セル”)

【例】

 

１．２ セル範囲の選択

【書式】

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

【例】

 

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

【書式】

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

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

【例】

 

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

【書式】

Cells(変数, 列番号)

のようにCellsを使う。

【例】

 

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

【書式】

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

【例】

 

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

【書式】

Cells.Select

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

【書式】

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

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

３．条件分岐

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

【書式】

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

【例】

 

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

【書式】

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

【例】

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

【書式】

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

【例】

 

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

４．繰り返し

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

【書式】

【例】

 

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

【書式】

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

【例】

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

【書式】

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

【例】

 

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

【書式】

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

【例】

 

５．　乱数を生成する

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

【書式】

Rnd()

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

【書式】

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

【例】

 

以上です。