รบกวนสอบถามกรณีล้างข้อมูลแบบมีเงื่อนไข

[yangkodza]

a001.JPG

a002.JPG

จากภาพ ต้องการล้างข้อมูลแบบอ้างอิงเซล E7
เราจะปรับสูตรอย่างไรให้สามารถล้างข้อมูล โดยอ้างอิงจำนวนนักเรียนจากเซล E7 ได้ครับ

Code: Select all

Sub Macro1()

    Sheets("ห้อง 1 เทอม 1").Select
    ActiveWindow.SmallScroll Down:=24
    Range("A40:AL57").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("B8").Select
    Sheets("ข้อมูล").Select
End Sub

test.xlsm

[snasui]

อ่านกฎข้อ 4 เรื่องการแนบภาพ แนบไฟล์ แล้วแนบภาพมาใหม่อีกครั้งครับ

[yangkodza]

อ่านกฎข้อ 4 เรื่องการแนบภาพ แนบไฟล์ แล้วแนบภาพมาใหม่อีกครั้งครับ

แก้ไขข้อมูลเรียบร้อยแล้วครับ

[snasui]

ตัวอย่าง Code กรณีนำตัวแปรเข้ามาช่วยกำหนดช่วงครับ

Code: Select all

allrow = Range("E7").Value
Sheets("ห้อง 1 เทอม 1").Select
Range("A8:AL" & allrow).Select
Selection.ClearContents
Range("B8").Select
Sheets("ข้อมูล").Select

[yangkodza]

ตัวอย่าง Code กรณีนำตัวแปรเข้ามาช่วยกำหนดช่วงครับ

Code: Select all

allrow = Range("E7").Value
Sheets("ห้อง 1 เทอม 1").Select
Range("A8:AL" & allrow).Select
Selection.ClearContents
Range("B8").Select
Sheets("ข้อมูล").Select

ขอบคุณมากครับอาจารย์
ผมปรับ code จากตัวอย่างของอาจารย์ สามารถใช้งานได้แล้วครับ

Code: Select all

Sub Macro2()
allrow = Range("E7").Value
Sheets("ห้อง 1 เทอม 1").Select
Range("A57:AL" & allrow + 8).Select
Selection.ClearContents
Range("B8").Select
Sheets("ข้อมูล").Select
End Sub