มีสูตรเอาวันที่ที่บันทึกจากเครื่องไม๊ครับ

[prawitj]

พอดี ผม สร้าง Sharing folder โดยที่ ทาง หน่วยงาน f&i ซึ่งเป็นประตูด่านแรกในการรับ PO และนำมา Key ลง Excel และให้ ทาง SA Copy มาแปะใน File PO ของตนเอง ซึ่งมี Column เหมือนกันทุกประการ แต่ที่ไม่สร้าง Pivot ดึงมาเลยเพราะบาง Column นั้น ทาง F&I ไม่ได้เป็นคนกรอกแต่ให้ SA กรอก ครับ ผมเคยใช้ Vlookup ดึงปรากฏว่าไม่ Work เพราะมันช้ามาก ในการทำงาน เลย ให้ Copy เอา แต่มันจะมี บาง Column เช่น วันที่ Finance ผ่าน (Mark สีเหลืองไว้ใน Column AB นะครับ) ซึ่งมันจะไม่ทราบในตอนแรก ต้องรอ Finance Firm มาก่อน แต่ทาง SA ต้องเอาข้อมูล PO มาเตรียม Booking รถแล้ว ผมเลยแก้ปัญหาด้วยการดึง Pivot ไป ที่ File ของ SA แทน แล้วค่อย Vlookup ใน Pivot โดยให้เค้า Update ก่อนและดึงแค่ไม่กี่ Column เลยแก้ปัญหาความช้าลงไป
แต่มีโจทย์เพิ่มครับคือ ทาง SA เค้าจะจัดรถให้กับ Finance ที่ Firm แล้ว โดยอยากดึงตามวันที่ ทำงาน โดยแสดง เฉพาะ Record ตามวันที่ หน่วยงาน F&I มากรอก เช่น Finance อาจจะ Firm มาวันที่ 5/10/2011 10 รายการ แต่ F&I อาจจะมากรอก วันที่ 6/10/2011 ทั้ง 10 รายการก็เป็นได้ ทาง SA เวลาจะมาปล่อยรถ ก็อยากดึงแค่ส่วนเพิ่มที่ F&i มากรอกในวันทำงานวันที่ 6/10

ตอนแรกจะสร้าง Column เพิ่มให้ F&I กรอกว่า มาใส่วันที่ Finance firm วันไหน แต่ลองสอบถามดู ทาง หน่วยงาน F&I ไม่อยากกรอก เพราะ Column ที่กรอกเยอะแล้ว กลัวจะหลุด ครับ ซึ่งผมก็กลัว เพราะถ้า F&I ลืมกรอกบางคัน รถคันที่ Finance firm แล้วลืมกรอก วันที่ เอาวันที่ Finance firm มากรอกด้วย จะถูกลืมทันที่ ครับ อาจารย์พอจะมีวิธีช่วยไม๊ครับ

[prawitj]

แต่ปัญหาคือ ต้องเป็นวันที่ใส่วันที่ Finance Firm ครั้งแรกเท่านั้น ด้วย ยากเหมือนกันแฮะ

[snasui]

ตอนนี้ขอเงื่อนไขหลัก ๆ ว่าเมื่อกรอกค่าไหนแล้วให้นำวันที่มาวางและวางในคอลัมน์ไหนครับ และวันที่นั้นนำมาจากไหน ตัดเรื่อง Process ของงานออกไปก่อนครับ

[prawitj]

กรอกวันที่ผ่าน (Column AD) ครับ แล้วให้ขึ้น Column CH ครับ (คงต้องเอาไปต่อท้ายแหละครับ)

ปล.ขออภัยครับหายไปนาน พอดี

[snasui]

คอลัมน์ CH นำข้อมูลจากคอลัมน์ไหนมากรอกแบบอัตโนมัติครับ

[prawitj]

เอาวัน- เวลาจากเครื่อง มาลงช่อง CH ครับ ณ ตอนที่ใส่ข้อมูลครั้งแรกในช่อง AD

[snasui]

กดแป้น Alt+F11 > เพื่อเปิดหน้าต่าง VBE > นำ Code ด้านล่างไปวางในชีท PO แล้วลอง คีย์เปลี่ยนแปลงข้อมูลในคอลัมน์ AD ดูครับ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 30 Then
    Target.Offset(0, 56) = Now
End If
End Sub

[prawitj]

ขอบคุณมากครับ ได้แล้วววววว