ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย ระบุ Version ของ Excel
ฟอรัมถาม-ตอบปัญหาการใช้งาน MS Excel and VBA
Forum rules
ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง) กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
yoguzaa
Member
Posts: 87 Joined: Mon Jan 09, 2012 4:48 pm
#1
Post
by yoguzaa Mon Jul 01, 2013 2:22 pm
จากไฟล์แนบครับ เขียนโค้ดไว้ ดังนี้
Code: Select all
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.ScreenUpdating = False
If Target = [cer_filter] And Target.Select Then
ActiveSheet.Range("Report_today").AutoFilter Field:=2, Criteria1:= _
[cer_filter], Operator:=xlOr, Criteria2:="="
ElseIf Target.Value = "" Then
End If
Application.ScreenUpdating = True
End Sub
ขอ ความอนุเคราะห์ ท่านอาจรรย์ ช่วยเหลือ ดังนี้ ครับ
จาก โค้ด
ผม ต้องการให้เลือกข้อมูลที่กรองทุกรายการครับ (เหมือนกับไม่มีการกรองใดๆ)
ผมจะต้องเขียนคำสั่งอย่างไร ครับ
You do not have the required permissions to view the files attached to this post.
ใช้คำว่า"ไม่รู้"เพื่อที่จะได้"รู้"
yoguzaa
Member
Posts: 87 Joined: Mon Jan 09, 2012 4:48 pm
#2
Post
by yoguzaa Mon Jul 01, 2013 2:24 pm
เพิ่มเติมอีกนิดครับ ใน คอลัมภ์ B ผมควรเขียนสูตรเพื่อสร้างลำดับอย่างไร ครับ ในขณะกรองและไม่กรองข้อมูล เพื่อให้ รัน เลขลำดับได้ถูกต้อง ครับ
ใช้คำว่า"ไม่รู้"เพื่อที่จะได้"รู้"
snasui
Site Admin
Posts: 30917 Joined: Sun Jan 24, 2010 12:33 pmLocation: Songkhla, ThailandExcel Ver: 2010, 365
Contact:
#3
Post
by snasui Mon Jul 01, 2013 2:47 pm
yoguzaa wrote: ขอ ความอนุเคราะห์ ท่านอาจรรย์ ช่วยเหลือ ดังนี้ ครับ
สามารถใช้
ActiveSheet.ShowAllData ได้ครับ
yoguzaa wrote: เพิ่มเติมอีกนิดครับ ใน คอลัมภ์ B ผมควรเขียนสูตรเพื่อสร้างลำดับอย่างไร ครับ ในขณะกรองและไม่กรองข้อมูล เพื่อให้ รัน เลขลำดับได้ถูกต้อง ครับ
ที่ B5 คีย์สูตร
=IF(ROWS(A$5:A5)>$B$3,"",SUBTOTAL(3,C$5:C5))
Enter > Copy ลงด้านล่าง
yoguzaa
Member
Posts: 87 Joined: Mon Jan 09, 2012 4:48 pm
#4
Post
by yoguzaa Mon Jul 01, 2013 6:14 pm
ขอบพระคุณในความช่วยเหลือที่ดีเสมอมา ครับ
ใช้คำว่า"ไม่รู้"เพื่อที่จะได้"รู้"
snasui.com ยินดีต้อนรับ 
สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ 
โปรดทราบ 
