質問

Excel VBA　シート名をすべて取得し、一覧をシートに入力したい

質問者：noname#101292
投稿日時：2007/02/05 18:07

Excelで、トップのシートに、
他のシート名をすべて取得しセルに入力したいと思っています。
VBAを使って、それをワンボタンでやるようにできないかなと
思ったのですが、コードがうまく書けません。

ヒントいただけたらうれしいです。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (4件)

No.4

回答者：hana-hana3
回答日時：2007/02/07 22:50

＞ここでのIndexの使われ方がよくわかりませんでしたので、

通常は下記のようにするのが一般的かも知れません。
変数(i)を使ってカウンターを作って記入行を設定（カウントアップ）しますが、代わりに Index で得られる数値（シート番号）を利用しただけです。

Sub test()
Dim ws As Worksheet
Dim i as Integer
i=0
For Each ws In Worksheets
i=i+1
Cells(i, 1) = ws.Name
Next
End Sub

＃２さんは、For 文で N をカウントアップしていますが、For Each 文ではそのようなカウンター無いので、自前でカウンターを用意する事になります。
その代わり、指定されたオブジェクトを順々に指定の変数に受け取って高速に処理する事が出来ます。

質問者のみ
この回答にお礼をつける

通報する

No.3ベストアンサー20pt

回答者：hana-hana3
回答日時：2007/02/05 18:47

ヒントではなくて、回答の一つかも。
コードは自分で読んでみて下さい。

Sub test()
Dim ws As Worksheet
For Each ws In Worksheets
Cells(ws.Index, 1) = ws.Name
Next
End Sub

この回答へのお礼

ありがとうございます。

参考にさせていただきました。

ただ、・・・申し訳ないのですが、調べてみても
ここでのIndexの使われ方がよくわかりませんでしたので、
ご教示くださると幸いです。

通報する

No.2ベストアンサー10pt

回答者：Nayuta_X
回答日時：2007/02/05 18:43

ヒントです。(限りなく回答に近い)

Sub TEST()

For N = 1 To Worksheets.Count
Open_Sheet = Worksheets(N).Name
Range("A1").Offset(N, 0).Value = Open_Sheet
Next N
End Sub