ต้องการหาวันตัดเป้าของแต่ละขั้นงานในการผลิตด้วย VBA

[Plan800]

เรียนทุกท่าน
ผมมีโจทย์คือว่าผมต้องการหาวันตัดเป้าของแต่ละขั้นงานในการผลิตด้วย VBA โดยคิด Backward จากขั้นงานสุดท้ายของการผลิต ดังตัวอย่าง แต่ละขั้นงานมีleadtimeในการผลิตไม่เท่ากัน และจะไม่คิดวันเสาร์อาทิตย์และวันหยุดราชการมาเป็นวันทำงาน สุดท้าย ตำตอบจะได้ วันเริ่มต้นการผลิตและวันสิ้นสุดของการผลิตในแต่ละขั้นงานครับ
ขอบคุณครับ

[snasui]

กรณีต้องการใช้ VBA ให้เขียนมาก่อนเสมอครับ ติดตรงไหนก็ถามกันได้เรื่อย ๆ และช่วยบอกด้วยว่า Module ไหน Procedure ใด ทำงานไม่ถูกต้อง จะได้เข้าถึงปัญหาได้โดยไวครับ

[ChoBkuN]

อยากทราบเฉยๆครับว่า
ในตัวอย่างคำตอบ จำนวนวันทำงาน 2 วันทั้งหมด คืออะไรครับ

[Plan800]

เรียนอาจารย์
ผมลองเขียน วันทำงาน โดยตัดเอาวันเสาร์อาทิตย์และวันหยุดออก แล้ว มาหาวันที่มากที่สุดของเดือนนั้นนั้น มากคิดเป็นวันสุดท้ายของขั้นงานสุดท้าย แต่ผมเขียน code เลือช่วงcell ของแต่ละเดือนไม่ได้ครับ ตัวอย่าง

Sub workingday()
Dim AA As Date
Dim c As Integer
AA = Worksheets(1).Range("K2").Value

For i = 1 To 246
For c = 1 To 16
Worksheets(1).Range("K3").Value = Worksheets(1).Range("K" & 4 + c).Value
If AA = Worksheets(1).Range("K" & 4 + c).Value Then
AA = AA + 1
End If
Next c

If Weekday(AA) = 1 Then
AA = AA + 1
End If

If Weekday(AA) = 7 Then
AA = AA + 2
End If

For c = 1 To 16
Worksheets(1).Range("K3").Value = Worksheets(1).Range("K" & 4 + c).Value
If AA = Worksheets(1).Range("K" & 4 + c).Value Then
AA = AA + 1
End If
Next c

For c = 1 To 16
Worksheets(1).Range("K3").Value = Worksheets(1).Range("K" & 4 + c).Value
If AA = Worksheets(1).Range("K" & 4 + c).Value Then
AA = AA + 1
End If
Next c
Worksheets(1).Range("b" & 3 + i).Value = AA
AA = AA + 1
Next i
End Sub

Sub Target_Day()
Dim M_MAX As Date
Dim i As Integer
' 1. ËÒÇѹÊØ´·éÒ¢ͧà´×͹ã¹à´×͹¹Ñé¹¹Ñé¹ áÅéǹѺÂé͹¡ÅѺµÒÁ Leadtime
Worksheets("Control").Range("B:B").Select
'ËÒªèǧ Cell ·Õèà´×͹ à·èҡѹ à´×͹ 1 áÅéÇ àÅ×Í¡¢éÍÁÙÅáÅéÇËÒ¤èÒ Max Çѹ·ÕèÁÒ¡·ÕèÊØ´
For i = 1 To 24
'¼Áà¢Õ¹ µÃ§¹ÕéäÁèä´é¤ÃѺ



End Sub

[Plan800]

เรียน คุณChoBkuN
เป็นวันเริ่มต้นการผลิต และวันสิ้นสุดการผลิตของแต่ละขั้นงานในเดือนครับ เพราะว่าแต่ละขั้นงานเริ่มต้นไม่พร้อมกัน เนื่องจาก Leadtime ไม่เท่ากัน และขั้นงานW1 ต้องเริ่มต้นก่อน จากนั้น 2 วัน จึงเริ่มขั้นงาน W2 ได้ ไล่ไปเรื่อยจนถึง W6 ครับ

[ChoBkuN]

ถามเพิ่มอีกหน่อยครับ
w1 ไป w2 2 วัน
w2 ไป w3 น่าจะ 4 วัน หรือเปล่าครับ
เห็นในแนวคำตอบเป็น 2days ทุกอัน ?

[Plan800]

ครับถูกต้องแล้วครับ W1 ไป W2 ใช้เวลา 2 วัน ครับ W3 ไป W3 ใช้เวลา 4 วัน ครับ แล้วก็ไล่ไปเรื่อย จนจบ W6 ครับ

[snasui]

เรียนอาจารย์
ผมลองเขียน วันทำงาน โดยตัดเอาวันเสาร์อาทิตย์และวันหยุดออก แล้ว มาหาวันที่มากที่สุดของเดือนนั้นนั้น มากคิดเป็นวันสุดท้ายของขั้นงานสุดท้าย แต่ผมเขียน code เลือช่วงcell ของแต่ละเดือนไม่ได้ครั

ผมเขียน Code สำหรับหาวันสุดท้ายของแต่ละเดือนมาให้ ลองประยุกต์ดูครับ ติดตรงไหนสามารถถามมาได้เรื่อย ๆ ครับ

Code: Select all

Sub LastdateOfMonth()
    Dim i As Integer
    For i = 1 To 12
        MsgBox DateSerial(Year(Date), i + 1, 0)
    Next i
End Sub

[ChoBkuN]

W1 ครั้งต่อไปจะเริ่มเมื่อไหร่ครับ
เริ่มหลังจากที่ วันที่สิ้นสุดของ W1 หรือ + 1 วัน
หรือเริ่มหลังจากส่งมอบ W6 เสร็จ วันเริ่ม
หรืออย่างไรครับ