ล้างข้อมูลแบบมีเงื่อไข

[yangkodza]

Capture2.GIF

จากตัวอย่างกรณีที่มีนักเรียน 10 คนแล้วกดเราล้างข้อมูล
ก็จะล้างได้ตามปกติ

แต่เราต้องการให้ n5 เป็นตัวแปร
แล้วเราสามารถล้างข้อมูลตามการอ้างอิงของ N5 ได้
ต้องปรับ VBA แบบไหนครับ

สมุดงาน1.xlsm

[puriwutpokin]

ปรับเป็น

Code: Select all

Sub Macro1()
    i = [n5]
    Range("A10:K" & i).Select
    Selection.ClearContents
End Sub

[yangkodza]

ขอบคุณครับ