BOM表展開追蹤系統

您好各位高手
目前想學習如何讓工作更加順暢
****想把BOM表展開為自動追料及提醒********排定工單
因難度太高
特來請益各位高手

若表格完成後，能跟我講述其它可以增進的方式，甚是開心
若有相關的需求也可以來信告訴我
我必有回應

附圖；附檔，請各位笑納

在排成狀況頁面，有2個想法
因排程是隨時更動的
是不是排程自動排序好後
我就剪下來貼到其他頁面去
這樣我就能隨時更改其內容及狀況

抑或各位有類似的排程系統
能分享與我呢?

感謝各位~

EXCEL 難題.jpg (302.36 KB)

表格內容

GO IT.rar (320.99 KB)

圖片+EXCEL

樓主熱帖

Cyssuc

n7822123

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

2^#

發表於 2020-6-18 02:16 | 只看該作者

本帖最後由 n7822123 於 2020-6-18 02:29 編輯

回復 1# Cyssuc

需求:
****想把BOM表展開為自動追料及提醒********排定工單

看不太懂你的起始欄位FU6怎麼來的，我設定H8欄位讓你填開始時間

Sub 填排程()
Dim CelStr As Range, Ri%, Arr, C%, WkD%, DayAdd%
Set CelStr = Rows(5).Find([H8], , xlValues, xlWhole)
[L6].Resize(4, 2000).ClearContents
CelStr(2) = "開始": CelStr(2).Select '開始日期
With Sheets("產品清單")
  Ri = .[B:B].Find([H6], , xlValues, xlWhole).Row
  Arr = Range(.Cells(Ri - 1, "E"), .Cells(Ri + 1, "D").End(2))
End With
For C = 1 To UBound(Arr, 2)
  WkD = Arr(3, C): DayAdd = 0
  Do Until WkD = 0
DayAdd = DayAdd + 1
   If CelStr(0, 1 + DayAdd) <> "S" Then WkD = WkD - 1
  Loop
  CelStr(2, 1 + DayAdd) = Arr(1, C)
  CelStr(3, 1 + DayAdd) = Arr(2, C)
  If C <> UBound(Arr, 2) Then
CelStr(4, 1 + DayAdd) = Arr(1, C + 1)
CelStr(5, 1 + DayAdd) = Arr(2, C + 1)
Set CelStr = CelStr(, 1 + DayAdd)
  End If
Next C
End Sub

排程範例VBA.rar (369.29 KB)

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP

Cyssuc