在编程中选择多种物料，通常涉及到创建一个能够列出和选择不同物料的程序。以下是一个基于Microsoft Excel VBA的示例，展示了如何创建一个采购申请单，其中包含物料选择的功能。
创建物料主数据表
打开Excel，创建一个新的工作表，命名为“物料主数据”。
在该工作表中，输入以下列标题：物料编码、物料名称、规格型号、单位。
创建采购申请单
创建一个新的工作表，命名为“采购申请单”。
在该工作表中，输入以下列标题：申请日期、物料编码、物料名称、数量、单位、备注。
为“申请日期”列设置日期格式。
```vba
Sub 创建采购申请单（）
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Integer
Dim materialCode As String
Dim materialName As String
Dim quantity As Double
Dim unit As String
' 创建采购申请单工作表
Set ws = ThisWorkbook.Sheets.Add
ws.Name = "采购申请单"
' 设置表头
With ws
.Cells（1, 1）.Value = "申请日期"
.Cells（1, 2）.Value = "物料编码"
.Cells（1, 3）.Value = "物料名称"
.Cells（1, 4）.Value = "数量"
.Cells（1, 5）.Value = "单位"
.Cells（1, 6）.Value = "备注"
End With
' 查找物料主数据中的最后一行
lastRow = ThisWorkbook.Sheets（"物料主数据"）.Cells（Rows.Count, "A"）.End（xlUp）.Row
' 循环遍历物料主数据并添加到采购申请单
For i = 2 To lastRow
materialCode = ThisWorkbook.Sheets（"物料主数据"）.Cells（i, 1）.Value
materialName = ThisWorkbook.Sheets（"物料主数据"）.Cells（i, 2）.Value
unit = ThisWorkbook.Sheets（"物料主数据"）.Cells（i, 4）.Value
' 在采购申请单中添加一行
With ws
.Cells（i + 1, 1）.Value = Date
.Cells（i + 1, 2）.Value = materialCode
.Cells（i + 1, 3）.Value = materialName
.Cells（i + 1, 4）.Value = 1 ' 假设数量为1，可以根据需要修改
.Cells（i + 1, 5）.Value = unit
.Cells（i + 1, 6）.Value = ""
End With
Next i
End Sub
```
建议
数据验证：在实际的应用程序中，你可能需要为“物料编码”添加数据验证，以确保用户只能选择有效的物料。
错误处理：在实际应用中，应该添加适当的错误处理，以应对数据输入错误或其他异常情况。
用户界面：如果需要更复杂的用户界面，可以考虑使用Excel的表单控件或VBA的UserForm来创建更友好的界面。
通过上述步骤和代码示例，你可以创建一个基本的采购申请单，并允许用户从物料主数据中选择多种物料进行申请。