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