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

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

論壇贊助勳章

27^#

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

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

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

論壇贊助勳章

26^#

發表於 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

論壇贊助勳章

25^#

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

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

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

24^#

發表於 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

論壇贊助勳章

23^#

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

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

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

論壇贊助勳章

22^#

發表於 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

論壇贊助勳章

21^#

發表於 2012-5-3 21:38 | 只看該作者

真是太感謝Hsieh版主，解決了小弟的大問題，執行已可自動套出

如果小弟想再加入多一些的資料（例原只有訂單,料號,項次，想再增加客戶,規格...）==>已更新附件中，請問如何修改???

小弟有自己測試修改，但功力實在不足，改後還是無法套出正確資料，故煩請Hsieh版主幫忙

Book2.rar (16.01 KB)