Snasui Excel Forum

Sub AdvancedFilterData()
    Range("$A$3:$E$300").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("$G$2:$G$3"), Unique:=False
End Sub

Sub ShowDataAll()
    ActiveSheet.ShowAllData
End Sub

:D ไฟล์ในกระทู้นั้นมี Code ตามด้านล่างอยู่ด้วยครับ
[code]Sub AdvancedFilterData()
Range("$A$3:$E$300").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("$G$2:$G$3"), Unique:=False
End Sub

Sub ShowDataAll()
ActiveSheet.ShowAllData
End Sub
[/code]
จาก[quote="ekkaluk_suk"][code]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Range("A1").Address = "$B$4" And Target.Range("A1") <> "" Then
AdvancedFilterData
ElseIf Target.Range("A1").Address = "$B$4" And Target.Range("A1") = "" Then
ShowDataAll
End If
End Sub[/code]

ขอความหมายหน่อยครับ ลองมา Run ที่ file ของผมแล้วมัน error เพราะดูที่ Macro แล้วไม่เห็นมีการกำหนดช่วง
และ column ที่จะ filter เลย[/quote]
หมายความว่า ถ้า ณ ขณะนี้ทำงานอยูกับเซลล์ B4 และ B4 ไม่เป็นเซลล์ว่างแล้วให้ Run Code AdvancedFilterData หากไม่เช่นนั้นให้ Run Code ShowDataAll

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Range("A1").Address = "$B$4" And Target.Range("A1") <> "" Then
AdvancedFilterData
ElseIf Target.Range("A1").Address = "$B$4" And Target.Range("A1") = "" Then
ShowDataAll
End If
End Sub


ขอความหมายหน่อยครับ ลองมา Run ที่ file ของผมแล้วมัน error เพราะดูที่ Macro แล้วไม่เห็นมีการกำหนดช่วง
และ column ที่จะ filter เลย

:D น่าจะเหมือนกับกระทู้นี้ซึ่งใช้ VBA ร่วมกับ Advanced Filter ครับ http://www.snasui.com/viewtopic.php?f=3&t=1193

ต้องการให้เราเลือกเดือนที่ cell ที่เรากำหนด แล้ว ค่า Auto filter เปลี่ยนตามที่เราเลือก
ใน file ตัวอย่างที่แนบมานี้ ต้องการเลือกที่ cell F29 แล้วในตารางแสดงตามเดือนที่เราเลือก
จะใช้วิธีการใดได้บ้าง