Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

68212 / 76738

←次へ　｜　前へ→


	【13067】Re:ワークシートの挿入をsheet1から順に

つん

- 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」の
シートが順番に追加されます。

0 hits

▼

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