vba ถ้าต้องการลบแถวครั้งละมากกว่า 1 แถว ต้องปรับโค้ดอย่างไรครับ

[10idlnw]

โค้ดด้านล่าง ใช้สำหรับลบแถวได้ทีละแถว

Code: Select all

Private Sub CommandButton1_Click()
    ActiveCell.EntireRow.Delete
End Sub

แต่ถ้าผมต้องการลบครั้งละมากกว่า 1 แถว และคำสั่งทำงานเฉพาะพื้นที่ๆกำหนดเท่านั้น(ภายใน A1:B15) ต้องปรับโค้ดอย่างไรครับ นี่คือตัวอย่างที่ผมลองทำดู แต่ใช้ไม่ได้ผลครับ

Code: Select all

Private Sub CommandButton1_Click()
If Not Intersect(Target, Range("A1:B15")) Is Nothing Then
    ActiveCell.EntireRow.Delete
End If
End Sub

[snasui]

เดือน ก.ค. 2565 คุณ 10idlnw ยังไม่ได้แจ้งผลหลายกระทู้ กรุณาแจ้งผลตามกฎการใช้บอร์ดข้อ 6 ด้านบนด้วยครับ แจ้งผลการใช้งาน

[10idlnw]

ต้องของอภัยอาจารย์ที่พลาดไม่ได้แจ้งผลไปหลายกระทู้ ตอนนี้ได้เข้าไปแจ้งผลในแต่ละกระทู้ตามกฎครบเป็นที่เรียบร้อยแล้วครับ

[snasui]

ตัวอย่างการลบบรรทัดของพื้นที่ที่เลือกไว้ครับ

Code: Select all

Private Sub CommandButton1_Click()
'If Not Intersect(Selection, Me.Range("A1:B15")) Is Nothing Then
    Selection.EntireRow.Delete
'End If
End Sub

[10idlnw]

ขอบคุณมากครับ อาจารย์ ตรงตามความต้องการเลยครับ