主页 > 财务问答 > 淘丁企服

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

55 2024-02-19 10:40

您可以使用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%
相关评论
我要评论
点击我更换图片

热点提要

网站地图 (共183个专题99975篇文章)

返回首页