White Tiger

Microsoft Excel VBA - ワークシート一覧をリストボックスに追加する方法

◆概要

このページは、Excel VBAでワークシート一覧をリストボックスに追加する方法について記載しています。

◆内容

UserFormを表示し、そのリストボックスにブックに含まれるすべてのワークシートを追加します。そして、リストボックスに表示されたワークシートをクリックすると、そのワークシートを表示するようにできます。

◆Sample

UserFormにリストとコマンドボタンを追加します。

標準モジュール

Sub formshow()

    On Error GoTo Err_frmShow

    Dim i As Integer
    For i = 1 To Worksheets.Count               'シート数分処理する
        If Worksheets(i).Name <> "sheet1" Then  'シート名がSheet1ならば表示しない
            UserForm1.ListBox1.AddItem (Worksheets(i).Name)
        End If
    Next i
    UserForm1.Show

Err_frmShow:
    Exit Sub
    
End Sub

フォームのモジュール

Private Sub CommandButton1_Click()
    Unload Me
End Sub

Private Sub ListBox1_Click()
    Index = ListBox1.ListIndex  'ワークシートリストの選択された位置
    Buf = ListBox1.List(Index)  'ワークシート名を取得
    Worksheets(Buf).Activate
End Sub

◆実行結果

ワークシート名をクリックすると、そのワークシートが表示される

Link