การกรองแบบพิเศษ
Posted: Mon Jan 09, 2012 11:38 am
![Very Happy :D](./images/smilies/icon_e_biggrin.gif)
![titter :tt:](./images/smilies/icon_titter.gif)
คือต้องการกรองข้อมูลที่ เซลล์ C3 ครับ อย่างเช่น กรองคำว่า วรจักร์ยนต์ จะได้ข้อมูลที่ตารางข้างล่าง เป็นของ วรจักร์ยนต์ ทุกสาขา และข้อมูลอื่นๆครับ
![Shocked :shock:](./images/smilies/icon_eek.gif)
แล้ววิธีกรอง จะต้องทำยังไงครับ
ฟอรัม Excel, VBA และอื่นๆ ของคนไทยเพื่อประโยชน์ของทุกคนในจักรวาล (Forum Excel, VBA and others of Thai people for everyone in the universe.)
http://snasui.com/
Code: Select all
Sub Macro1()
Range("A6:T1000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("F1:F2"), Unique:=False
End Sub
Code: Select all
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Range("A1").Address = "$C$3" Then
Call Macro1
ElseIf Target.Range("A1").Address = "$C$3" And Target = "" Then
ActiveSheet.ShowAllData
End If
End Sub
snasui wrote:ผมปรับ Code มาให้ดูเป็นตัวอย่างตามไฟล์แนบครับ
End Sub[/code]
hakinhua wrote:ความสามารถผมได้แต่นี้ละครับอาจารย์(แต่ใจรัก)
ช่วยสอนหน่อยนะครับอาจารย์