－ちょっと使えるネタを紹介－
Excel VBAで、シート名の一覧を取得するには、シートをループして「.Name」を使うとできます。シート名の一覧を取得して、配列に格納したり、シートに入力したりできます。シート名の一覧を取得する方法について、マスターしていきましょう。
この記事では、シート一覧を取得する方法について、ご紹介します。
シート一覧を取得するには、シートをループして、「.Name」を使うとできます。
シート一覧を取得して、配列に格納したり、シートに入力したりすることができます。
シート一覧の取得方法について、マスターしていきましょう。
では、シート一覧を取得する方法について、解説していきます。
この記事を読むメリット
目次から見たい項目へ移動すると便利ですよ。
目次
シート名の一覧を取得してみます。
シートをループして、「.Name」でシート名を取得することで、一覧を取得することができます。
Sub TEST1()
'シート一覧を取得
For i = 1 To Sheets.Count
Debug.Print Sheets(i).Name
Next
End Sub
では、実行してみます。
シート一覧を取得してみます。
実行すると、シート一覧を取得できます。
シート一覧を取得できました。
「For Each」を使う方法で、シートをループして、シート名の一覧を取得することもできます。
Sub TEST2()
Dim A
'シート一覧を取得
For Each A In Sheets
Debug.Print A.Name
Next
End Sub
では、実行してみます。
「For Each」を使って、シート一覧を取得してみます。
実行すると、シート一覧を取得できます。
シート一覧を取得できました。
シート名の一覧を配列に入力してみます。
配列に入力できれば、編集や加工がやりやすくなるので、便利です。
配列にシート名の一覧を格納してみます。
という手順になります。
VBAコードは、次のようになります。
Sub TEST3() Dim A 'シート数分の配列を作成 ReDim A(1 To Sheets.Count) 'シート一覧を配列に格納 For i = 1 To Sheets.Count A(i) = Sheets(i).Name Next End Sub
では、実行してみます。
シート一覧を配列に格納してみます。
実行すると、シート一覧を配列に格納できます。
シート一覧を配列に格納できました。
新規シートを追加して、シート名の一覧を入力してみます。
という手順になります。
VBAコードは、次のようになります。
Sub TEST4() Dim A 'シート数分だけ配列を作成 ReDim A(1 To Sheets.Count) 'シート一覧を配列に格納 For i = 1 To Sheets.Count A(i) = Sheets(i).Name Next 'シートを作成 Sheets.Add before:=Sheets(1) ActiveSheet.Name = "シート一覧" 'シート名を変更 '追加したシートに、シート一覧を入力 Range("A1").Resize(UBound(A)) = WorksheetFunction.Transpose(A) End Sub
では、実行してみます。
シート一覧を、シートを追加して入力してみます。
実行すると、シート一覧を、シートに入力できます。
シート一覧を、シートに入力できました。
この記事では、シート一覧を取得する方法について、ご紹介しました。
シート一覧を取得するには、シートをループして、「.Name」を使うとできます。
シート一覧を取得して、配列に格納したり、シートに入力したりすることができます。
シート一覧の取得方法について、マスターしていきましょう。
参考になればと思います。最後までご覧くださいまして、ありがとうございました。
関連する記事から探す
カテゴリから見たい項目を探すと便利ですよ。
↓キーワードを入力する