Page 1 of 1
สอบถามครับ การ Auto Filter
Posted: Mon Jul 01, 2013 2:22 pm
by yoguzaa
จากไฟล์แนบครับ เขียนโค้ดไว้ ดังนี้
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
ขอ ความอนุเคราะห์ ท่านอาจรรย์ ช่วยเหลือ ดังนี้ ครับ
จาก โค้ด
ผม ต้องการให้เลือกข้อมูลที่กรองทุกรายการครับ (เหมือนกับไม่มีการกรองใดๆ)
ผมจะต้องเขียนคำสั่งอย่างไร ครับ
Re: สอบถามครับ การ Auto Filter
Posted: Mon Jul 01, 2013 2:24 pm
by yoguzaa
เพิ่มเติมอีกนิดครับ ใน คอลัมภ์ B ผมควรเขียนสูตรเพื่อสร้างลำดับอย่างไร ครับ ในขณะกรองและไม่กรองข้อมูล เพื่อให้ รัน เลขลำดับได้ถูกต้อง ครับ
Re: สอบถามครับ การ Auto Filter
Posted: Mon Jul 01, 2013 2:47 pm
by snasui
yoguzaa wrote:ขอ ความอนุเคราะห์ ท่านอาจรรย์ ช่วยเหลือ ดังนี้ ครับ
จาก โค้ด
โค้ด: เลือกทั้งหมด
ElseIf Target.Value = "" Then
ผม ต้องการให้เลือกข้อมูลที่กรองทุกรายการครับ (เหมือนกับไม่มีการกรองใดๆ)
ผมจะต้องเขียนคำสั่งอย่างไร ครับ
สามารถใช้
ActiveSheet.ShowAllData ได้ครับ
yoguzaa wrote:เพิ่มเติมอีกนิดครับ ใน คอลัมภ์ B ผมควรเขียนสูตรเพื่อสร้างลำดับอย่างไร ครับ ในขณะกรองและไม่กรองข้อมูล เพื่อให้ รัน เลขลำดับได้ถูกต้อง ครับ
ที่ B5 คีย์สูตร
=IF(ROWS(A$5:A5)>$B$3,"",SUBTOTAL(3,C$5:C5))
Enter > Copy ลงด้านล่าง
Re: สอบถามครับ การ Auto Filter
Posted: Mon Jul 01, 2013 6:14 pm
by yoguzaa
ขอบพระคุณในความช่วยเหลือที่ดีเสมอมา ครับ