Filter Criteria1 เฉพาะวัน ด้วย vba

[Totem]

เรียนอาจารย์และเพื่อนสมาชิก

ต้องการให้หาเฉพาะวันเท่านั้น ช่วยปรับ code ให้ด้วยครับ

Code: Select all

.AutoFilter
        .AutoFilter Field:=2, Criteria1:= ต้องการหาเฉพาะวันเท่านั้นครับ?

format ท่ี่ให้ในช่องcall นั้นเป็น วัน เดือน ปี dd/mm/yy เช่น 1/3/60


ขอบคุณครับ

[puriwutpokin]

ให้กรองเฉพาะวันที่ ปรับเป็น

Code: Select all

.AutoFilter
        .AutoFilter Field:=2, Criteria1:=">1/1/1900"

[Totem]

ตัวอย่างเช่นถ้าต้องการ วันที่ 1โดยไม่ได้สนใจเดือน และปี ปกติถ้าไม่ใช่vba เราจะติ๊กเครื่องหมายถูก วันที่ 01 ก็จะได้ วันที่ 1 ครับ
พอมาใช้vba หาข้อมูลวันที่เพียงอย่างเดียวได้ไหมครับ เพราะจะได้ไม่ต้องปรับ เดือน กับ ปี พ.ศ.ครับ

[snasui]

ลองบันทึก Macro ดูว่าหากกรองเฉพาะวันที่ 1 แล้วโปรแกรมสร้าง Code มาเป็นแบบใด ให้ปรับ Code นั้นไปใช้ต่อ

ควรแนบไฟล์มาด้วยเพื่อสะดวกในการทดสอบครับ

[Totem]

ลองบันทึก Macro ดูว่าหากกรองเฉพาะวันที่ 1 แล้วโปรแกรมสร้าง Code มาเป็นแบบใด ให้ปรับ Code นั้นไปใช้ต่อ

ควรแนบไฟล์มาด้วยเพื่อสะดวกในการทดสอบครับ

ได้ลองบันทึก Macro แล้วครับ

Code: Select all

Sub Macro1()
'
' Macro1 áÁâ¤Ã
'

'
    Range("A1:B1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$B$19").AutoFilter Field:=2, Operator:= _
        xlFilterValues, Criteria2:=Array(2, "3/1/2017")
End Sub

ถ้าใส่ Criteria2:=Array(2, "3/1/2017") ก็ได้คำตอบ เมื่อเรากำหนดวันเดือนปีที่แน่นอนลงไป

แต่สิ่งที่ต้องการ จะอธิบายดังนี้
1. เป็นรายงานประจำเดือน ทำการ filter ข้อมูล ในแต่ละวัน เมื่อได้วันที่ต้องการแล้ว
2. คัดลอกวันที่ต้องการ สร้าง sheet ไปเรื่อย เช่น วันที่ 1 ไปวางต่อใน sheet 1...n (วัน) จนครบทุกวัน ในแต่ละชีท

ขั้นตอน ข้อ 2 ทำได้ไม่มีปัญหา
แต่ติดตรง ข้อที่ 1 หากผมทำตาม Criteria2:=Array(2, "3/1/2017") ก็จะต้องแก้ไขทุกครั้ง ซึ่งไม่สะดวก
อาจารย์หรือเพื่อนสมาชิกพอจะปรับ code ได้ไหมครับ ขอบคุณครับ

filter day.xlsm

(14.11 KiB) Downloaded 24 times

[snasui]

ตัวอย่างการใช้ Advanced Filter เข้ามาช่วยครับ

1. สร้างรายการวันที่แบบไม่ซ้ำที่คอลัมน์ G สร้างครั้งเดียวหลังจากมีการเพิ่มหรือลดข้อมูลในคอลัมน์ A:B

   Code: Select all

   Sub Macro2()
       Range("B1:B19").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
           "G1"), Unique:=True
   End Sub
   

2. คอลัมน์ E ใช้เป็น Criteria โดยที่ E1 คีย์สูตร =G1 เพื่อนำค่าใน G1 มาแสดง
3. จากนั้นปรับ Code เดิมให้วนลูปเพื่อจะนำค่าในคอลัมน์ G มาใส่ใน E2 แล้วทำการ Filter ไปจนครบทุกค่า หากต้องการจะนำค่าหลังจากที่ Filter ได้แล้วไปใช้ ให้เขียน Code เพิ่มภายใน Loop ครับ

   Code: Select all

   Sub Macro1()
       Dim rall As Range, r As Range
       Set rall = Range("g2").Resize(10000, 1).SpecialCells( _
           xlCellTypeConstants)
       For Each r In rall
           Range("e2").Value = r.Value
           Application.CutCopyMode = False
           Range("A1:B19").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
               Range("E1:E2"), Unique:=False
       Next r
   End Sub

[Totem]

ขอบคุณครับ ปรับไปใช้ได้แล้วครับ

[lotto009]

เวลาลำบากเพือ่จะมาเขียน vbaผมจะมาหาโพสเก่าๆเสมอ ที่นี้เป็นที่พึ่งสำหรับผมมากเลยครับ
ขอบคุณอาจาร์ยมาก
อาร์ต

[charoen1968]

ขอบคุณมากเลยครับ อาจารย์ผมรอดแล้ว กำลังติดปัญหานี้อยู่พอดีเลย