ถ้าจะเลือกลบ row ที่ไม่ใช้แต่มีดาต้าอยู่ ทำยังไงหรอคะ??

[Palmib]

รบกวนหน่อยนะคะ คือหนูอยากทราบค่ะว่า สมมติถ้าหนูต้องการลบ row หลายๆ row ที่มีข้อมูลอยู่
โดยเลือกจาก range ของช่วงข้อมูลที่อยู่ใน column นึง ใน row นั้น เช่น[2.4,3.4] คือช่วงข้อมูล
ที่หนูต้องการ แต่ถ้าเกินจากนี้ หนูอยากลบทิ้งค่ะ แล้วก็เอาข้อมูลช่วงนั้นมา plot กราฟสถิติด้วยค่ะ
แล้วหนูต้องทำเป็น macro ด้วยค่ะ รบกวนหน่อยนะคะ ใครทราบตรงไหน พอตอบได้
ช่วยกรุณาทีนะคะ ขอบคุณล่วงหน้าค่ะ : ))

[snasui]

ช่วงข้อมูลควรเขียนให้เป็นช่วงครับ เช่น 2.4-3.4 จะมีความหมายว่าตั้งแต่ 2.4 จนถึง 3.4 กรณี 2.4, 3.4 จะหมายถึง 2 ค่าเท่านั้นคือ 2.4 และ 3.4

จากที่ถามมา เราสามารถกรองข้อมูลให้เหลือตามช่วงที่ต้องการได้ครับ หรือ กรองช่วงที่ไม่ต้องการแล้วลบทิ้งเพื่อให้เหลือเฉพาะช่วงที่ต้องการก็ได้

ส่วน VBA จำเป็นต้องเขียนมาก่อนเสมอ ติดตรงไหนก็ให้ถามตรงนั้น แจ้ง Module แจ้ง Procedure แสดงผลลัพธ์ที่ต้องการมาในไฟล์ตัวอย่างด้วย จะทำให้เข้าใจได้ง่ายขึ้นครับ

[Palmib]

สมมติว่าหนูพิจารณาช่องของ GRAM_LOAD ค่ะ
เอาแค่ช่วง 2.4-2.5 ค่ะ กรองช่วงที่ไม่ต้องการแล้วลบทิ้งเพื่อ
ให้เหลือเฉพาะช่วงที่ต้องการค่ะ ต้องทำยังไงหรอคะ

[snasui]

ลองตามภาพครับ

1. คลิกที่ A1
2. เข้าเมนู Data > Filter > Auto Filter
3. คลิก Drop-down ที่ A1 > Custom
4. ทำตามภาพด้านล่าง > ลบข้อมูลที่ได้ทิ้ง

[Palmib]

ขอบคุณมากๆๆนะคะ หนูทำได้แล้วค่ะ ในส่วนของการกรอง
แล้วถ้าใน VBA เวลาถ้าหนูไม่ได้ฟิกว่าเราจะทำกับ row ไหน column ไหน
โดยเวลาทำก็ให้ขึ้นอยู่กับเราเลือกเอง หนูต้องใช้ตัวแปรอะไรหรอคะ
แบบ xxx.Select หรือว่ายังไงหรอคะ

[snasui]

การเขียน VBA ให้ลองเขียนมาก่อนครับ เขียนมาเท่าไรก็เท่านั้น เอาที่ติดมาถามกัน หากไม่เคยเขียนก็ต้องพึ่งผู้ที่เขียนได้เขียนแทนครับ ติดตรงไหนก็ถามกัน การอธิบายตั้งแต่ต้นจนจบเพื่องานใด ๆ เกียวกับ VBA ใช้เวลามาก จึงเป็นเรื่องที่ต้องศึกษากันเองมาเป็นลำดับก่อนครับ

[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

หนูใช้โค้ดนี้ค่ะ แต่พอรันแล้ว บรรทัดบนสุดมันจะหายไปค่ะ
แก้อย่างไรดีคะ

[snasui]

แนบตัวอย่างที่ทดสอบ Code นี้มาด้วยครับ จากข้อมูลในไฟล์ในความเห็นก่อนทดสอบแล้วจะไม่เข้าเงื่อนไข จึงถูกลบไปทุกบรรทัดครับ

[Palmib]

ไฟล์นี้ค่ะ

[snasui]

ไฟล์ที่แนบมา น้อยกว่า 1.7 ทุกบรรทัด จึงถูกลบไปทั้งหมดครับ

[Palmib]

ขอโทษทีค่ะ หนูก็อบผิดคอลัมม์

[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

[Palmib]

ทำได้แล้วค่ะ
ขอบคุณมากมากเลยนะคะอาจารย์ (หนูเห็นคนอื่นเขาเรียกกันขออนุญาตนะคะ)
แต่หนูยังต้องทำอีกเยอะเลย เพราะหนูฝึกงานแล้วได้ทำโปรเจคเกี่ยวกับ macro
ถ้าหนูมีข้อสงสัยตรงไหน จะเข้ามาถามอาจารย์อีกนะคะ
ขอบคุณอีกครั้งค่ะ

[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 ค่ะ
ไม่ทราบว่าทำได้หรือเปล่าหรอคะ??

[snasui]

ต้องเป็นตัวเลขอย่างเดียวครับ

การ Filter จะนับว่าเซลล์ที่จะ Filter เป็นลำดับที่เท่าไรของ Field ทั้งหมด เลข 1 หมายถึง Field ที่ 1

เมื่อต้องการให้เป็น Field เดียวกับ PSA ก็ไม่ต้องปรับอะไรครับ เพราะว่าใช้ If ตรวจสอบไว้เรียบร้อยแล้ว คือ Code

Code: Select all

If topic.Value = "PSA" Then

ดังนั้น หาก Field ที่ทำการ Loop ไม่ได้ชื่อ PSA มันก็ไม่ทำการ Filter มาให้อยู่แล้วครับ

การ Post ให้เป็น Code ดูที่กระทู้นี้ครับ viewtopic.php?f=6&t=1187 จะได้สะดวกในการอ่านและ Copy ไปทดสอบ

[Palmib]

แล้วถ้าเป็นการทำ histogram หล่ะคะ
เราสามารถนำมาโครเข้ามาช่วยได้ไหมคะ

[snasui]

Code Macro หรือ VBA สามารถที่จะเกี่ยวข้องได้ทุกงานครับ ลองทำมาก่อนได้เลยครับ ติดตรงไหนก็สามารถที่จะถามมาได้เรื่อย ๆ ครับ

[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:= อะไรก็ได้แล้วแต่หนูจะกรองในฟิลด์นั้น
หนูต้องกำหนดค่าเป็นยังไงหรอคะ?

[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