สอบถามการใช้ Filter โดยการใช้ VBA ครับ

[knightking9]

สวัสดีครับ ผมอยากขอคำแนะนำจากอาจารย์เรื่องการใช้ Filter ซึ่งผมมีปัญหา 2 อย่างหลักๆ ผมได้แนบตัวอย่างไฟล์ excel มา ซึ่งอยากขอคำแนะนำจากอาจารย์ว่า
1. ผมต้องการให้สามารถกรอกค่า Group ที่ต้องการ ในหน้า Procedures แล้วเมื่อกด RUN ข้อมูลในหน้า Data ก็จะถูกกรองจนเหลือแค่ค่า Group ที่ต้องการ โดย จำนวน Column ทั้งหมดคงเดิมไว้

2. ซึ่งจะมีปัญหาอีกว่า เช่นหากในหน้า Data มีข้อมูล Group ที่กรอกไว้ว่า 4/7 (หมายถึงกลุ่ม 4 กับ 7 ) แล้วในหน้า Procedures ผมกรอก Group 4 ลงไป ซึ่งก็คือผมต้องการกรอง Group 4 ผมอยากให้แสดง Group 4/7 ออกมาได้ด้วยเลยพร้อมกับ Group 4 อื่นๆ โดยไม่ต้องไปใส่ 4/7 ก่อนแล้วถึงกด RUN แต่หากผมเลือกกรอง Group 7 จะต้องการให้ออกเฉพาะข้อมูล 4/7 นี้อันเดียว โดยข้อมูล Group 4 อื่นๆ จะไม่แสดงออกมา (เมื่อกรอกเลขตัวหน้าของ /จะแสดงทั้งหมด เมื่อกรอกเลขตัวหลังของ / จะแสดงเฉพาะข้อมูลนั้นๆ) ซึ่งในปัญหานี้ผมอยากทราบว่ามีแนวทางแก้ไขยังไงบ้างรึป่าวครับ หรือมีสูตรไหนที่สามารถใช้งานแบบนี้ได้ ที่ผมคิดคือใช้สูตรในเซลล์ที่ผมกรอก 4/7 แต่ยังไม่เจอสูตรที่ทำได้ครับ รบกวนขอคำแนะนำจากอาจารย์ด้วยครับ ขอบคุณครับ

โค๊ด VBA ผมทำถึงได้แค่การ Fix Group ไว้หน่ะครับ หรือถ้าจะเลือก Group ใหม่ ต้องแก้ในโค๊ดอย่างเดียวเลย แต่ผมยังไม่สามารถทำให้สามารถกรอกค่าที่ต้องการไปได้

Code: Select all

Sub SelectUsableLot5()
Dim lngLastRow As Long
Dim lngLastRowSource As Long
Dim StrFilterRange As String

    Sheets("Data").Select
    
    lngLastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row                  ' Get the last Target
    StrFilterRange = "$A$1:$H$" & CStr(lngLastRow)
    
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    
    Selection.AutoFilter
    ActiveSheet.Range(StrFilterRange).AutoFilter Field:=1, Criteria1:=Array("1", "2", _
                                    "4"), _
                    Operator:=xlFilterValues
    
End Sub

[knightking9]

ผมลองเขียนโค๊ดมาเพิ่มครับ แต่ยังไม่ได้ผลที่ต้องการ คือสามารถกรองได้แค่ค่าเดียว กับยังแก้ปัญหา 4/35 ไม่ได้ครับอาจารย์

Code: Select all

Sub Filter()
  With Worksheets("Data")
  .AutoFilterMode = False
  With .Range("A1:H13")
  .AutoFilter
  .AutoFilter Field:=1, Criteria1:=Worksheets("Procedures").Range("C11:C13").Value
  End With
  End With
End Sub

[snasui]

ช่วยแนบ Code มาในไฟล์ด้วยครับ ไฟล์ที่จะแนบ Code ได้จะต้องมีนามสกุลเป็น .xlsm เป็นอย่างน้อยครับ

[knightking9]

เพิ่มไฟล์ Excel ที่มี Code แล้วครับ รบกวนขอคำแนะนำจากอาจารย์ด้วยครับ ขอบคุณครับ

[snasui]

ตัวอย่าง Code สำหรับการ Search ครับ ซึ่งการ Search ด้วยวิธีนี้หากค้นหาเลข 1 จะเจอทุกค่าที่มีเลข 1 ประกอบอยู่ด้วยครับ

Code: Select all

Sub test0()
    Dim rAllCri As Range, rc As Range
    Dim rt As Range, f As Boolean
    With Sheets("Procedures")
        Set rAllCri = .Range("c11", .Range("c" & .Rows.Count).End(xlUp))
    End With
    With Sheets("Data")
        .UsedRange.EntireRow.Hidden = False
        For Each rt In .Range("a2", .Range("a" & Rows.Count).End(xlUp))
            For Each rc In rAllCri
                f = False
                If rt.Value Like "*" & rc.Value & "*" Then
                    f = True
                    Exit For
                End If
            Next rc
            If Not f Then
                rt.EntireRow.Hidden = True
            End If
        Next rt
    End With
End Sub

[knightking9]

อาจารย์ครับ แล้วเช่น ต้องการกรองค่า 1 ทีนี้จะได้ค่า 15มาด้วย หรือ 2 จะได้ค่า 32มาด้วยแบบนี้หน่ะครับ ตรงนี้พอจะมีแนวทางรึป่าวครับอาจารย์ ขอบคุณครับ

[knightking9]

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

[snasui]

อาจารย์ครับ แล้วเช่น ต้องการกรองค่า 1 ทีนี้จะได้ค่า 15มาด้วย หรือ 2 จะได้ค่า 32มาด้วยแบบนี้หน่ะครับ ตรงนี้พอจะมีแนวทางรึป่าวครับอาจารย์ ขอบคุณครับ

โดยหลักการ Search จะมีแบบตรงตัวหรือใกล้เคียง Code ที่ผมเขียนเป็นตัวอย่างไปนั้นเป็นการค้นหาแบบใกล้เคียง หากต้องการแบบตรงตัวจะต้องเพิ่ม Option ให้ผู้ใช้เลือก แล้วค่อยค้นหาตาม Option นั้น ในกรณีนี้จำเป็นต้องเขียนมาเองก่อน ติดตรงไหนค่อยถามกันต่อครับ

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

สามารถทำได้ ลองปรับมาเองก่อน ติดแล้วค่อยถามกันต่อครับ

[knightking9]

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

Code: Select all

Sub test0()
    Dim rAllCri As Range, rc As Range
    Dim rt As Range, f As Boolean
    Dim rAllData As Range
    With Sheets("Procedures")
        Set rAllCri = .Range("c11", .Range("c" & .Rows.Count).End(xlUp))
    End With
    With Sheets("Data")
       Set rAllData = .Range("a2", .Range("a" & Rows.Count).End(xlUp))
        .UsedRange.EntireRow.Hidden = False
       
        For Each rt In .Range("a2", .Range("a" & Rows.Count).End(xlUp))
            For Each rc In rAllCri
                f = False
                If rt.Value Like "*" & rc.Value & "*" Then
                    f = True
                    Exit For
                End If
            Next rc
            If Not f Then
               rt.ClearContents
            End If
            Next
             rAllData.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
        
    End With
End Sub

แต่ในส่วนการ Search แบบสมบูรณ์ ผมยังไม่สามารถประยุกต์ได้เลยครับ อยากรบกวนอาจารย์ชี้แนะอีกสักหน่อย ขอบคุณครับ

[knightking9]

ผมลองทำเพิ่มเติมเรื่องการ Search ปัญหาการป้อนเลขหลักเดียวได้แล้ว แต่ตอนนี้กลายเป็นว่า เกิดปัญหาการ Search เช่น ต้องการกรอง 1 แล้วมีข้อมูล 1, 21, 3 , 50/1 ข้อมูลหลังกรองก็ควรจะได้ 1, 50/1 ครับ คือสามารถแก้ไม่ให้ 21 แสดงผลได้แล้ว แต่กลายเป็นว่า ข้อมูล 50/1 กลับไม่แสดงอีกแล้วครับ กลายเป็นว่าตอนนี้เป็นการ Search แบบที่ค่าต้องเหมือนกันทั้งหมดครับ กรณีนี้คือ ไม่สามารถใช้ Match ได้รึป่าวครับ รบกวนอาจารย์ช่วยแนะนำด้วยครับ ขอบคุณครับ

Code: Select all

Sub test0()
    Dim rAllCri As Range, rc As Range
    Dim rt As Range, f As Boolean
    Dim rAllData As Range
    Dim m As Long
    
    
    With Sheets("Procedures")
        Set rAllCri = .Range("c11", .Range("c" & .Rows.Count).End(xlUp))
    End With
    
    
    With Sheets("Data")
       Set rAllData = .Range("a2", .Range("a" & Rows.Count).End(xlUp))
        .UsedRange.EntireRow.Hidden = False
       
        
        For Each rt In .Range("a2", .Range("a" & Rows.Count).End(xlUp))
            For Each rc In rAllCri
                f = False
                If Application.CountIf(rAllCri, rt) > 0 Then
                m = Application.Match(rt, rAllCri, 0)
                f = True
                
          
                    Exit For
                End If
            Next rc
            
            
            
            If Not f Then
               rt.ClearContents
            End If
            Next
             rAllData.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
        
    End With
End Sub

[snasui]

อย่างที่ผมแจ้งไปครับ

ต้องให้มี Option การ Search ว่าจะ Search แบบไหน อย่างน้อยต้องแบบตรงตัวหรือใกล้เคียงให้เลือกครับ

กรณีใช้ Match เป็นการค้นหาแบบตรงตัวครับ

[knightking9]

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

[snasui]

ไม่ใช่ให้เลือกแค่ทางเดียว แต่หมายถึงว่ามีให้ผู้ใช้เลือกได้ว่าจะให้ค้นหาแบบตรงตัวหรือใกล้เคียง ถ้าเลือกค้นหาแบบตรงตัวก็ใช้ Code ค้นหาแบบตรงตัวมาแสดง ถ้าหากเลือกค้นหาแบบใกล้เคียงก็ใช้ Code ค้นหาแบบใกล้เคียงมาแสดง เช่นนี้ครับ

[knightking9]

คือให้ใส่ Code ไปทั้งสองแบบ ทำปุ่มค้นหามาอีกชุด แล้วให้ผู้ใช้เลือกเอาว่าจะใช้แบบไหนใช่ไหมครับ ขอบคุณอาจารย์มากครับ

[snasui]

ถูกต้องครับ