Excel 備忘録

【 シート一覧表示】⇒【選択したシートへ移動】

 のマクロ

'■モジュール側
'シート一覧
Sub SheetView()
  UserForm2.Show
End Sub


'■ユーザフォーム側
'初期設定
Private Sub UserForm_Initialize()

  Dim Sh As Object
    
    With ListView1
        .View = lvwReport           ''表示
        .LabelEdit = lvwManual      ''ラベルの編集
       ' .AllowColumnReorder = True  ''列幅の変更を許可
        .FullRowSelect = True       ''行全体を選択
        .Gridlines = True             ''グリッド線
        .ColumnHeaders.Add , "_Name", "シート名一覧", 306
    End With
    
    For Each Sh In ActiveWorkbook.Sheets
        With ListView1
            .ListItems.Add Text:=Sh.Name
        End With
    Next Sh

End Sub

 

'ListView 行ダブルクリック処理

Private Sub ListView1_DblClick()

    Dim fSelectValue As String    

    fSelectValue = ListView1.SelectedItem

    ActiveWorkbook.Worksheets(fSelectValue).Activate

    'Unload UserForm2

    UserForm2.Hide

End Sub