MicrosoftExcelでVBAを使用してシート名を取得する方法

表示されている、つまり非表示になっていないシートのすべての名前を取得できる方法を見つけたい場合。

この記事では、VBAコードを使用して、表示されているシートの名前のみを取得する方法を学習します。

質問）：1つのファイルに複数のシートがあり、他の人に見られたくないシートを非表示にしました。表示されているすべてのシートの名前を教えてくれるコードが必要です。

5枚のシートがあり、特定のシートを意図的に非表示にしたとします。

表示されているシートの名前を取得するには、次の手順に従う必要があります。

[開発者]タブをクリックします。[コード]グループから、[VisualBasic]を選択します

img1

以下のコードを標準モジュールにコピーします

Sub VisibleSheets（）

Dim i As Integer、j As Integer：j = 1

Cells（1、1）.CurrentRegion.Cells.Clear

For i = 1 To Sheets.Count

If Sheets（i）.Visible = -1 Then

Cells（j、1）= Sheets（i）.Name

j = j + 1

終了If

次へ

サブの終了

===

img2

  • 初めてコードを実行すると、現在のシートのすべてのシートの名前が列Aに表示されます

img3

  • Janシートを非表示にすると、次のシート名のリストが表示されます

img4

このようにして、vbaコードを使用して、表示されているすべてのシートの名前を取得できます。

image 4