Page 1 of 1
รบกวนสอบถามกรณีล้างข้อมูลแบบมีเงื่อนไข
Posted: Sat Mar 19, 2016 10:07 am
by 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
Re: รบกวนสอบถามกรณีล้างข้อมูลแบบมีเงื่อนไข
Posted: Sat Mar 19, 2016 10:09 am
by snasui
อ่านกฎข้อ 4 เรื่องการแนบภาพ แนบไฟล์ แล้วแนบภาพมาใหม่อีกครั้งครับ
Re: รบกวนสอบถามกรณีล้างข้อมูลแบบมีเงื่อนไข
Posted: Sat Mar 19, 2016 10:26 am
by yangkodza
snasui wrote: อ่านกฎข้อ 4 เรื่องการแนบภาพ แนบไฟล์ แล้วแนบภาพมาใหม่อีกครั้งครับ
แก้ไขข้อมูลเรียบร้อยแล้วครับ
Re: รบกวนสอบถามกรณีล้างข้อมูลแบบมีเงื่อนไข
Posted: Sat Mar 19, 2016 10:36 am
by 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
Re: รบกวนสอบถามกรณีล้างข้อมูลแบบมีเงื่อนไข
Posted: Sat Mar 19, 2016 11:06 am
by yangkodza
snasui wrote: ตัวอย่าง 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