สอบถาม vba Delete

[Leng]

สอบถามครับ พอดีผมต้องการกดลบงานทีละบันทัด โดย ใช้ vba โดยกำหนดให้ลบเฉพาะช่วงข้อมมูลของ Cloumn A2:J500 แต่ให้กดลบได้ทีละบันทัดเท่านั้น
อันนี้โค๊ดที่ผมลองทำดูครับแต่ปัญหาคือ ช่วงข้อมูลของ cloum K ก็จะหายไปด้วย

Code: Select all

Sub FastDeleteMethod()
    Dim rng As Range, rngFiltered As Range
    Set rng = Range("A2:J500" & Cells(Rows.Count, "A").End(xlUp).Row)
    With rng
        .AutoFilter Field:=1, Criteria1:=0, Operator:=xlOr, Criteria2:="="
        On Error Resume Next
        Set rngFiltered = rng.SpecialCells(xlCellTypeVisible)
        If Err = 0 Then rngFiltered.EntireRow.Delete
        On Error GoTo 0
    End With
End Sub

[snasui]

ลองปรับ Code ตรง Delete เป็นด้านล่างครับ

If Err = 0 Then rngFiltered.Delete Shift:=xlUp

[Leng]

สามารถลบได้ทีละบันทัดได้แล้วครับ แต่ปัญหาคือ
- เวลากดปุ่มจะลบ cloumn K ไปด้วยครับยากให้ลบเฉพาะ cloumA2:J เท่านั้นครับและยากให้ลบจากล่างขึ้นบนครับ

Code: Select all

    Dim rng As Range, rngFiltered As Range
    Set rng = Range("A2:J500" & Cells(Rows.Count, "A").End(xlUp).Row)
    With rng
        .AutoFilter Field:=1, Criteria1:=0, Operator:=xlOr, Criteria2:="="
        On Error Resume Next
        Set rngFiltered = rng.SpecialCells(xlCellTypeVisible)
       If Err = 0 Then rngFiltered.Delete Shift:=xlUp
        On Error GoTo 0
    End With

[snasui]

ต้องการจะลบด้วยเงื่อนไขใดบ้างช่วยแจ้งมาให้ละเอียดครับ

ที่ทำ Filter ไว้ตาม Code ที่แนบมาถ้าไม่ได้หมายถังการลบเฉพาะบรรทัดที่ได้จากการ Filter แล้วหมายถึงต้องการลบบรรทัดด้วยเงื่อนไขใดครับ

[yodpao.b]

ไม่มีอะไรครับ อยากเก็บไว้ดู code

[Leng]

ยากให้กดปุ่ม button แล้วลบข้อมูล cloumA2:J เท่านั้น และยากให้ลบจากล่างขึ้นบนทีละบันทัดครับ

[snasui]

ตัวอย่าง Code ครับ

Code: Select all

Private Sub CommandButton1_Click()
    With Sheets(1)
        .Range("a2", .Range("a" & .Rows.Count).End(xlUp)) _
            .Resize(, 10).ClearContents
    End With
End Sub

เป็นการ Clear ข้อมูลทิ้งไม่ใช่การลบที่ต้องการกำหนดขยับเซลล์ตามมา หากต้องการลบแบบขยับเซลล์ให้ลองปรับปรุง Code มาเองก่อน ติดแล้วค่อยถามกันต่อครับ

[Leng]

ตอนนีผมสามารถลบได้ทีละบันทัดแล้วครับแต่ปัญหาคือ
- ยังไม่สามารถลบข้อมูลจากล่างขึ้นบนได้ เฉพาะในช่วง A2:J500 ได้ครับ

Code: Select all

Sub sbVBS_To_Delete_EntireRow_For_Loop()
Dim iCntr
    For iCntr = 1 To 1 Step 1
        Rows(1).EntireRow.Delete -1
    Next
End Sub

[snasui]

ตัวอย่าง Code ครับ

Code: Select all

Dim iCntr As Long, l As Long
With Sheets("Sheet1")
    iCntr = .Range("a" & .Rows.Count).End(xlUp).Row
    For l = iCntr To 2 Step -1
        .Range("a" & l).Resize(, 10).Delete shift:=xlUp
    Next
End With

[Leng]

จากโค๊ดที่อาจารย์ให้มาครับ ผมนำโค๊ดมาใส่ครับแต่ผลที่ได้คือ
สามารถ ลบได้ใน cloumn A2:J500 ได้ครับ แต่ไม่สามารถลบทีละบันทัดจากล่างขึ้นบนได้ครับ

ในสิ่งทีผมคิดไว้คือ
ยากให้กดปุ่มแล้วก็ลบทีละบันทัดขึ้นเรื่อยๆครับ โดยการกด 1 ครั้ง คือการลบ 1 ครั้งครับ โดยกำหนดแค่ช่วงข้อมูล cloumn A2:J500 เท่านั้นครับในส่วนอื่นที่ไม่ได้กำหนดไว้ก็จะไม่ถูกลบครับ

[snasui]

ในสิ่งทีผมคิดไว้คือ
ยากให้กดปุ่มแล้วก็ลบทีละบันทัดขึ้นเรื่อยๆครับ โดยการกด 1 ครั้ง คือการลบ 1 ครั้งครับ โดยกำหนดแค่ช่วงข้อมูล cloumn A2:J500 เท่านั้นครับในส่วนอื่นที่ไม่ได้กำหนดไว้ก็จะไม่ถูกลบครับ

ควรแจ้งมาเช่นนี้ครับ จะได้ทราบว่าต้องการจะทำอะไร แบบไหน อย่างไร

ตัวอย่าง Code ครับ

Code: Select all

With Sheets("Sheet1")
    .Range("a" & .Rows.Count).End(xlUp).Resize(, 10).Delete shift:=xlUp
End With

[Leng]

ได้แล้วครับขอบพระคุณมากครับ