Excel VBA質問箱 IV

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

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


68208 / 76734 ←次へ | 前へ→

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

【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 お礼

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