BAを使って部品表を作成する方法について説明します。以下の手順に従って実行してください。

1. Excelで新しいワークブックを作成します。
2. シート1に部品のリストを入力します。部品番号、部品名、数量、単価、合計金額の列を用意します。
3. シート2に部品表を作成するための雛形を作成します。雛形には、部品表の見出し、各列の幅、書式などが含まれます。
4. VBAエディタを開き、シート1に以下のコードを入力します。

Sub CreatePartsList()
    Dim PartNumber As Range
    Dim PartName As Range
    Dim Quantity As Range
    Dim Price As Range
    Dim TotalPrice As Range
    Dim i As Integer
    Dim j As Integer
    
    ' 部品表を作成するシートを選択
    Sheets("Sheet2").Select
    
    ' 部品表の見出しを設定
    Range("A1").Value = "部品番号"
    Range("B1").Value = "部品名"
    Range("C1").Value = "数量"
    Range("D1").Value = "単価"
    Range("E1").Value = "合計金額"
    
    ' 列の幅を調整
    Columns("A:E").AutoFit
    
    ' 部品リストの最後の行を取得
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    ' 部品リストのデータを部品表にコピー
    For i = 2 To lastRow
        Set PartNumber = Range("A" & i)
        Set PartName = Range("B" & i)
        Set Quantity = Range("C" & i)
        Set Price = Range("D" & i)
        Set TotalPrice = Range("E" & i)
        
        ' 部品番号、部品名、数量、単価、合計金額を部品表にコピー
        Range("A" & i).Value = PartNumber.Value
        Range("B" & i).Value = PartName.Value
        Range("C" & i).Value = Quantity.Value
        Range("D" & i).Value = Price.Value
        Range("E" & i).Value = Quantity.Value * Price.Value
        
        ' 合計金額の列を書式設定
        Range("E2:E" & lastRow).NumberFormat = "#,##0"
    Next i
End Sub

1. 上記のコードを実行するために、VBAエディタから「実行」を選択します。部品表が作成されます。

以上が、VBAを使って部品表を作成する方法です。部品リストに変更があった場合は、シート2に部品表を再作成するために、コードを再度実行してください。