Page 1 of 1

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

Posted: Thu Sep 29, 2016 2:14 pm
by yangkodza
Capture2.GIF
จากตัวอย่างกรณีที่มีนักเรียน 10 คนแล้วกดเราล้างข้อมูล
ก็จะล้างได้ตามปกติ

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

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

Posted: Thu Sep 29, 2016 2:39 pm
by puriwutpokin
ปรับเป็น

Code: Select all

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


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

Posted: Thu Sep 29, 2016 3:13 pm
by yangkodza
ขอบคุณครับ