接着上一步的繼續來更新,上一步設定了入庫單和出庫單的選擇錄入問題
下面來說一下 入庫單和出庫單的資料儲存轉移問題
在 入庫單和出庫單分别插入兩個按鈕,然後再子產品裡寫入一下代碼
Sub 入庫單錄入()
a = Sheet3.Range("a65536").End(xlUp).Row
If Sheet3.Range("b2") = "" Then
MsgBox "請選擇錄入供應商名稱!"
Exit Sub
End If
If a < 4 Then
MsgBox "請錄入資料後,再點選錄入按鈕!"
Exit Sub
Else
For c = 4 To a
b = Sheet5.Range("b65536").End(xlUp).Row + 1
Sheet5.Cells(b, 1) = b - 2
Sheet5.Cells(b, 2) = Sheet3.Cells(c, 2)
Sheet5.Cells(b, 3) = Sheet3.Cells(c, 3)
Sheet5.Cells(b, 4) = Sheet3.Cells(c, 4)
Sheet5.Cells(b, 5) = Sheet3.Cells(c, 5)
Sheet5.Cells(b, 6) = "入庫"
Sheet5.Cells(b, 7) = Sheet3.Range("b2")
Sheet5.Cells(b, 8) = Sheet3.Range("e2")
Next
End If
MsgBox "提取資料成功!"
Sheet3.Range("A4:E16").ClearContents
End Sub
Sub 出庫單錄入()
a = Sheet4.Range("a65536").End(xlUp).Row
If Sheet4.Range("b2") = "" Then
MsgBox "請選擇領料工廠中的房間名稱!"
Exit Sub
End If
If a < 4 Then
MsgBox "請錄入資料後,再點選錄入按鈕!"
Exit Sub
Else
For c = 4 To a
b = Sheet5.Range("b65536").End(xlUp).Row + 1
Sheet5.Cells(b, 1) = b - 2
Sheet5.Cells(b, 2) = Sheet4.Cells(c, 2)
Sheet5.Cells(b, 3) = Sheet4.Cells(c, 3)
Sheet5.Cells(b, 4) = Sheet4.Cells(c, 4)
Sheet5.Cells(b, 5) = Sheet4.Cells(c, 5)
Sheet5.Cells(b, 6) = "出庫"
Sheet5.Cells(b, 7) = Sheet4.Range("b2")
Sheet5.Cells(b, 8) = Sheet4.Range("e2")
Next
End If
MsgBox "提取資料成功!"
Sheet4.Range("A4:E16").ClearContents
End Sub
然後根據宏的名字選擇對應的。這個是入庫單和出庫單的儲存問題,
隻是簡單的糾錯,沒有做更嚴謹的糾錯,有問題的小夥伴入門之後可以自己研究下
![](https://img.laitimes.com/img/__Qf2AjLwojIjJCLyojI0JCLiYWan5iZzMjYhlTZxcjZxIDZlRjZ5MGMjNGOjVWY2cTY3ETZk9CX0JXZ252bj91Ztl2Lc52YucWbp5GZzNmLn9Gbi1yZtl2Lc9CX6MHc0RHaiojIsJye.gif)
2018-12-11 14:41 上傳
點選檔案名下載下傳附件
45.81 KB, 下載下傳次數: 456