采購單表格圖片文檔,采購單表格圖片最新?

在本步驟,我們需要查看曾經出過并保存的單據,直接查看數據表會比較凌亂,此時,得將數據按表單樣式重新復盤出來。

三:打開“物料表”,將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)干貨的推廣引流技術課程免費分享!


版權聲明:本文內容由互聯網用戶自發(fā)貢獻,該文觀點僅代表作者本人。本站僅提供信息存儲空間服務,不擁有所有權,不承擔相關法律責任。如發(fā)現本站有涉嫌抄襲侵權/違法違規(guī)的內容, 請發(fā)送郵件至 sumchina520@foxmail.com 舉報,一經查實,本站將立刻刪除。

您可能還會喜歡:

發(fā)表評論

◎歡迎參與討論,請在這里發(fā)表您的看法、交流您的觀點。