VBAで表の作成・加工を自動化する方法を解説！

1. VBAとは？

VBA（Visual Basic for Applications）は、Microsoft Excelの作業を自動化できるプログラミング言語です。

✅ VBAを使うメリット

• 手作業の表作成を自動化し、作業時間を短縮！
• データの整理・加工を一瞬で処理！
• 入力ミスを防ぎ、業務の精度を向上！
• フォーマットを統一し、見やすい表を作成！

💡 VBAを活用すれば、業務効率が大幅にアップします！

2. VBAを使う準備（開発タブの有効化）

VBAを使用するには、まず**「開発」タブ**を有効化する必要があります。

📌 開発タブの表示方法

1. Excelを開く
2. 「ファイル」→「オプション」→「リボンのユーザー設定」
3. 「開発」タブにチェックを入れて「OK」を押す
4. 「開発」タブが表示される！

✅ これでVBAを使用する準備が整いました！

3. VBAエディター（VBE）の開き方

VBAのコードを書くには、VBAエディター（VBE）を開く必要があります。

📌 VBAエディターの開き方

1. 「開発」タブをクリック
2. 「Visual Basic」ボタンを押す
3. VBAエディター（VBE）が開く！

✅ VBAエディターが開いたら、コードを記述できます！

4. VBAで表を作成する方法

🔹 ① シンプルな表を自動作成

📌 5行×3列の表を作成する

Sub CreateTable()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    ws.Range("A1").Value = "商品名"
    ws.Range("B1").Value = "単価"
    ws.Range("C1").Value = "数量"
    
    Dim i As Integer
    For i = 2 To 6
        ws.Cells(i, 1).Value = "商品" & (i - 1)
        ws.Cells(i, 2).Value = 100 * (i - 1)
        ws.Cells(i, 3).Value = i * 2
    Next i
    
    ws.Range("A1:C1").Font.Bold = True
    ws.Range("A1:C6").Borders.LineStyle = xlContinuous
End Sub

✅ 実行すると、5行×3列の表が作成され、データが自動入力されます！

🔹 ② テーブル形式（リスト）に変換

📌 作成した表をExcelの「テーブル」に変換する

Sub ConvertToTable()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    Dim tbl As ListObject
    Set tbl = ws.ListObjects.Add(xlSrcRange, ws.Range("A1:C6"), , xlYes)
    tbl.Name = "商品リスト"
    tbl.TableStyle = "TableStyleMedium2"
End Sub

✅ 実行すると、表がExcelのテーブル形式になり、デザインが適用されます！

5. VBAで表を加工する方法

🔹 ③ セルの書式を変更する

📌 見やすい表を作るためにフォーマットを適用

Sub FormatTable()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    ws.Columns("A:C").AutoFit
    ws.Range("B2:B6").NumberFormat = "#,##0円"
    ws.Range("C2:C6").NumberFormat = "#,##0個"
    
    ws.Range("A1:C1").Interior.Color = RGB(200, 200, 250)
End Sub

✅ 実行すると、列幅が自動調整され、フォーマットが適用されます！

🔹 ④ 特定の条件でデータを変更する

📌 単価が500円以上のセルを赤色にする

Sub HighlightHighPrice()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    Dim rng As Range, cell As Range
    
    Set rng = ws.Range("B2:B6")
    
    For Each cell In rng
        If cell.Value >= 500 Then
            cell.Interior.Color = RGB(255, 100, 100)
        End If
    Next cell
End Sub

✅ 実行すると、単価が500円以上のセルが赤くなります！

6. VBAの活用例

✅ VBAで表を自動化するシーン

💡 VBAを活用すれば、Excel作業の効率を劇的に向上できます！

7. まとめ

✅ VBAを使えば、Excelの表作成・加工を簡単に自動化できる！ ✅ 表の作成、データ入力、フォーマット変更を一括処理！ ✅ 条件付き書式を活用すれば、データの可視化が容易に！ ✅ VBAを学んで、業務の効率を大幅に向上させよう！

💡 VBAを活用して、Excel作業をもっとスマートにしよう！🚀