ฟอรัม Excel, VBA และอื่นๆ ของคนไทยเพื่อประโยชน์ของทุกคนในจักรวาล (Forum Excel, VBA and others of Thai people for everyone in the universe.)
http://snasui.com/
สวัสดีครับ ผมอยากให้ดูไฟล์ที่แนบมาให้หน่อยครับว่า เราสามารถกรองข้อมูลที่เราต้องการได้หรือเปล่า 
หากความต้องการคือเลือกเซลล์ใน D3 แล้วให้กรองค่ามาตามที่เลือกนั้นสามารถทำด้วยการบันทึก Macro ครับ ลองบันทึก Macro สำหรับการทำ Advanced Filter มาดูครับ ติดตรงไหนจะได้ช่วยกันดูต่อครับ 
ความสามารถผมได้แต่นี้ละครับอาจารย์(แต่ใจรัก) ช่วยสอนหน่อยนะครับอาจารย์ 
ผมปรับ Code มาให้ดูเป็นตัวอย่างตามไฟล์แนบครับCode: Select all
Sub Macro1()
Range("A6:T1000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("F1:F2"), Unique:=False
End SubCode: 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 Subsnasui wrote:
End Sub[/code]
หมายความว่าผมต้องปรับทุกบริษัทเลยใช่ไหมครับ 
ต้องขออภัยอาจารย์มากครับไฟล์ชื่อ บริษัทไม่ตรงกันเองครับ ขอบอาจารย์อีครั้งครับ hakinhua wrote:
สำหรับ icon ==> ควรดูความเหมาะสมในการใช้ด้วยนะครับ ปกติผมใช้เตือนสมาชิกที่ทำผิดกฏครับ