Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11984 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   つんさん　こんにちは。
たいへん助かりました。ありがとうございました。
ＶＢＡのハンドブックなどで調べていたけどなかなか分かりませんでした。つい、すぐここのサイトに頼ってしまう（頼り癖）ので・・・。
ありがとうございました。
【13074】ありがとうございました。
お礼  まこさん  - 04/4/22(木) 13:06 -
引用なし
パスワード
   Asakiさん　こんにちは。
早速ご教授いただきましてたいへん助かりました。
ＶＢＡのハンドブックなどで調べていたけどなかなか分かりませんでした。つい、すぐここのサイトに頼ってしまう（頼り癖）ので・・・。
ありがとうございました
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11984 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free