Page 1 of 1
ถ้าจะเลือกลบ row ที่ไม่ใช้แต่มีดาต้าอยู่ ทำยังไงหรอคะ??
Posted: Fri Apr 20, 2012 2:20 pm
by Palmib
รบกวนหน่อยนะคะ คือหนูอยากทราบค่ะว่า สมมติถ้าหนูต้องการลบ row หลายๆ row ที่มีข้อมูลอยู่
โดยเลือกจาก range ของช่วงข้อมูลที่อยู่ใน column นึง ใน row นั้น เช่น[2.4,3.4] คือช่วงข้อมูล
ที่หนูต้องการ แต่ถ้าเกินจากนี้ หนูอยากลบทิ้งค่ะ แล้วก็เอาข้อมูลช่วงนั้นมา plot กราฟสถิติด้วยค่ะ
แล้วหนูต้องทำเป็น macro ด้วยค่ะ รบกวนหน่อยนะคะ ใครทราบตรงไหน พอตอบได้
ช่วยกรุณาทีนะคะ ขอบคุณล่วงหน้าค่ะ : ))
Re: ถ้าจะเลือกลบ row ที่ไม่ใช้แต่มีดาต้าอยู่ ทำยังไงหรอคะ??
Posted: Fri Apr 20, 2012 2:27 pm
by snasui
ช่วงข้อมูลควรเขียนให้เป็นช่วงครับ เช่น 2.4-3.4 จะมีความหมายว่าตั้งแต่ 2.4 จนถึง 3.4 กรณี 2.4, 3.4 จะหมายถึง 2 ค่าเท่านั้นคือ 2.4 และ 3.4
จากที่ถามมา เราสามารถกรองข้อมูลให้เหลือตามช่วงที่ต้องการได้ครับ หรือ กรองช่วงที่ไม่ต้องการแล้วลบทิ้งเพื่อให้เหลือเฉพาะช่วงที่ต้องการก็ได้
ส่วน VBA จำเป็นต้องเขียนมาก่อนเสมอ ติดตรงไหนก็ให้ถามตรงนั้น แจ้ง Module แจ้ง Procedure แสดงผลลัพธ์ที่ต้องการมาในไฟล์ตัวอย่างด้วย จะทำให้เข้าใจได้ง่ายขึ้นครับ
Re: ถ้าจะเลือกลบ row ที่ไม่ใช้แต่มีดาต้าอยู่ ทำยังไงหรอคะ??
Posted: Fri Apr 20, 2012 2:52 pm
by Palmib
สมมติว่าหนูพิจารณาช่องของ GRAM_LOAD ค่ะ
เอาแค่ช่วง 2.4-2.5 ค่ะ กรองช่วงที่ไม่ต้องการแล้วลบทิ้งเพื่อ
ให้เหลือเฉพาะช่วงที่ต้องการค่ะ ต้องทำยังไงหรอคะ
Re: ถ้าจะเลือกลบ row ที่ไม่ใช้แต่มีดาต้าอยู่ ทำยังไงหรอคะ??
Posted: Fri Apr 20, 2012 2:59 pm
by snasui
ลองตามภาพครับ
- คลิกที่ A1
- เข้าเมนู Data > Filter > Auto Filter
- คลิก Drop-down ที่ A1 > Custom
- ทำตามภาพด้านล่าง > ลบข้อมูลที่ได้ทิ้ง
Re: ถ้าจะเลือกลบ row ที่ไม่ใช้แต่มีดาต้าอยู่ ทำยังไงหรอคะ??
Posted: Fri Apr 20, 2012 3:26 pm
by Palmib
ขอบคุณมากๆๆนะคะ หนูทำได้แล้วค่ะ ในส่วนของการกรอง
แล้วถ้าใน VBA เวลาถ้าหนูไม่ได้ฟิกว่าเราจะทำกับ row ไหน column ไหน
โดยเวลาทำก็ให้ขึ้นอยู่กับเราเลือกเอง หนูต้องใช้ตัวแปรอะไรหรอคะ
แบบ xxx.Select หรือว่ายังไงหรอคะ
Re: ถ้าจะเลือกลบ row ที่ไม่ใช้แต่มีดาต้าอยู่ ทำยังไงหรอคะ??
Posted: Fri Apr 20, 2012 3:30 pm
by snasui
การเขียน VBA ให้ลองเขียนมาก่อนครับ เขียนมาเท่าไรก็เท่านั้น เอาที่ติดมาถามกัน หากไม่เคยเขียนก็ต้องพึ่งผู้ที่เขียนได้เขียนแทนครับ ติดตรงไหนก็ถามกัน การอธิบายตั้งแต่ต้นจนจบเพื่องานใด ๆ เกียวกับ VBA ใช้เวลามาก จึงเป็นเรื่องที่ต้องศึกษากันเองมาเป็นลำดับก่อนครับ
Re: ถ้าจะเลือกลบ row ที่ไม่ใช้แต่มีดาต้าอยู่ ทำยังไงหรอคะ??
Posted: Fri Apr 20, 2012 4:17 pm
by Palmib
Sub Macro3()
Selection.Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="<1.7", Operator:=xlOr, _
Criteria2:=">1.8"
Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.Delete
Selection.AutoFilter Field:=1
End Sub
หนูใช้โค้ดนี้ค่ะ แต่พอรันแล้ว บรรทัดบนสุดมันจะหายไปค่ะ
แก้อย่างไรดีคะ
Re: ถ้าจะเลือกลบ row ที่ไม่ใช้แต่มีดาต้าอยู่ ทำยังไงหรอคะ??
Posted: Fri Apr 20, 2012 4:30 pm
by snasui
แนบตัวอย่างที่ทดสอบ Code นี้มาด้วยครับ จากข้อมูลในไฟล์ในความเห็นก่อนทดสอบแล้วจะไม่เข้าเงื่อนไข จึงถูกลบไปทุกบรรทัดครับ
Re: ถ้าจะเลือกลบ row ที่ไม่ใช้แต่มีดาต้าอยู่ ทำยังไงหรอคะ??
Posted: Fri Apr 20, 2012 4:43 pm
by Palmib
ไฟล์นี้ค่ะ
Re: ถ้าจะเลือกลบ row ที่ไม่ใช้แต่มีดาต้าอยู่ ทำยังไงหรอคะ??
Posted: Fri Apr 20, 2012 4:52 pm
by snasui
ไฟล์ที่แนบมา น้อยกว่า 1.7 ทุกบรรทัด จึงถูกลบไปทั้งหมดครับ
Re: ถ้าจะเลือกลบ row ที่ไม่ใช้แต่มีดาต้าอยู่ ทำยังไงหรอคะ??
Posted: Fri Apr 20, 2012 5:04 pm
by Palmib
ขอโทษทีค่ะ หนูก็อบผิดคอลัมม์
Re: ถ้าจะเลือกลบ row ที่ไม่ใช้แต่มีดาต้าอยู่ ทำยังไงหรอคะ??
Posted: Fri Apr 20, 2012 5:10 pm
by snasui
ลองปรับ Code เป็นตามด้านล่างครับ
Code: Select all
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 4/20/2012 by Seagate
'
' Keyboard Shortcut: Ctrl+s
'
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="<=1.7", Operator:=xlOr, _
Criteria2:=">=1.8"
Range(Selection.Offset(1, 0), Selection.End(xlDown)).Select
Selection.EntireRow.Delete
Selection.AutoFilter Field:=1
End Sub
Re: ถ้าจะเลือกลบ row ที่ไม่ใช้แต่มีดาต้าอยู่ ทำยังไงหรอคะ??
Posted: Fri Apr 20, 2012 5:23 pm
by Palmib
ทำได้แล้วค่ะ
ขอบคุณมากมากเลยนะคะอาจารย์ (หนูเห็นคนอื่นเขาเรียกกันขออนุญาตนะคะ)
แต่หนูยังต้องทำอีกเยอะเลย เพราะหนูฝึกงานแล้วได้ทำโปรเจคเกี่ยวกับ macro
ถ้าหนูมีข้อสงสัยตรงไหน จะเข้ามาถามอาจารย์อีกนะคะ
ขอบคุณอีกครั้งค่ะ
Re: ถ้าจะเลือกลบ row ที่ไม่ใช้แต่มีดาต้าอยู่ ทำยังไงหรอคะ??
Posted: Mon Apr 23, 2012 2:50 pm
by Palmib
อาจารย์ค้ะ หนูรบกวนถามว่า
Dim topic As Range
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
For Each topic In Selection
If topic.Value = "PSA" Then
topic.Offset(0, 0).Activate
topic.Offset(0, 0).Select
topic.Offset(0, 0).AutoFilter
topic.AutoFilter Field:=1, Criteria1:="<=1.7", Operator:=xlOr, _
Criteria2:=">=1.9"
Range(topic.Offset(1, 0), topic.End(xlDown)).Select
Selection.EntireRow.Delete
Selection.AutoFilter Field:=1
End If
Next topic
จากโค้ดนี้นะคะ ค่าของ Field นี้ต้องเป็นแต่ตัวเลขอย่างเดียวหรอค้ะ
ถ้าหนูอยากให้มันเป็น Field เดียวกับ PSA ซึ่งก็คือ topic.Offset(0, 0).Select ค่ะ
ไม่ทราบว่าทำได้หรือเปล่าหรอคะ??
Re: ถ้าจะเลือกลบ row ที่ไม่ใช้แต่มีดาต้าอยู่ ทำยังไงหรอคะ??
Posted: Mon Apr 23, 2012 8:10 pm
by snasui
ต้องเป็นตัวเลขอย่างเดียวครับ
การ Filter จะนับว่าเซลล์ที่จะ Filter เป็นลำดับที่เท่าไรของ
Field ทั้งหมด เลข 1 หมายถึง Field ที่ 1
เมื่อต้องการให้เป็น Field เดียวกับ PSA ก็ไม่ต้องปรับอะไรครับ เพราะว่าใช้ If ตรวจสอบไว้เรียบร้อยแล้ว คือ Code
ดังนั้น หาก Field ที่ทำการ Loop ไม่ได้ชื่อ PSA มันก็ไม่ทำการ Filter มาให้อยู่แล้วครับ
การ Post ให้เป็น Code ดูที่กระทู้นี้ครับ
viewtopic.php?f=6&t=1187 จะได้สะดวกในการอ่านและ Copy ไปทดสอบ
Re: ถ้าจะเลือกลบ row ที่ไม่ใช้แต่มีดาต้าอยู่ ทำยังไงหรอคะ??
Posted: Tue Apr 24, 2012 8:20 am
by Palmib
แล้วถ้าเป็นการทำ histogram หล่ะคะ
เราสามารถนำมาโครเข้ามาช่วยได้ไหมคะ
Re: ถ้าจะเลือกลบ row ที่ไม่ใช้แต่มีดาต้าอยู่ ทำยังไงหรอคะ??
Posted: Tue Apr 24, 2012 12:48 pm
by snasui
Code Macro หรือ VBA สามารถที่จะเกี่ยวข้องได้ทุกงานครับ ลองทำมาก่อนได้เลยครับ ติดตรงไหนก็สามารถที่จะถามมาได้เรื่อย ๆ ครับ
Re: ถ้าจะเลือกลบ row ที่ไม่ใช้แต่มีดาต้าอยู่ ทำยังไงหรอคะ??
Posted: Wed Apr 25, 2012 1:59 pm
by Palmib
Code: Select all
Selection.AutoFilter Field:=2, Criteria1:="=0", Operator:=xlAnd
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
คือหนูรบกวนถามว่า โค้ดมาโครหนูเป็นแบบนี้
แต่หนูอยากกำหนดให้ Criteria1:= อะไรก็ได้แล้วแต่หนูจะกรองในฟิลด์นั้น
หนูต้องกำหนดค่าเป็นยังไงหรอคะ?
Re: ถ้าจะเลือกลบ row ที่ไม่ใช้แต่มีดาต้าอยู่ ทำยังไงหรอคะ??
Posted: Wed Apr 25, 2012 2:36 pm
by snasui
สามารถกำหนด Input Box มารับ Criteria ที่ใช้กรองข้อมูล ดูตัวอย่างตามด้านล่างครับ
Code: Select all
Dim Crit1 As String
Dim Crit2 As String
Crit1 = InputBox("Please enter your 1st criteria.")
Crit2 = InputBox("Please enter your 2nd criteria.")
Selection.AutoFilter Field:=2, Criteria1:=Crit1, Operator:=xlAnd
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy