ＶＢＡ シート操作

質問

エクセル２００２使ってます。

ＶＢＡにて雛型のシートを２７枚コピーし、集計用のシートに入力されている名簿の名前の通りにシート名を変更したいと思い、式を組みました。

しかし、雛型のコピーまではできましたが、シート名を上手く変更できません。

シート名を変更したいシートは雛型(２)～雛型(２８)の名前で、ブックの一番左から並んでます。

これをシート名変更するにはどうすればいいでしょうか？

回答No.2

layy · ベストアンサー

追加でシートを作りそのタイミングでシート名変更、を２７回繰り返しする。
か、
シート作る繰り返しを２７回した後、シート名変更の繰り返しを２７回する。

式とは？。
上手く行かないとは？。

シート名を保持するプロパティーがわかればできそうな話だが？。

例えば、
３回目に追加したシートが３番目位置になってないからセル３番目の値で変更しても結果おかしくなる、とかロジックまで考えないといけない状態か？。

上手くいかない、だけではなんとも言えない。

お礼

説明不足でスミマセン。
現在携帯からしかログインできないのでＶＢＡの式載せられませんでした。

初めにシートを２７枚コピーした後に一括で名前を変更していく式を作ったのですが、名前変更の式で対象シートの指定をSheets(3)などのようにインデックスで指定したため上手くいかなかったみたいです。

シート名を指定する式に変えたところ上手くできました。

ご指摘ありがとうございました

回答No.1

imogasi

２８枚と言えばちょっと多数でプログラムで繰り回してシート名を設定することになろう。
現状在るこのブックのシートの特定は
（１）インデックス番号で
（２）名前で
（３）ＮｅｘｔやＰｒｅｖｉｏｕｓで。Ａｃｔｉｖｅｓｈｅｅｔで
しかないのだ。特に（１）と（２）だ。このへんをしっかり掴んでいますか？
対応が簡単なのは（１）だが、並び順に依存する、危険性がある。
これを我慢するなら、シートの２行目から設定したいシート名を順序を崩さず入力しておいて
例Ｓｈｅｅｔ１のＢ列にＢ２から、新シート名を
Sheet21
Sheet22
Sheet23
ーー
変更後シート名データのある、Ｓｈｅｅｔ１はタブ的に最左に置いておく
Sub test01()
Dim sh As Worksheet
i = 1
For Each sh In Worksheets
MsgBox sh.Index
If sh.Index <> 1 Then 'Sheet1の処理はしない
MsgBox sh.Name
sh.Name = Worksheets("Sheet1").Cells(i, "B")
End If
i = i + 1
Next
End Sub

お礼

間違えてベストアンサーにできませんでした。スミマセン。

今日、式を見直してみてなんとか名前変更できました。

初め(１)の方法でやっていたのを(２)にしてみたら上手くいきました。ありがとうございました。