Visual Basic For Applications Tips

ワークシートの追加・削除・コピー

ブックを指定したい場合は、Workbooks("ブック名").Sheets〜
アクティブなブックを指定したい場合は、ActiveWorkBook.Sheets〜
プロシジャが格納されているブックを指定したい場合、はThisWorkBook.Sheets〜

'ワークシートを追加
Sub SheetAdd1()
　　Sheets.Add
End Sub

'ワークシートを既存シートの末尾へ追加
Sub SheetAdd2()
　　Sheets.Add after:=Sheets(Sheets.Count)
End Sub

'ワークシートを既存シートの先頭へ追加
Sub SheetAdd3()
　　Sheets.Add before:=Sheets(1)
End Sub

'ワークシートを削除
Sub SheetDelete1()
　　Sheets("Sheet1").Delete
End Sub

'ワークシートを削除
Sub SheetDelete2()
　　Sheets("Sheet1").Select
　　ActiveWindow.SelectedSheets.Delete 'アクティブなシートの削除
End Sub

'Sheet2を既存シートの先頭へコピー
Sub SheetCopy1()
　　Sheets("Sheet2").Copy before:=Sheets(1)
End Sub

'Sheet2を既存シートの末尾へコピー
Sub SheetCopy2()
　　Sheets("Sheet2").Copy after:=Sheets(Sheets.Count)
End Sub