excel销售清单如何自动生成出库单？

您可以使用Excel的宏功能（Macro）来自动生成出库单。以下是具体步骤：

1. 在Excel的工具栏中，点击“开发工具”，然后点击“Visual Basic”打开Visual Basic编辑器。

2. 在VB编辑器中，选择“工具”-“引用”将“Microsoft Excel xx.x 对象库”和“Microsoft Forms 2.0 对象库”勾选上，然后在模块中输入以下代码（代码中的Sheet1是你销售清单所在的工作表名，Sheet2是你要生成出库单的工作表名，你可以根据实际情况进行修改）：

```

Public Sub CreateOutboundOrder()

Dim i As Integer

Dim j As Integer

Dim k As Integer

Dim m As Integer

Dim strOrder As String

For i = 2 To Sheet1.UsedRange.Rows.Count

If Sheet1.Range("A" & i).Value <> "" Then

strOrder = strOrder & Sheet1.Range("A" & i).Value & " "

strOrder = strOrder & Sheet1.Range("B" & i).Value & " "

strOrder = strOrder & Sheet1.Range("C" & i).Value & " "

strOrder = strOrder & Sheet1.Range("D" & i).Value & " "

strOrder = strOrder & Sheet1.Range("E" & i).Value & vbCrLf

End If

Next i

Sheet2.Range("A2:Z200").ClearContents

Sheet2.Range("A2").Value = "产品名称"

Sheet2.Range("B2").Value = "出库数量"

Sheet2.Range("C2").Value = "出库时间"

Sheet2.Range("D2").Value = "经手人"

k = 3

m = 0

For i = 2 To Sheet1.UsedRange.Rows.Count

If Sheet1.Range("A" & i).Value <> "" Then

For j = 1 To Sheet1.Range("E" & i).Value

Sheet2.Range("A" & k).Value = Sheet1.Range("B" & i).Value

Sheet2.Range("B" & k).Value = 1

Sheet2.Range("C" & k).Value = Now()

Sheet2.Range("D" & k).Value = "John"

k = k + 1

m = m + 1

Next j

End If

Next i

Sheet2.Range("F1").Value = "共" & m & "件商品出库"

End Sub

```

3. 返回Excel窗口，然后新建一个工作表作为出库单。点击“开发工具”中的“宏”按钮，选择“CreateOutboundOrder”宏，然后点击运行。

4. 您将看到在新的工作表中生成了出库单，内容包括产品名称、出库数量、出库时间和经手人等。

需要注意的是，上述代码仅供参考，您需要根据实际情况进行修改和完善。在使用宏功能时，最好提前备份一下数据。

顶一下

(0)

0%

踩一下

(0)

0%