| 内容 | 対象のシートを挿入 |
| 構文 | オブジェクト.Add |
| 例 | Worksheets.Add |
| 「sheet①」という名前のシートの左側に新シートを挿入 | |
|
Sub 左側に新シート挿入（） Worksheets("sheet①").Select Worksheets.Add End Sub |
| 内容 | 対象のシートを削除 |
| 構文 | オブジェクト.Delete |
| 例 | Worksheets.Delete |
| 「sheet①」という名前のシートを削除 | |
|
Sub シートを削除（） Worksheets("sheet①").Select ActiveSheets.Delete End Sub |
| 内容 | 対象シートを印刷プレビューで表示 |
| 構文 | オブジェクト.PrintPreview |
| 例 | Worksheets("sheet①").PrintPreview |
| 「sheet①」という名前のシートの印刷プレビュー表示 | |
|
Sub 印刷プレビュー（） Worksheets("sheet①").PrintPreview End Sub |
| 内容 | アクティブセルの位置、範囲を選択 |
| 構文 | Renge（"セル番地"） |
| 例 | Range("B5").Select |
| 「sheet①」という名前のシートの「B5」を選択 | |
|
Sub Sheet①B5を選択（） Worksheets("sheet①").Select Range("B5").select End Sub |
|
|
--------------------------------------------------------------------------------------------------------------------------------------------------- Range("C5,C8").Select |
|
|
「sheet①」という名前のシートの「C5とC8」を選択 |
|
|
Sub 2セル選択（） Worksheets("sheet①").Select Range("C5,C8").select End Sub |
|
|
--------------------------------------------------------------------------------------------------------------------------------------------------- Range("D5:F12").Select |
|
|
「sheet①」という名前のシートの「D5からF12」を範囲選択 |
|
|
Sub 範囲選択（） Worksheets("sheet①").Select Range("D5:F12").select End Sub |
| 内容 | 選択範囲の数式や文字をクリア |
| 構文 | オブジェクト.ClearContents |
| 例 | Range("B5").ClearContents |
| 「sheet①」という名前のシートの「B5」を消去 | |
|
Sub Sheet①B5を消去（） Worksheets("sheet①").Select Range("B5").ClearContents End Sub |
|
|
--------------------------------------------------------------------------------------------------------------------------------------------------- Range("C5,C8").ClearContents |
|
|
「sheet①」という名前のシートの「C5とC8」を消去 |
|
|
Sub 2セル消去（） Worksheets("sheet①").Select Range("C5,C8").ClearContents End Sub |
|
|
--------------------------------------------------------------------------------------------------------------------------------------------------- Range("D5:F12").ClearContents |
|
|
「sheet①」という名前のシートの「D5からF12」を消去 |
|
|
Sub 範囲消去（） Worksheets("sheet①").Select Range("D5:F12").ClearContents End Sub |
| 内容 | セルに値を設定 |
| 構文 | オブジェクト.Value＝セルの値 |
| 例 | Range("B5").Value＝1000 |
| 「sheet①」という名前のシートの「B5」に「1000」を設定 | |
|
Sub 値を1000（） Worksheets("sheet①").Select Range("B5").Value＝1000 End Sub |
|
|
--------------------------------------------------------------------------------------------------------------------------------------------------- Range("C5").Value＝”日本” |
|
|
「sheet①」という名前のシートの「C5」に「日本」を設定 |
|
|
Sub 値を日本（） Worksheets("sheet①").Select Range("C5").Value="日本" End Sub |
| 内容 | セルの位置を指定 |
| 構文 | オブジェクト.Offset(行番号,列番号) |
| 例 |
Range("A4").Select ActiveCell.Offset(3,2).Select |
| 「A4」から下へ3、右へ2のセル「C7」を選択 | |
|
Sub セル指定（） Worksheets("sheet①").Select Range("A4").Select ActiveCell.Offset(3,2).SelectEnd Sub |
|
|
--------------------------------------------------------------------------------------------------------------------------------------------------- Range("C12").Select ActiveCell.Offset(-5,-2).Select |
|
| 「C12」から上へ5、左へ2のセル「A7」を選択 | |
|
Sub セル指定（） Worksheets("sheet①").Select Range("C12").Select ActiveCell.Offset(-5,-2).SelectEnd Sub |
| 内容 | データの最後を指定する |
| 構文 | オブジェクト.End（方向） |
| 例 |
Range("A4").Select Selection.End(xlDown).Select |
| 「A4」から下へ最後のセルを選択 | |
|
Sub 下の最後選択（） Worksheets("sheet①").Select Range("A4").Select Selection.End(xlDown).Select End Sub |
|
|
--------------------------------------------------------------------------------------------------------------------------------------------------- Range("A4").Select Selection.End(xlToRight).Select |
|
|
「A4」から右へ最後のセルを選択 |
|
|
Sub 右の最後選択（） Worksheets("sheet①").Select Range("A4").Select Selection.End(xlToRight).Select End Sub |
|
|
--------------------------------------------------------------------------------------------------------------------------------------------------- Range("A4").Select Selection.End(xlDown).Select ActiveCell.Offset(1,0).Select |
|
|
「A4」から下へ最後のセルを選択 そこから下に1、右に0を選択 |
|
|
Sub 指定セル選択（） Worksheets("sheet①").Select Range("A4").Select Selection.End(xlDown).Select ActiveCell.Offset(1,0).SelectEnd Sub |
| 内容 |
オブジェクトの表示・非表示 「Shapes」はシート状のオブジェクト（図）を処理対象 「Visible」は図の表示、非表示の切替 |
| 構文 |
Shapes（"オブジェクト名"） オブジェクト.Visible＝設定値 |
| 例 | ActiveSheet.Shapes("写真").Visible=False |
| 挿入されている図を非表示 | |
|
Sub 写真を非表示（） Worksheets("sheet①").Select ActiveSheet.Shapes("写真").Visible=False End Sub |
|
|
--------------------------------------------------------------------------------------------------------------------------------------------------- ActiveSheet.Shapes("写真").Visible=True |
|
| 挿入されている図を表示 | |
|
Sub 写真を表示（） Worksheets("sheet①").Select ActiveSheet.Shapes("写真").Visible=True End Sub |
| 内容 | フィルター設定の解除 |
| 構文 | Selection.AutoFilter |
| 例 |
Renge("A4").Select
Selection.AutoFilter |
| A4に設定しているフィルターの解除 | |
|
Sub 抽出解除（） Renge("A4").Select Selection.AutoFilter End Sub |
| 内容 | 上書き保存 |
| 構文 | オブジェクト.Save |
| 例 | ActiveWorkbook.Save |
| 起動中のブックの上書き保存 | |
|
Sub 上書き（） ActiveWorkbook.Save End Sub |
| 内容 | Excel終了 |
| 構文 | オブジェクト.Quit |
| 例 | Application.Quit |
| 起動中のブックの終了 | |
|
Sub 終了（） Application.Quit End Sub |