'メッセージBOXを表示 MsgBox"メッセージ" 'タイトル付きのメッセージBOXを表示 MsgBox"メッセージ",0,"タイトル" 'タイトル付き、再試行、キャンセルの選択肢付きのメッセージBOXを表示 ans = MsgBox"メッセージ",5,"タイトル" 'タイトル付き、はい、いいえ…

'『条件』に合致したか否かで処理を変える 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を定…

'セル（単一）から下へx行,右へy列移動したセルを選択 Range("セル").Offset(x,y).Select 'セル（範囲）から下へx行,右へy列移動したセル範囲を選択 Range("セル1:セル2").Offset(x,y).Select