Addメソッドは4つの引数を持ち、これらを使うことでシートを挿入するブック内の位置や枚数を指定することができます。

＜Addメソッドの引数＞--------------------
Before ：指定したワークシートの前に追加する。
After ：指定したワークシートの後ろに追加する。
Count ：追加するシートの枚数を指定する
Type ：シートのタイプを指定する
--------------------------------------

Addメソッドで追加したワークシートは、自動的にアクティブなワークシートになります。
また、Worksheetオブジェクトが追加されることになりますので、Setステートメントを使用してオブジェクト変数に格納することで、Worksheetオブジェクトの各プロパティやメソッドを使用することができます。

【属性】 メソッド
【所属オブジェクト】 Worksheetsコレクション
【操作対象オブジェクト】 Worksheetsコレクション

＜記述例＞
Worksheets.Add
Worksheets.Add(After:=Worksheets("Sheet2"))
Set NewWS = Worksheets.Add
Worksheets.Add Count:=3

　

＜使用例 ブック名を指定してシートを追加する＞
Workbooks("Book1.xls").Worksheets.Add

＜使用例 ワークシートSheet2の後ろにシートを追加＞
ActiveWorkbook.Worksheets.Add After:=Worksheets("Sheet2")

＜使用例 3数のシートを一度に追加する＞
Worksheets.Add Count:=3

＜応用例 ワークシートを1枚追加しシート名の変更などを行う＞
Sub シートの追加とプロパティ操作()
    Dim NewWS As Worksheet

    Set NewWS = Worksheets.Add(After:=Worksheets("Sheet3"))

    With NewWS
        .Name = "追加シート"
        .Columns.ColumnWidth = 20
    End With
End Sub

＜応用例 ワークシートを3枚連続で追加しシート名を設定する＞
Sub 3枚連続追加しシート名を設定()
    Dim NewWS As Worksheet

    For i = 1 To 3
        Set NewWS = Worksheets.Add(After:=Worksheets("Sheet3"))
        NewWS.Name = "追加シート" & i
    Next
End Sub

【属性】 メソッド
【所属オブジェクト】 Worksheetオブジェクト
【操作対象オブジェクト】 Worksheetオブジェクト

＜記述例＞
Activesheet.Delete
Worksheets("追加シート").Delete
　

また、コピー元とコピー先が違うブックの場合は、それぞれブック名を付けてワークシートを指定します。

【属性】 メソッド
【所属オブジェクト】 Worksheetオブジェクト
【操作対象オブジェクト】 Worksheetオブジェクト

＜記述例＞
Worksheets("Sheet1").Copy
Worksheets("Sheet1").Copy After:=Worksheets("Sheet3")

＜使用例 ブック間のワークシートコピー＞
Workbooks("99-03.xls").Worksheets("Sheet1").Copy _
After:=Workbooks("Book4.xls").Worksheets("Sheet2")

引数「Before」「After」を省略すると、新しいブックが作成されてそこにワークシートがコピーされます。

＜使用例 新しいブックを作成しそこにワークシートSheet1をコピーする＞
Worksheets("Sheet1").Copy
　

設定したオートフィルタは、矢印ボタンを押すことで、リスト表示する項目を自由に選べるようになります。


オートフィルタを設定したセル範囲。

これらは、AutoFilterメソッドに用意されている4つの引数を使うことで、コードからオートフィルタを操作することができます。

＜AutoFilterメソッドの引数＞-----------------------------

Field ：フィルタの対象となるフィールド番号。オートフィルタを設定したセル範囲の列番号のことで、一番左端が「1」になる

Criteria1 ：抽出条件となる文字列を設定する。「"="」で空白セルの抽出、「"<>"」で空白以外のセルを抽出する。省略すると抽出条件はALLとなりすべての値を表示することになる。
引数「Operator」に「xlTop10Items」を指定した場合は、ここには表示する項目数(たとえば "10")を指定する

Operator ：あらかじめ設定されている抽出条件を定数でセットする。使用できる定数は次の通り。
xlAnd、 xlBottom10Items、 xlBottom10Percent、
xlOr、 xlTop10Items、 xlTop10Percent

Criteria2 ：2番目の抽出条件を設定する。この場合、引数「Operator」に「xlAnd」と「xlOr」を使うことで、「Criteria1」と「 Criteria2」を組み合わせて複合抽出条件を指定できる
--------------------------------------------------------

【属性】 メソッド
【所属オブジェクト】 Worksheet
【操作対象オブジェクト】 Range

＜記述例＞
Selection.AutoFilter
Worksheets("Sheet1").Range("A5").AutoFilter _
field:=4, Criteria1:="116%"

＜使用例 セル範囲「A5:D22」のデータにオートフィルタを設定する＞
Sub オートフィルタの設定()
    Worksheets("Sheet1").Range("A5:D22").Select
    Selection.AutoFilter
End Sub

＜使用例 第四フィールドの値116%のものだけを表示＞
Sub オートフィルタの操作1()
    Worksheets("Sheet1").Range("A5").AutoFilter _
    field:=4, Criteria1:="116%"
End Sub

まず、操作対象のオブジェクトに、オートフィルタを設定したセル範囲の先頭のセル番地を指定します。

Worksheets("Sheet1").Range("A5").AutoFilter

次に、引数「field」に抽出したいデータがある列を、セル範囲の左から数えた数字で指定します。ここでは、「平年比」はセル範囲の4番目の列になりますので、「4」を指定します。

field:=4

そして、引数「Criteria1」に、抽出条件である「116%」を文字列で指定します。

Criteria1:="116%"

これで、「平年比」が「116%」のセルだけがオートフィルタによって抽出され、リスト表示されます。


「平年比116%」の値を抽出条件に設定

【属性】 メソッド
【所属オブジェクト】 Worksheet
【操作対象オブジェクト】 Worksheet

＜記述例＞
Worksheets("Sheet1").ShowAllData

＜使用例 フィールド2に「トップテン」抽出を行う＞
Sub オートフィルタの操作2()
    With Worksheets("Sheet1")
        .ShowAllData
        .Range("A5").AutoFilter field:=2, Criteria1:=10, _
        Operator:=xlTop10Items
    End With
End Sub

最初のShowAllDataメソッドで「すべて表示」になります。

With Worksheets("Sheet1")
.ShowAllData

そして、改めて引数「field」に「2」をセットし、「Operator」に「xlTop10Items」をセットしてAutoFilterメソッドを実行すれば、列「合計」の「トップテン」が表示されます。

.Range("A5").AutoFilter field:=2, Criteria1:=10, _
Operator:=xlTop10Items