任意数だけシートを追加

自分的には非常に便利だと思っているが、よく考えるとあまり役に立たないマクロを。
複数枚シートを追加したい場合などがあると思うが、そんなときに使ってみる。

Sub 任意枚数シートの追加()
 Dim mySnum As Integer
  mySnum = Application.InputBox("枚数を入力", Type:=1)
    If mySnum = False Then
     Exit Sub
    Else
     Worksheets.Add after:=Sheets(Sheets.Count), Count:=mySnum
    End If
End Sub

このマクロを実行すると、下図のようなダイアログが表示されるので、任意数だけ入力すると
その数だけシートが追加される。もっともシート末尾にだが。
シート数100枚ぐらいは大丈夫じゃないかな?試したことはないが・・・
e0080122_17321777.gif

[PR]
by slayer0210 | 2006-01-08 17:33 | マクロ


<< シート名を検索 末尾シートの削除 >>