การกรองแบบพิเศษ

[hakinhua]

สวัสดีครับ ผมอยากให้ดูไฟล์ที่แนบมาให้หน่อยครับว่า เราสามารถกรองข้อมูลที่เราต้องการได้หรือเปล่า
คือต้องการกรองข้อมูลที่ เซลล์ C3 ครับ อย่างเช่น กรองคำว่า วรจักร์ยนต์ จะได้ข้อมูลที่ตารางข้างล่าง เป็นของ วรจักร์ยนต์ ทุกสาขา และข้อมูลอื่นๆครับ
แล้ววิธีกรอง จะต้องทำยังไงครับ

[snasui]

หากความต้องการคือเลือกเซลล์ใน D3 แล้วให้กรองค่ามาตามที่เลือกนั้นสามารถทำด้วยการบันทึก Macro ครับ ลองบันทึก Macro สำหรับการทำ Advanced Filter มาดูครับ ติดตรงไหนจะได้ช่วยกันดูต่อครับ

[hakinhua]

ความสามารถผมได้แต่นี้ละครับอาจารย์(แต่ใจรัก) ช่วยสอนหน่อยนะครับอาจารย์

[snasui]

ผมปรับ Code มาให้ดูเป็นตัวอย่างตามไฟล์แนบครับ

ที่ Module2

Code: Select all

Sub Macro1()
    Range("A6:T1000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("F1:F2"), Unique:=False
End Sub

ที่ชีท ธ.ค.

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Range("A1").Address = "$C$3" Then
        Call Macro1
    ElseIf Target.Range("A1").Address = "$C$3" And Target = "" Then
         ActiveSheet.ShowAllData
    End If
End Sub

[hakinhua]

ผมปรับ Code มาให้ดูเป็นตัวอย่างตามไฟล์แนบครับ

End Sub[/code]

หมายความว่าผมต้องปรับทุกบริษัทเลยใช่ไหมครับ
เพราะ ที่ไฟล์แนบของอาจารย์ วรจักร ยังกรองไม่ได้ครับ

[hakinhua]

ต้องขออภัยอาจารย์มากครับไฟล์ชื่อ บริษัทไม่ตรงกันเองครับ ขอบอาจารย์อีครั้งครับ

[snasui]

ความสามารถผมได้แต่นี้ละครับอาจารย์(แต่ใจรัก) ช่วยสอนหน่อยนะครับอาจารย์

สำหรับ icon ==> ควรดูความเหมาะสมในการใช้ด้วยนะครับ ปกติผมใช้เตือนสมาชิกที่ทำผิดกฏครับ