1. よねさんのExcelとWordの使い方 » 
2. エクセル2010基本講座：目次 » 
3. シートの操作 » 
4. ワークシートの追加と削除

エクセル2010基本講座：ワークシートの追加と削除

ワークシートを自動で追加したい　　　　　　　topへ

• 月ごとにシートを作成したいときなど、複数のシートを一気に作成(追加)したいときがあります。
  手作業でシートの追加を行って、さらにシート名を変更するとなると結構面倒な作業になります。
• ここではVBAで　1月〜12月　のシートを一気に作成したいと思います。
  • コードの例

    Sub Sample01() 　　Dim i As Integer 　　For i = 1 To 12 　　　　Worksheets.Add After:=ActiveSheet 　　　　ActiveSheet.Name = i & "月" 　　Next i End Sub

  • 実行後の状態
    下図はSheet1がアクティブな状態で実行しましたので、Sheet1とShet2の間に　1月〜12月　のシートが追加されました。
    
• シート名を指定して追加したいときは?
  • コードの例

    Sub Sample02() 　　Dim i As Integer 　　Dim ShName As Variant 　　　　ShName = Array("福岡県", "佐賀県", "長崎県", "熊本県", "大分県", "宮崎県", "鹿児島県") 　　　　For i = LBound(ShName) To UBound(ShName) 　　　　　　Worksheets.Add After:=ActiveSheet 　　　　　　ActiveSheet.Name = ShName(i) 　　　　Next i End Sub

  • 実行後の状態
    下図はSheet1がアクティブな状態で実行しました。
    
• VBAでのワークシートの操作方法は　Excel VBA入門：ワークシートを操作する　をご覧ください。