ExcelのVBAでシート名を指定してシートを挿入（追加）したい。

変数の値をSheet名にしてシートを追加したいのですが、どのようにしたらいいのでしょうか？

No.1 ベストアンサー 回答者： imogasi 回答日時： 2002/11/12 12:37

Sub test01()

Dim a As String
a = Range("a1")
a = "合計表3"
Workbooks("book1").Worksheets.Add
x = Worksheets.Count
MsgBox x
Workbooks("book1").Worksheets(x).Name = a
End Sub
aはどちらか採用してください。
MsgBox xは不用になれば削除して下さい。
まずSheetを１つ増やして、名前を好きなものに
変更すると言うイメージです。「好きな名前のシート
を作る」というイメージに囚われて、かって私もつまずきました。
それはSheetsコレクションに、Createなどするのでなく、
Addするという考えにあるようです。

この回答へのお礼

はい、無事出来ました。

ありがとうございました。

お礼日時：2002/11/12 13:06

No.3 回答者： kazuhiko5681 回答日時： 2002/11/12 12:55

初めまして。

次のようにするとシートを追加し、変数にシート名を代入することができます。

(１).ワークシートを１枚挿入する。
workbook("ブック名.xls").worksheets.add
(２).ワークシートを指定したシートの右側に１枚挿入する。
workbooks("ブック名.xls").worksjeets.add after:=worksheets("入れたいシート名")
(３).ワークシートを今ある最終シートの右側に１枚挿入する。
workbooks("ブック名.xls").worksjeets.add after:=workbooks("ブック名.xls").worksheets.count

シートを複数枚挿入する。
ワークシートを指定したシートの右側に１枚挿入する。
workbooks("ブック名.xls").worksjeets.add after:=worksheets("入れたいシート名"), count:=入れたいシート枚数
workbooks("ブック名.xls").worksjeets.add after:=workbooks("ブック名.xls").worksheets.count, count:=入れたいシート枚数

次にシート名を挿入します。
Activesheet.Name = "入れたいシート名"

変数にシート名を代入します。
変数=Active sjeet.name

もし、もう変数にシート名が代入されているのであれば、
Activesheet.Name = 変数
でシート名をつけることができます。

お試しになってみて下さい。

この回答へのお礼

はい、無事出来ました。

ありがとうございました。

お礼日時：2002/11/12 13:07

No.2 回答者： taknt 回答日時： 2002/11/12 12:39

Worksheets.Add.Name =変数の値

としたら どうでしょうか？

この回答へのお礼

はい、無事出来ました。

ありがとうございました。

お礼日時：2002/11/12 13:06