EXCEL内に多数のシートを作成した場合
シートの一覧を抽出しメニューを作成する
'サンプルソース
Private Sub CommandButton1_Click()
Dim objSheet As Object
Dim intLoop As Integer
intLoop = ActiveCell.Row
For Each objSheet In ActiveWorkbook.Sheets
ActiveWorkbook.ActiveSheet.Cells(intLoop, ActiveCell.Column).Value = objSheet.Name
intLoop = intLoop + 1
Next
End Sub
三井住友銀行グループのプロミス
シートの一覧を抽出しメニューを作成する
'サンプルソース
Private Sub CommandButton1_Click()
Dim objSheet As Object
Dim intLoop As Integer
intLoop = ActiveCell.Row
For Each objSheet In ActiveWorkbook.Sheets
ActiveWorkbook.ActiveSheet.Cells(intLoop, ActiveCell.Column).Value = objSheet.Name
intLoop = intLoop + 1
Next
End Sub
三井住友銀行グループのプロミス