Filter แบบไม่ต้อง Match entire cell

[TanabadeeY]

อยากให้ Filter ตามช่อง K4 ก็สมารถฟิลเตอร์ดิด SSK ได้โดยไม่ต้อง พิมพ์ SSK เต็มๆครับ

[Supachok]

- คุม D1:D7 > Ctrl+Shift+F3
เลือก Top row

-A2
=IF(ISNUMBER(SEARCH($K$4,Des3_)),MAX($A$1:A1)+1,0)
Copy down

-n2:n7
input 1-6
-O2
=VLOOKUP(ROW(A1),$A$2:$E$7,RIGHT($K$3,1)+1,0)

K3
Data validation
=OFFSET(O2,,,COUNTIF($O$2:$O$7,"?*"))
Tap error alert เอา show error ออก

[TanabadeeY]

- คุม D1:D7 > Ctrl+Shift+F3
เลือก Top row

-A2
=IF(ISNUMBER(SEARCH($K$4,Des3_)),MAX($A$1:A1)+1,0)
Copy down

-n2:n7
input 1-6
-O2
=VLOOKUP(ROW(A1),$A$2:$E$7,RIGHT($K$3,1)+1,0)

K3
Data validation
=OFFSET(O2,,,COUNTIF($O$2:$O$7,"?*"))
Tap error alert เอา show error ออก

ไม่เข้าใจที่พิมม์มาเลยอะครับ มีง่ายกว่านี้ไหมครับ

[Supachok]

ขั้นตอนที่1
- คุม D1:D7 > Ctrl+Shift+F3
เลือก Top row

ขั้นตอนที่2
-A2
=IF(ISNUMBER(SEARCH($K$4,Des3_)),MAX($A$1:A1)+1,0)
Copy down

ขั้นตอนที่3
-n2:n7
input 1-6
-O2
=VLOOKUP(ROW(A1),$A$2:$E$7,RIGHT($K$3,1)+1,0)

ขั้นตอนที่4
K3
Data validation
=OFFSET(O2,,,COUNTIF($O$2:$O$7,"?*"))
Tap error alert เอา show error ออก

[puriwutpokin]

อยากให้ Filter ตามช่อง K4 ก็สมารถฟิลเตอร์ดิด SSK ได้โดยไม่ต้อง พิมพ์ SSK เต็มๆครับ

ปรับโค้ดตามนี้ครับ

Code: Select all

    ActiveSheet.Range("$A$1:$F$6").AutoFilter Field:=Application.Match(Range("K3").Value, Range("A1:F1"), 0), Criteria1:="*" & Range("K4") & "*"