在本步驟，我們需要查看曾經(jīng)出過并保存的單據(jù)，直接查看數(shù)據(jù)表會比較凌亂，此時，得將數(shù)據(jù)按表單樣式重新復盤出來。
三：打開“物料表”，將G1單元格的文本顏色設置成與底色一樣，上面講過我們會在這個單元格里記錄“采購單”點擊后的行數(shù)，待會返回我們還得讀取這個單元格的行數(shù)回填內容，改成與底色一樣是為了不要那么難看，也為了不讓處女座的人看著想刪除。
1. 初打開這個表，是空白的，此時我們可以在第二行開始填入物料內容，序號不需要理會，它會自己填寫，直接從名稱開始填吧
直接從名稱規(guī)格填就可以，序號和插入那個符號都是自動填寫上去的，注意單價只能是純數(shù)字
2. 可以一直往下添加物料，點擊插入符號后，就會按照G1單元格的行號，將該行內容回填回“采購單”的相應行內
下面是我點擊后回填的，數(shù)量和單位要手動填
這一頁的代碼很簡單，在哪里輸入不用再說了吧
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'點擊有“《”插入符號的空格后觸發(fā)回填
If Target.Column = 6 And Target.Row > 2 And Target.Text = "《" Then
'單價不是純數(shù)字時，拋出異常
If IsNumeric(Cells(Target.Row, 4).Text) = False Then
MsgBox ("單價必須是有效數(shù)字")
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 "規(guī)格不能為空"
Range("f1").Select
Exit Sub
End If
'回填數(shù)據(jù)
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行以下時觸發(fā)事件
If Target.Column < 5 And Target.Row > 2 Then
r = Target.Row
If Application.WorksheetFunction.CountA(Rows(r)) <> 0 Then
Cells(Target.Row, 1).Value = Target.Row – 2 '自動填寫序號
Cells(Target.Row, 6).Value = "《" '自動填寫插入符號
End If
End If
End Sub
'----------------------------------------------------------------------
本文全部完結
好了，這篇文章的內容發(fā)貨聯(lián)盟就和大家分享到這里，如果大家網(wǎng)絡推廣引流創(chuàng)業(yè)感興趣，可以添加微信：80709525 備注：發(fā)貨聯(lián)盟引流學習； 我拉你進直播課程學習群，每周135晚上都是有實戰(zhàn)干貨的推廣引流技術課程免費分享！
