メッセージBOXを出す

'メッセージBOXを表示

MsgBox"メッセージ"

'タイトル付きのメッセージBOXを表示

MsgBox"メッセージ",0,"タイトル"

'タイトル付き、再試行、キャンセルの選択肢付きのメッセージBOXを表示

ans = MsgBox"メッセージ",5,"タイトル"

'タイトル付き、はい、いいえの選択肢付きのメッセージBOXを表示

ans = MsgBox"メッセージ",4,"タイトル"

'タイトル付き、はい、いいえ、キャンセルの選択肢付きのメッセージBOXを表示

ans = MsgBox"メッセージ",3,"タイトル"

'タイトル付き、中止、再試行、無視の選択肢付きのメッセージBOXを表示

ans = MsgBox"メッセージ",2,"タイトル"

'タイトル付き、OK、キャンセルの選択肢付きのメッセージBOXを表示

ans = MsgBox"メッセージ",1,"タイトル"

'タイトル付き、OKのみ　選択肢付きのメッセージBOXを表示

ans = MsgBox"メッセージ",0,"タイトル"

条件によって処理を変える

'『条件』に合致したか否かで処理を変える

If 『条件』 Then

『条件』に合致した場合の処理

Else

『条件』に合致しなかった場合の処理

End If

繰り返し処理

'変数i が、xになるまで、『処理』を繰り返す

Do

『処理』

i = i+1

Loop Until i=x

'『条件』を満たすまで『処理』を繰り返す

Do

『処理』

Loop Until 『条件』

'変数i が、xからzまで『処理』を繰り返す

For i = x To z

 『処理』

Next

'（おまけ）変数iを定義する

Dim i

セルの相対参照

'セル（単一）から下へx行,右へy列移動したセルを選択

Range("セル").Offset(x,y).Select

'セル（範囲）から下へx行,右へy列移動したセル範囲を選択

Range("セル1:セル2").Offset(x,y).Select

入力されたセルの端まで移動

'上端へ移動

End(xlUp)

'下端へ移動

End(xlDown)

'右端へ移動

End(xlToRight)

'左端へ移動

End(xlToLeft)

セルを選択

'セル（一つのセル）を選択

Range("セル").Select

'セル（セル1～セル2)の範囲を選択

Range("セル1:セル2").Select

'セル（セル1とセル2)の複数を選択

Range("セル1,セル2").Select

'セル（上からx行目,左からy列目）を選択

Cells(x,y).Select

'セル（全て）を選択

Cells.Select

シートを選択

'シート（任意）を選択

Sheets("シート").Select