Page 1 of 1

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

Posted: Thu Jan 03, 2019 1:40 pm
by TanabadeeY
อยากให้ Filter ตามช่อง K4 ก็สมารถฟิลเตอร์ดิด SSK ได้โดยไม่ต้อง พิมพ์ SSK เต็มๆครับ

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

Posted: Thu Jan 03, 2019 2:48 pm
by 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 ออก

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

Posted: Thu Jan 03, 2019 3:24 pm
by TanabadeeY
Supachok wrote: Thu Jan 03, 2019 2:48 pm - คุม 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 ออก
ไม่เข้าใจที่พิมม์มาเลยอะครับ มีง่ายกว่านี้ไหมครับ

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

Posted: Thu Jan 03, 2019 3:55 pm
by 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 ออก

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

Posted: Mon Jan 07, 2019 12:31 pm
by puriwutpokin
TanabadeeY wrote: Thu Jan 03, 2019 1:40 pm อยากให้ 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") & "*"