:D snasui.com ยินดีต้อนรับ :D
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย :thup: สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ :arrow: ระบุ Version ของ Excel
:!: โปรดทราบ :!:
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
  2. การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
    1. สมัครสมาชิกดูขั้นตอนได้ที่ :arrow: สมัครสมาชิก
    2. Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้ :roll:
    3. การ Login ผ่าน Facebook ดูวิธีที่ :arrow: Login ผ่าน Facebook
    4. ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ :arrow: Reset รหัสผ่าน
  3. มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ :arrow: ติดต่อผู้ดูแลระบบ
  4. กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ :arrow: ตั้งค่าส่วนตัว
  5. การตั้งและตอบกระทู้ดูได้ที่ :arrow: วิธีการตั้งและตอบกระทู้
  6. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ :arrow: จัดรูปแบบตัวอักษร
  7. กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ :arrow: กำหนดขนาดตัวอักษรใน Browser

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

ฟอรัมถาม-ตอบปัญหาการใช้งาน MS Excel and VBA
Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
knightking9
Member
Member
Posts: 15
Joined: Tue Jun 27, 2017 2:31 pm

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

#1

Post by 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
You do not have the required permissions to view the files attached to this post.
knightking9
Member
Member
Posts: 15
Joined: Tue Jun 27, 2017 2:31 pm

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

#2

Post by 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
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

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

#3

Post by snasui »

:D ช่วยแนบ Code มาในไฟล์ด้วยครับ ไฟล์ที่จะแนบ Code ได้จะต้องมีนามสกุลเป็น .xlsm เป็นอย่างน้อยครับ
knightking9
Member
Member
Posts: 15
Joined: Tue Jun 27, 2017 2:31 pm

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

#4

Post by knightking9 »

เพิ่มไฟล์ Excel ที่มี Code แล้วครับ รบกวนขอคำแนะนำจากอาจารย์ด้วยครับ ขอบคุณครับ
You do not have the required permissions to view the files attached to this post.
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

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

#5

Post by snasui »

:D ตัวอย่าง 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
Member
Member
Posts: 15
Joined: Tue Jun 27, 2017 2:31 pm

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

#6

Post by knightking9 »

อาจารย์ครับ แล้วเช่น ต้องการกรองค่า 1 ทีนี้จะได้ค่า 15มาด้วย หรือ 2 จะได้ค่า 32มาด้วยแบบนี้หน่ะครับ ตรงนี้พอจะมีแนวทางรึป่าวครับอาจารย์ ขอบคุณครับ
knightking9
Member
Member
Posts: 15
Joined: Tue Jun 27, 2017 2:31 pm

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

#7

Post by knightking9 »

กับการ search แบบนี้ ถ้าผมต้องการลบค่าอื่นไปเลยเพื่อลดขนาดไฟล์ลง สามารถทำได้รึป่าวครับอาจารย์ ถ้าตามโค๊ดของอาจารย์ผมลองนำมาปรับใช้แล้ว เหมือนจะเป็นประมาณการเลือกเฉพาะค่าที่ผมกรอกลงไปเพื่อแสดงออกมา แต่ค่าอื่น จริงๆก็ยังซ่อนไว้อยู่หน่ะครับ ขอบคุณครับ
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

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

#8

Post by snasui »

knightking9 wrote:อาจารย์ครับ แล้วเช่น ต้องการกรองค่า 1 ทีนี้จะได้ค่า 15มาด้วย หรือ 2 จะได้ค่า 32มาด้วยแบบนี้หน่ะครับ ตรงนี้พอจะมีแนวทางรึป่าวครับอาจารย์ ขอบคุณครับ
:D โดยหลักการ Search จะมีแบบตรงตัวหรือใกล้เคียง Code ที่ผมเขียนเป็นตัวอย่างไปนั้นเป็นการค้นหาแบบใกล้เคียง หากต้องการแบบตรงตัวจะต้องเพิ่ม Option ให้ผู้ใช้เลือก แล้วค่อยค้นหาตาม Option นั้น ในกรณีนี้จำเป็นต้องเขียนมาเองก่อน ติดตรงไหนค่อยถามกันต่อครับ
knightking9 wrote:กับการ search แบบนี้ ถ้าผมต้องการลบค่าอื่นไปเลยเพื่อลดขนาดไฟล์ลง สามารถทำได้รึป่าวครับอาจารย์ ถ้าตามโค๊ดของอาจารย์ผมลองนำมาปรับใช้แล้ว เหมือนจะเป็นประมาณการเลือกเฉพาะค่าที่ผมกรอกลงไปเพื่อแสดงออกมา แต่ค่าอื่น จริงๆก็ยังซ่อนไว้อยู่หน่ะครับ ขอบคุณครับ
สามารถทำได้ ลองปรับมาเองก่อน ติดแล้วค่อยถามกันต่อครับ
knightking9
Member
Member
Posts: 15
Joined: Tue Jun 27, 2017 2:31 pm

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

#9

Post by 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 แบบสมบูรณ์ ผมยังไม่สามารถประยุกต์ได้เลยครับ อยากรบกวนอาจารย์ชี้แนะอีกสักหน่อย ขอบคุณครับ
You do not have the required permissions to view the files attached to this post.
knightking9
Member
Member
Posts: 15
Joined: Tue Jun 27, 2017 2:31 pm

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

#10

Post by 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
You do not have the required permissions to view the files attached to this post.
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

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

#11

Post by snasui »

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

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

กรณีใช้ Match เป็นการค้นหาแบบตรงตัวครับ
knightking9
Member
Member
Posts: 15
Joined: Tue Jun 27, 2017 2:31 pm

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

#12

Post by knightking9 »

ครับอาจารย์ ก็คือตอนนี้ต้องเลือกเอาระหว่างใกล้เคียงกับตรงตัว สักทางเลยใช่ไหมครับ ซึ่งผมลองเทียบข้อดีข้อเสียแล้วพบว่าแบบตรงตัวเหมาะสำหรับจะนำไปใช้ในงานของผมมากกว่า ถึงจะต้องมากรอกค่าที่ต้องการเพิ่มนิดนึง ในขณะที่แบบใกล้เคียงหากข้อมูลมีเยอะขึ้นจะมีโอกาสที่จะดึงข้อมูลอื่นที่ไม่ต้องการมามากขึ้นไปด้วย ขอบคุณอาจารย์มากครับ
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

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

#13

Post by snasui »

:D ไม่ใช่ให้เลือกแค่ทางเดียว แต่หมายถึงว่ามีให้ผู้ใช้เลือกได้ว่าจะให้ค้นหาแบบตรงตัวหรือใกล้เคียง ถ้าเลือกค้นหาแบบตรงตัวก็ใช้ Code ค้นหาแบบตรงตัวมาแสดง ถ้าหากเลือกค้นหาแบบใกล้เคียงก็ใช้ Code ค้นหาแบบใกล้เคียงมาแสดง เช่นนี้ครับ
knightking9
Member
Member
Posts: 15
Joined: Tue Jun 27, 2017 2:31 pm

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

#14

Post by knightking9 »

คือให้ใส่ Code ไปทั้งสองแบบ ทำปุ่มค้นหามาอีกชุด แล้วให้ผู้ใช้เลือกเอาว่าจะใช้แบบไหนใช่ไหมครับ ขอบคุณอาจารย์มากครับ
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

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

#15

Post by snasui »

:D ถูกต้องครับ :thup:
Post Reply