จัดเรียงข้อมูลในตารางใหม่ตามหน่วยงานที่เลือก

[chacharn]

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

[snasui]

ลองดูตัวอย่างจากไฟล์แนบซึ่งใช้ VBA ร่วมกับ Advanced Filter เข้ามาช่วย

Code ด้านล่างนี้วางที่ Sheet1 ในหน้าต่าง VBE

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = "$C$5" Then
    FilterAdvanced
End If
Application.EnableEvents = True
End Sub

Code ด้านล่างนี้วางที่ Module1 ในหน้าต่าง VBE

Code: Select all

Sub FilterAdvanced()
Dim r As Range
With Worksheets("Sheet1")
Set r = .Range("B6", .Range("C" & Rows.Count).End(xlUp).Offset(0, 8))
End With
        r.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("L1:L2")
End Sub

Sub ShowAll()
    Worksheets("Sheet1").ShowAllData
End Sub

[chacharn]

ตอบได้รวดเร็วจริงๆ ขอบคุณครับอาจารย์คนควน ขอให้จำเริญๆ ครับ