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. 您将看到在新的工作表中生成了出库单,内容包括产品名称、出库数量、出库时间和经手人等。
需要注意的是,上述代码仅供参考,您需要根据实际情况进行修改和完善。在使用宏功能时,最好提前备份一下数据。
本网站文章仅供交流学习 ,不作为商用, 版权归属原作者,部分文章推送时未能及时与原作者取得联系,若来源标注错误或侵犯到您的权益烦请告知,我们将立即删除.