在本步骤，我们需要查看曾经出过并保存的单据ꦿ，直接查看数据表会比较凌乱，此时，得将数据按♋表单样式重新复盘出来。
三：打开“物料表”，将G1单元格的文本颜色设置成与底色一样，上面讲过我们会在这个单元格里记录“采购单”点击后的行数，待会返回我们还得读取这个单元格的行数回填内容，改成与底色一样是🅠为了不要那么难看，也为了不让处女座的人看着想删除。
1. 初打开这个表，是空白的，此时我们可以在第二行开🎶始填入物料内容，序号不需要理会，它会自己填写，直接从名称开始填吧
直接从名称规格填就可以，序号和插入那个符号都是自动填写上去的，注意单价只能是纯数字
2. 可以一直往下添加物料，点击插入符号后，就会按照G1单元格的行号，💎将该行内容ꦇ回填回“采购单”的相应行内
下面是我点击后回填的，数量和单位要手动填
这一页的代码很简单，在哪里输入不用再说了吧
Private Sub Worksheet_SelectionChange(ByVal Target As꧑ Range)
'点击有“《”插入符号的空格后触发回填
If Target.Column = 6 And Target.Row > 2 And Target.Text = "《" Then
'单价不是纯数字时，抛出异常
If IsNumer𒐪ic(Ceღlls(Target.Row, 4).Text) = False Then
MsgBox ("单价必须是有效数字")
Range("f1").Select
Exit Sub
End If
If Cells(Target.Row, 2).Value = "" Then
MsgBox "名称不能为空"
Range("f1").Select
Exit Sub
End If
If Cells(Target.Row, 3).Value = "" Then
MsgBox "规格不能为空"
Range("f1").Select
Exit Sub
End If
'回填数据
If CInt(Range("g1")) > 0 Then
Sheets("采购单").Cells(Range("g1"), 2).Value = Cells(Target.Row, 2)
Sheets("采购单").Cells(Range("g1"), 3).Value = Cells(Target.Row, 3)
Sheets("采购单").Cells(Range("g1"), 6).Value = Cells(Target.Row, 4)
Sheets("采购单").Cells(Range("g1"), 8).Value = Cells(Target.Row, 5)
If CInt(Range("g1")) < 17 Then
Sheets("采购单").Cells(Range("g1") + 1, 2).Value = "以下空白"
End If
Range("g1") = ""
Range("f1").Select
Sheets("采购单").Select
End If
End If
'当捕捉到点击了“物料”表的第5列第2行以下时触发事件
If Target.Column < 5 And Target.Row >♐ 2 Then
r = Target.Row
If Application.WorksheetFunction.CountA(Rows(r)) &꧋lt;> 0 Then
Cells(Target.Row, 1).Value = Target.Row – 2 '自动填写序号
Cells(Target.Row, 6).Value = "《" '自动填写插入符号
End If
End If
End Sub
'----------------------------------------------------------------------
本文全部完结
好了，这篇文章的内容发货联盟就和大家分享到这里，如果大家网络推广引流创业感兴趣，可以添加微信：80709525 备注：发货联盟引流学习； 我拉你进直播课程学习群，每周135晚上都是有实战干货的推广引流技术课程免费分享！
