ฟอรัม Excel, VBA และอื่นๆ ของคนไทยเพื่อประโยชน์ของทุกคนในจักรวาล (Forum Excel, VBA and others of Thai people for everyone in the universe.)
http://snasui.com/
ลองดูตัวอย่างจากไฟล์แนบซึ่งใช้ VBA ร่วมกับ Advanced Filter เข้ามาช่วย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 SubCode: 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