การนำรายการแรกที่ได้จากการ Filter มาแสดง

[วังวู ช่ง]

เรียน ท่าน อาจารย์ ครับ ถ้าอยากเลือก Product ใน A2 ส่วน A4:B20 ให้แสดงข้อมูณของ Product ที่เลือกใน A2 ครับ แต่ใช้ Filter ครับ เรียนท่าน อาจารย์ ดูที่ sheet2 ครับ
http://www.snasui.com/viewtopic.php?f=10&t=3742

[snasui]

การทำเช่นนั้นสามารถบันทึก Macro แล้วปรับ Code ทีได้จากการบันทึก Macro มาใช้ได้ครับ

[วังวู ช่ง]

การทำเช่นนั้นสามารถบันทึก Macro แล้วปรับ Code ทีได้จากการบันทึก Macro มาใช้ได้ครับ

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

[snasui]

  ที่ Module1 ปรับ Code เป็น

Code: Select all

Sub Macro1()
    ActiveSheet.Range("$A$3:$B$20").AutoFilter Field:=1, Criteria1:=Range("A2").Value
End Sub

ที่ Sheet2 เพิ่ม Code เป็นตามด้านล่างครับ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$2" Then Call Module1.Macro1
End Sub

[วังวู ช่ง]

  ที่ Module1 ปรับ Code เป็น

Code: Select all

Sub Macro1()
    ActiveSheet.Range("$A$3:$B$20").AutoFilter Field:=1, Criteria1:=Range("A2").Value
End Sub

ที่ Sheet2 เพิ่ม Code เป็นตามด้านล่างครับ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$2" Then Call Module1.Macro1
End Sub

ขอบคุณมากๆครับ ท่าน อาจารย์ ครับ ได้คำตอบจิงๆครับ
นับถือครับ

[วังวู ช่ง]

รบกวนอีกครับ ท่านอาจารย์ครับ เมื่อ A2 เป็นหว่าง ให้มันแสดงทังหมด ผมทำแต่ไม่ทำงานครับ เรียนอาจารย์ช่วยปรับให้ด้วยครับคือ ผมเอา

Code: Select all

    Range("A2") = Empty
    Selection.AutoFilter

มาต่อกรับ

Code: Select all

Sub Filter()
    ActiveSheet.Range("$A$3:$B$20").AutoFilter Field:=1, Criteria1:=Range("A2").Value
End Sub

แต่ไม่ทำงานครับ
ขอบคุณล่วงหน้าครับ

[snasui]

ปรับ Code ที่ Filter เป็นตามด้านล่างครับ

Code: Select all

Sub Filter()
    On Error Resume Next
    If Range("A2") = "" Then
        ActiveSheet.ShowAllData
    Else
        ActiveSheet.Range("$A$3:$B$20").AutoFilter Field:=1, _
            Criteria1:=Range("A2").Value
    End If
End Sub