Excel Forum

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

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

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

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