用VBA制作进销存自动表全套

在VBA中，我们可以使用Excel的内置函数和一些自定义函数来制作进销存自动表。以下是一个简单的示例，展示了如何使用VBA创建一个基本的进销存表格。

首先，我们需要创建一个工作簿，并在其中添加一个工作表。在这个工作表中，我们将创建以下几个列：

1. 商品名称

2. 进货数量

3. 销售数量

4. 库存数量

5. 进货价格

6. 销售价格

7. 利润

接下来，我们将编写一些VBA代码来实现这些功能。

```vba

Sub CreateInventory()

Dim ws As Worksheet

Set ws = ThisWorkbook.Worksheets("Sheet1")

' 设置列标题

ws.Cells(1, 1).Value = "商品名称"

ws.Cells(1, 2).Value = "进货数量"

ws.Cells(1, 3).Value = "销售数量"

ws.Cells(1, 4).Value = "库存数量"

ws.Cells(1, 5).Value = "进货价格"

ws.Cells(1, 6).Value = "销售价格"

ws.Cells(1, 7).Value = "利润"

' 初始化数据

Dim i As Integer

For i = 2 To 100

ws.Cells(i + 1, 1).Value = InputBox("请输入第" & i & "个商品的进货数量", "进货")

ws.Cells(i + 1, 2).Value = InputBox("请输入第" & i & "个商品的销售数量", "销售")

ws.Cells(i + 1, 3).Value = InputBox("请输入第" & i & "个商品的库存数量", "库存")

ws.Cells(i + 1, 4).Value = InputBox("请输入第" & i & "个商品的进货价格", "进货")

ws.Cells(i + 1, 5).Value = InputBox("请输入第" & i & "个商品的销售价格", "销售")

ws.Cells(i + 1, 6).Value = InputBox("请输入第" & i & "个商品的销售数量", "销售")

ws.Cells(i + 1, 7).Value = (ws.Cells(i + 1, 6).Value
• ws.Cells(i + 1, 4).Value) * ws.Cells(i + 1, 5).Value

Next i

End Sub

```

这个代码会弹出一个输入框，让用户输入每个商品的进货数量、销售数量、库存数量、进货价格和销售价格。然后，它会计算每个商品的销售利润，并将结果存储在相应的单元格中。

要运行这个代码，只需双击工作簿中的"Sheet1"标签，或者在VBA编辑器中选择"插入" -> "模块"，然后将上述代码粘贴到模块中。然后，点击"运行"按钮，或者按F5键，即可看到进销存表格。