VBAたった3秒で新規シートを100シート作る方法【作業効率UP】

VBAを使えば、新規シートをたった3秒で100シート作成することができるようになる。

年単位でシートを作りたい場合など応用も可能。
今回はそんなVBAコードを紹介していきましょう。

新規シートを100シート作るVBAコード

Sub newSheetsAdd()

    Dim sheet_name As String
    sheet_name = InputBox("シートの名前は?", Title:="シート名の入力")
    
    If sheet_name = "" Then
        MsgBox "シート作成をキャンセルしました。"
        Exit Sub
    Else
        Dim make_sheets_number As Long
        make_sheets_number = InputBox("何枚分のシートを作りますか?", Title:="シートの枚数")
        
        If make_sheets_number = 0 Then
            MsgBox "シート作成をキャンセルしました。"
            Exit Sub
        End If
    End If
    
    Dim i As Long
    
    For i = 1 To make_sheets_number
        Sheets.Add.Name = sheet_name & i
    Next i

End Sub
  • 3~8行目...シートの名前を設定
  • 10~15行目...シートの枚数を選択
  • 21~23行目...新規シートの作成

ボタンを設置すればボタンを押すだけで新規シートの追加が可能。100シートが3秒で作成可能。

関連【VBA】業務効率化に便利なツール【まとめ】

事務作業を自動化してもっと"ラク"しませんか?

あなたの会社の事務作業...効率化してラクに。もっと重要な業務に集中できるようになります。

日々増えるルーティンの事務作業...
「この作業めんどくさい...」
「事務作業に時間をとられて他に集中できない...」

あなたの代わりにVBAを使ってパソコン業務を自動化。あなたはもっと価値のあることに時間を使うことができるため売上UP、ムダなコストの削減が期待できます。

また、作って終わりではなくつぎの3つのことを約束します。

  • しっかりドキュメント作成
  • きれいな見やすいコードでムダな工数カット
  • できるだけボタン1つポチッと押すだけで業務が完了

どんなにささいなめんどくさい事務作業でも相談してください。相談は無料です。
3年の業務効率化実績があるため、力になれるかもしれません。

※件名には「業務効率化の相談」と記載ください。できるだけ24時間以内に返信します。