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