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

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

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

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

#1

Postby knightking9 » Mon Jul 03, 2017 10:42 am

สวัสดีครับ ผมอยากขอคำแนะนำจากอาจารย์เรื่องการใช้ 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

Postby knightking9 » Mon Jul 03, 2017 3:23 pm

ผมลองเขียนโค๊ดมาเพิ่มครับ แต่ยังไม่ได้ผลที่ต้องการ คือสามารถกรองได้แค่ค่าเดียว กับยังแก้ปัญหา 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: 21785
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:

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

#3

Postby snasui » Mon Jul 03, 2017 8:21 pm

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

knightking9
Member
Member
Posts: 15
Joined: Tue Jun 27, 2017 2:31 pm

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

#4

Postby knightking9 » Mon Jul 03, 2017 8:57 pm

เพิ่มไฟล์ 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: 21785
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:

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

#5

Postby snasui » Mon Jul 03, 2017 10:21 pm

: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

Postby knightking9 » Tue Jul 04, 2017 8:18 am

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

knightking9
Member
Member
Posts: 15
Joined: Tue Jun 27, 2017 2:31 pm

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

#7

Postby knightking9 » Tue Jul 04, 2017 9:45 am

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

User avatar
snasui
Site Admin
Site Admin
Posts: 21785
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:

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

#8

Postby snasui » Tue Jul 04, 2017 7:25 pm

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

Postby knightking9 » Wed Jul 05, 2017 10:24 am

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

Postby knightking9 » Wed Jul 05, 2017 2:52 pm

ผมลองทำเพิ่มเติมเรื่องการ 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: 21785
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:

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

#11

Postby snasui » Thu Jul 13, 2017 6:13 pm

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

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

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

knightking9
Member
Member
Posts: 15
Joined: Tue Jun 27, 2017 2:31 pm

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

#12

Postby knightking9 » Fri Jul 14, 2017 2:00 pm

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

User avatar
snasui
Site Admin
Site Admin
Posts: 21785
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:

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

#13

Postby snasui » Sat Jul 15, 2017 10:24 am

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

knightking9
Member
Member
Posts: 15
Joined: Tue Jun 27, 2017 2:31 pm

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

#14

Postby knightking9 » Mon Jul 17, 2017 8:52 am

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



Return to “Excel”

Who is online

Users browsing this forum: No registered users and 16 guests