Excel Forum

เรียน ท่านสมาชิกทุกท่าน
เนื่องจากต้องการกรองข้อมูลบางส่วนออกมาทำการคำนวณจากข้อมูลทั้งหมดที่มี โดยเงื่อนไขคือ เลือกข้อมูลตามวันที่ๆ ต้องการ แต่เมื่อทดลอง Run แล้วพบว่าข้อมูลถูกดึงมาจาก Sheet "Database" ทั้งหมด ไม่ได้ดึงมาเฉพาะวันที่เราระบุใน Sheet "Select_Data"
รบกวนท่านสมาชิกช่วยแนะนำวิธีแก้ไขด้วยค่ะ

ขอบคุณค่ะ

ข้อมูลในคอลัมน์ P ของชีต Database มีเวลาอยู่ด้วย การ Filter มาเฉพาะวันที่จึงมีโอกาสที่จะไม่ได้คำตอบสูงมากครับ

วิธีการแก้ไขแบบง่าย ๆ ทำตามด้านล่างครับ

1. ที่ชีต Database เซลล์ Q1 คีย์หัวคอลัมน์เป็นคำว่า Complete Date
2. ที่ชีต Database เซลล์ Q2 คีย์สูตร
   =INT(P2)
   Enter > Copy ลงด้านล่าง
3. ที่ชีต Select_date เซลล์ A1 คีย์ค่าเดียวกับข้อ 1 ให้ตรงกันทุกอักขระ
4. ปรับ Code เป็นด้านล่าง

   Code: Select all

   Sub Test()
       On Error Resume Next
       Sheets("Select_date").Range("A5").CurrentRegion.ClearContents
       Sheets("Database").Range("A1:Q1000").AdvancedFilter Action:=xlFilterCopy, _
           CriteriaRange:=Sheets("Select_Date").Range("A1:A2"), _
           CopyToRange:=Sheets("Select_Date").Range("A5"), Unique:=False
   End Sub

เรียน อาจารย์
ข้อมูลในคอลัมน์ P ของชีต Database คือข้อมูลที่ Export ออกมาจากโปรแกรมค่ะ จะมีเวลาด้วยเสมอ ซึ่งเวลาที่ปรากฏเป็นเวลาที่พนักงานทำงานจริงไม่สามารถตัดเวลาออกไปได้เนื่องจากข้อมูลนี้เอาไว้คำนวณ Productivity/Hour ของพนักงานค่ะ

และได้ทดลองแก้ไขตามที่อาจารย์แนะนำแล้วแต่ปรากฏว่าได้ข้อมูลมาแต่ชื่อคอลัมน์ค่ะ รบกวนอาจารย์ช่วยแนะนำอีกครั้งค่ะ

อ่านที่ผมตอบไปใหม่อีกรอบ ทั้งหมดมี 4 ข้อยังทำไม่ครบครับ

เรียน อาจารย์
ทำได้แล้วค่ะ ขอบคุณอาจารย์มากค่ะ