44本目 全テーブル一覧作成

VBA100本ノック 44本目を動画で解説しています。Excelの神髄さんの模範解答はコチラ

---

問題

#VBA100本ノック44本目
ブック内の全シート全テーブルについて、以下の情報をシートに出力してください。
・A列にテーブル名(テーブル1)
・B列にシート名(Sheet1)
・C列にセル範囲($B$2:$F$12)
・D列にリスト行数(10)
・E列にリスト列数(5)
※()内は画像の出力例
※対象ブック及び出力シートは任意

解答

Sub 全シート全テーブルの要素を出力()
    
    Dim ws出力先 As Worksheet
    Set ws出力先 = Sheets("出力先")
    ws出力先.Range("A1").CurrentRegion.Offset(1).ClearContents
    
    Dim ws As Worksheet
    Dim tb As ListObject
    Dim i As Long
    i = 2
    For Each ws In ThisWorkbook.Worksheets
        For Each tb In ws.ListObjects
            ws出力先.Cells(i, 1) = tb.Name
            ws出力先.Cells(i, 2) = ws.Name
            ws出力先.Cells(i, 3) = tb.Range.Address
            ws出力先.Cells(i, 4) = tb.ListRows.Count
            ws出力先.Cells(i, 5) = tb.ListColumns.Count
            i = i + 1
        Next
    Next
    
End Sub