EXCEL VBA テーブル作成・テーブル解除・設定の方法

EXCEL VBA テーブル作成・テーブル解除・設定の方法（ListObjectsｺﾚｸｼｮﾝのAddﾒｿﾞｯﾄ）

EXCEL VBA テーブル作成・設定の方法・セル範囲のテーブル化（ListObjectsｺﾚｸｼｮﾝのAddﾒｿﾞｯﾄ）

Sub テーブル設定1()

    Dim ws01 As Worksheet

    Set ws01 = Worksheets("品名リスト") 'シート名（”品目リスト”）⇒　Ws01にセット


    ws01.ListObjects.Add(Source:=Range("A2").CurrentRegion).Name = "品目テーブル"
    'テーブルを設定します。セルA2から始まるテーブルを設定（定義）：テーブル名を品目テーブル
               
End Sub

EXCEL VBA テーブル作成・テーブル書式・設定の方法（デザインの設定・変更：TableStyle）

Sub テーブル設定2()  'デザイン選択
    
    Dim i As Long
    
    
    On Error GoTo Err_Shori  'テーブルを設定していない場合は、↓処理でエラーが発生するので「Err_Shori」へ飛ぶ

    ActiveSheet.ListObjects(1).Unlist  'テーブルを設定している場合は、テーブル解除
    
Err_Shori:


    Cells.ClearFormats  'シートの背景色と書式をクリアー
    

    ActiveSheet.ListObjects.Add(Source:=Range("A2").CurrentRegion).Name = "品目テーブル"  'セルA2から始まるテーブルを設定（定義）：テーブル名を「品目テーブル」
    
        
        
    'テーブルのデザインを選択（順番に表示します）
    
    For i = 1 To 28  'TableStyleMediumのデザインは、１～２８までの種類（デザイン）があります。
    
        ActiveSheet.ListObjects("品目テーブル").TableStyle = "TableStyleMedium" & i  'テーブルデザイン（書式）を設定します。
        
        MsgBox "このデザインは「TableStyleMedium" & i & "」です"
        
    Next i

End Sub

EXCEL VBA テーブル作成（他のシートからデータを収集しテーブルを作成・再設定）

Sub テーブル設定03() '他のシートから集計しテーブルを再設定

    Dim ws01, ws02, ws03 As Worksheet
    Dim i As Integer
    Set ws01 = Worksheets("集計") 'シート名（"集計"）⇒　Ws01にセット
    Set ws02 = Worksheets("東京支店") 'シート名（"東京支店"）⇒　Ws02にセット
    Set ws03 = Worksheets("大阪支店")  'シート名（"大阪支店"）⇒　Ws03にセット
    

    On Error GoTo Err_Shori  'テーブルを設定していない場合は、↓処理でエラーが発生するので「Err_Shori」へ飛ぶ

    ws01.ListObjects(1).Unlist  'テーブルを設定している場合は、テーブル解除
    
Err_Shori:

    ws01.Cells.Clear 'シート（集計）をクリアー

    ws02.Range("A1:F1").Copy '東京支店１行目の見出しをコピー
    ws01.Range("A1").PasteSpecial Paste:=xlPasteValues  'シート（集計）に見出しを貼り付け

    For i = 2 To Worksheets.Count  'シートNo.２：東京支店⇒最後のシート　大阪支店までループ
    
        Worksheets(i).Range("A1").CurrentRegion.Offset(1).Copy  'シートの内容コピー
        ws01.Cells(Rows.Count, "A").End(xlUp).Offset(1).PasteSpecial xlPasteValues
                                  'シート「集計」にデータの最終行に貼り付ける（文字列のみ）

    Next i

    ws01.ListObjects.Add(Source:=Range("A1").CurrentRegion).Name = "集計テーブル"
                'シート「集計」に各シートから集めたデータをテーブル設定します。

End Sub

EXCEL VBA テーブルの設定を削除（作成したテーブルを解除）

Sub テーブル解除()

    On Error GoTo Err_Shori    '既にテーブル解除している場合エラーが発生するので、エラー処理

    ActiveSheet.ListObjects(1).Unlist  'テーブルを解除
    
    Exit Sub  'テーブル解除したので終了

Err_Shori:

    MsgBox "解除済み"
        
End Sub