Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


11964 / 13645 ツリー ←次へ | 前へ→

【13061】ワークシートの挿入をsheet1から順に まこさん 04/4/22(木) 11:47 質問
【13067】Re:ワークシートの挿入をsheet1から順に つん 04/4/22(木) 12:33 回答
【13073】ありがとうございました。 まこさん 04/4/22(木) 13:04 お礼
【13072】Re:ワークシートの挿入をsheet1から順に Asaki 04/4/22(木) 12:55 回答
【13074】ありがとうございました。 まこさん 04/4/22(木) 13:06 お礼

【13061】ワークシートの挿入をsheet1から順に
質問  まこさん  - 04/4/22(木) 11:47 -

引用なし
パスワード
   ご覧いただきましてありがとうございます。
下のマクロでワークシートを挿入する際に「"work1"...."work55"」という名前を付けたいのですが。どうすればできるかご教授いただけませんか。よろしくお願いいたします。

Sub Macro1()
 For i = 1 To 55
  Sheets("重要備品").Select
  Sheets.Add
 Next i
End Sub

【13067】Re:ワークシートの挿入をsheet1から順に
回答  つん E-MAIL  - 04/4/22(木) 12:33 -

引用なし
パスワード
   まこさん さん、こんにちは。
>下のマクロでワークシートを挿入する際に「"work1"...."work55"」という名前を付けたいのですが。どうすればできるかご教授いただけませんか。よろしくお願いいたします。
>
>Sub Macro1()
> For i = 1 To 55
>  Sheets("重要備品").Select
>  Sheets.Add
> Next i
>End Sub

こんな感じではどうでしょうか?

Sub Macro1()

 Dim i As Long

 Sheets("重要備品").Select
  
 For i = 1 To 55
  Sheets.Add after:=ActiveSheet
  ActiveSheet.Name = "work" & i
 Next i
 
End Sub

Addで追加されると、そのシートがActiveになります。
これで、「重要備品」の後ろに、「work1」〜「work55」の
シートが順番に追加されます。

【13072】Re:ワークシートの挿入をsheet1から順に
回答  Asaki  - 04/4/22(木) 12:55 -

引用なし
パスワード
   こんにちは。

1行で!
って、あんまり意味ないですが。
Sub test()
  Dim i    As Long
  For i = 1 To 55
    Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "work" & i
  Next i
End Sub

【13073】ありがとうございました。
お礼  まこさん  - 04/4/22(木) 13:04 -

引用なし
パスワード
   つんさん こんにちは。
たいへん助かりました。ありがとうございました。
VBAのハンドブックなどで調べていたけどなかなか分かりませんでした。つい、すぐここのサイトに頼ってしまう(頼り癖)ので・・・。
ありがとうございました。

【13074】ありがとうございました。
お礼  まこさん  - 04/4/22(木) 13:06 -

引用なし
パスワード
   Asakiさん こんにちは。
早速ご教授いただきましてたいへん助かりました。
VBAのハンドブックなどで調べていたけどなかなか分かりませんでした。つい、すぐここのサイトに頼ってしまう(頼り癖)ので・・・。
ありがとうございました

11964 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free