依訂單資料轉換成六週排程表，敬請各位大大賜教!!!

帖子: 134
主題: 27
精華: 0
積分: 168
點名: 0
作業系統: WINXP
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
來自: 雲林
註冊時間: 2010-10-6
最後登錄: 2018-5-13

論壇贊助勳章

21^# 跳轉到 »

發表於 2012-5-8 22:35 | 只看該作者

小弟有延伸性問題想再請問版主,是否可依明細中的需求日期及數量，於Sheet2對應的欄位最後一欄秀出附件中希望的資料???

Book3.rar (16.21 KB)

帖子: 134
主題: 27
精華: 0
積分: 168
點名: 0
作業系統: WINXP
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
來自: 雲林
註冊時間: 2010-10-6
最後登錄: 2018-5-13

論壇贊助勳章

22^#

發表於 2012-5-8 23:03 | 只看該作者

感謝Hsieh版主，小弟會好好研究程式碼的，希望有朝一日自己也可靈活運用，另剛小弟提問的另一項功能，是否也可以巨集達成呢???

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 204
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-9-16

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

23^#

發表於 2012-5-8 23:29 | 只看該作者

回復 21# p6703

Sub Ex()
Dim A As Range, x#, y#
Set d = CreateObject("Scripting.Dictionary")
With Sheet2 's("Sheet2")
s = Application.Min(.Rows(1))
With Sheets("Sheet1")
n = Application.Max(.Columns("G:H")) - s + 6
For Each A In .Range(.[A2], .[A2].End(xlDown))
ReDim ar(0 To 1, 0 To n)
m = A & "," & A.Offset(, 1) & "," & A.Offset(, 2) '訂單、料號、項次為索引
If IsEmpty(d(m)) Then
GoTo 10
Else
For i = 0 To 1
For j = 0 To n
ar(i, j) = d(m)(i, j)
Next
Next
End If
10
x = A.Offset(, 6) - s + 6 '需求日
y = A.Offset(, 7) - s + 6 '交期
For i = 0 To 4
ar(0, i) = A.Offset(, IIf(i >= 3, i + 1, i))
Next
ar(0, 5) = "需求日"
ar(1, 5) = "交期"
If x > 0 Then ar(0, x) = ar(0, x) + A.Offset(, 3) '需求避免Sheet1內需求日無日期
If y > 0 Then ar(1, y) = A.Offset(, 3) '交期避免Sheet1內交期無日期
d(m) = ar
Erase ar
Next
End With
r = 2
For Each ky In d.keys
.Cells(r, 1).Resize(2, n + 1) = d(ky)
For i = 0 To 1
mystr = ""
Set Rng = .Range("G" & r).Offset(i).Resize(, n - 5)
If Application.CountA(Rng) > 0 Then
For Each A In Rng.SpecialCells(xlCellTypeConstants)
mystr = IIf(mystr = "", .Cells(1, A.Column).Text & "*" & A / 1000 & "K", mystr & "，" & .Cells(1, A.Column).Text & "*" & A / 1000 & "K")
Next
.Cells(r + i, "CF") = mystr
End If
Next
r = r + 2
Next
End With
End Sub

複製代碼

學海無涯_不恥下問

帖子: 134
主題: 27
精華: 0
積分: 168
點名: 0
作業系統: WINXP
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
來自: 雲林
註冊時間: 2010-10-6
最後登錄: 2018-5-13

論壇贊助勳章

24^#

發表於 2012-5-9 12:29 | 只看該作者

Hsieh版主你真的太神了，感謝你，小弟會好好先研究程式碼的，再次感謝!!!

帖子: 134
主題: 27
精華: 0
積分: 168
點名: 0
作業系統: WINXP
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
來自: 雲林
註冊時間: 2010-10-6
最後登錄: 2018-5-13

論壇贊助勳章

25^#

發表於 2012-7-4 13:33 | 只看該作者

Hsieh版主小弟又有問題請教，原Sheet2 F欄位需求日及交期需再增加一入庫列
但入庫此資料尚不會在Sheet1中，只是每筆訂單於排程表中變成固定要做成三列，請教巨集如何修改???

F欄位
需求日
交期
入庫

帖子: 134
主題: 27
精華: 0
積分: 168
點名: 0
作業系統: WINXP
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
來自: 雲林
註冊時間: 2010-10-6
最後登錄: 2018-5-13

論壇贊助勳章

26^# 倒序看帖

打印

字體大小: tT

發表於 2012-10-15 15:25 | 只看該作者

依訂單資料轉換成六週排程表，敬請各位大大賜教!!!

本次提問的問題，主要延續原以下的發帖內容，但因本次需求較為複雜，故特再另開一新話題，請教各位先進指教
http://forum.twbts.com/viewthrea ... a=pageD1&page=1

如附件中，加入之前Hsieh版主編寫的巨集，希望修改的地方：

1.原欄位由A~E增加至A~J欄位，除了J欄位是捉取其他的資料外，其餘均由Sheet1資料中截取得出

2.原一筆訂單由二列匯整而成，修改為3列（需求日、交期、實際出貨）

3.依輸入日期自動展出排程表六週日期（如附件，輸入10/1起捉取42天的日期，包含六日）

4.延伸第三點，將訂單資料判定僅將符合此期間之訂單資料捉入（符合需求日即需代入，例：需求日10/14，但交期回覆至11/20，則此筆捉入排程表中僅於10/14有列出其需求數；需求日一旦不符此日期範圍內，該筆訂單即不列入）

5.巨集執行排出排程表後，將Sheet1中有列入排程及無列入的再各存成一工作表（工作表名稱：有列入，無列入）

6.排程表巨集最後程式碼是小弟以土法練鋼方式將各排程表首列以巨集執行跑出後，再將對應的第二及第三列複製第一列的資料，再貼上值（因合併欄位無法篩選查看出該訂單資料，故小弟只能以上方法將一筆訂單變成三筆），程式碼是否可再修改???

本次修改之處較多，且往後仍有可能會有一些延伸的問題，希望各位大大能不吝賜交，在此先感謝各位....

排程表巨集.rar (16.17 KB)

帖子: 134
主題: 27
精華: 0
積分: 168
點名: 0
作業系統: WINXP
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
來自: 雲林
註冊時間: 2010-10-6
最後登錄: 2018-5-13

論壇贊助勳章

27^#

發表於 2012-10-17 23:49 | 只看該作者

小弟知道一次提了太多問題,還是針對各別問題請各位先進可解的可先不吝賜教,小弟在此先再道謝^^