制作编程材料清单的步骤如下：
创建基础数据表
创建两个工作表：房间信息表（Sheet1）和材料标准表（Sheet2）。
房间信息表包含：房间编号、房间名称、面积、房间类型、装修风格。
材料标准表包含：材料类型、单位、每平米用量、单价、适用房型。
编写VBA代码
打开VBA编辑器（Alt+F11）。
插入新模块，输入以下代码：
```vba
vb Sub GenerateMaterialList（）
Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet
Dim lastRow1 As Long, lastRow2 As Long
Dim i As Long, j As Long
Dim roomArea As Double
Dim roomType As String
' 设置工作表引用
Set ws1 = ThisWorkbook.Sheets（"房间信息表"）
Set ws2 = ThisWorkbook.Sheets（"材料标准表"）
' 创建结果表
On Error Resume Next
ThisWorkbook.Sheets（"材料清单"）.Delete
On Error GoTo 0
Set ws3 = ThisWorkbook.Sheets.Add
' 填充结果表
lastRow3 = ws3.Cells（ws3.Rows.Count, 1）.End（xlUp）.Row + 1
For i = 2 To ws1.Cells（ws1.Rows.Count, 1）.End（xlUp）.Row
roomArea = ws1.Cells（i, 3）.Value
roomType = ws1.Cells（i, 4）.Value
For j = 2 To ws2.Cells（ws2.Rows.Count, 1）.End（xlUp）.Row
If ws2.Cells（j, 4）.Value = roomType Then
ws3.Cells（lastRow3, 1）.Value = ws1.Cells（i, 1）.Value
ws3.Cells（lastRow3, 2）.Value = ws1.Cells（i, 2）.Value
ws3.Cells（lastRow3, 3）.Value = roomArea * ws2.Cells（j, 2）.Value
ws3.Cells（lastRow3, 4）.Value = ws2.Cells（j, 3）.Value
ws3.Cells（lastRow3, 5）.Value = ws2.Cells（j, 4）.Value
lastRow3 = lastRow3 + 1
End If
Next j
Next i
End Sub
```
运行VBA代码
运行上述VBA代码，会在当前工作簿中生成一个名为“材料清单”的新工作表，其中包含根据房间信息表和材料标准表自动计算出的材料用量和单价。
通过以上步骤，你可以制作一个编程材料清单，该清单可以根据不同的房间类型和面积自动计算出所需的材料用量和单价。