Excel VBA質問箱 IV

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

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


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

24634 / 76738

←次へ　｜　前へ→


	【57452】ワークシートを自動選択するには

若葉まーくん

- 08/8/24(日) 13:53 -


	引用なし

	パスワード

シート名というシートを作成しておいて

　　A 　B 　C 　D
１　あ
２　い
３　う
４　え
５　お
６

Dim i As Integer
Sheets("シート名").Select
Range("a1").Select
Set ab = ActiveSheet
For i = 1 To 15
If Sheets("シート名").Cells(i, 1).Value = "" Then Exit For
ActiveWorkbook.Worksheets.Add.Name = ab.Range("A" & i)
Next

でシート名を自動で付けて自動でシートを追加が出来ましたが
シートを自動で選択する方法が分かりません。

Sheets("あ").Select
Sheets("い").Select

で選択できるのですが
シート数が増えると大変です。
各シートの作業内容が同じなので自動で選択して同じ作業はしたいです。
自動で選択する方法を誰か教えてください。

1 hits

▼

【57452】ワークシートを自動選択するには 若葉まーくん 08/8/24(日) 13:53

≪