Page 1 of 1
สอบถามการทำ FillDown
Posted: Sat Jan 19, 2019 9:20 pm
by borsalino
ผมต้องการให้ FillDown เริ่มต้นที่ B4
ตาม Row เริ่มต้นที่ A4
เพิ่มลด ตาม Row ครับ
Re: สอบถามการทำ FillDown
Posted: Sat Jan 19, 2019 9:29 pm
by snasui
ตัวอย่าง Code ครับ
Code: Select all
Range("b3:e3").AutoFill Destination:=Range("b3:e7"), Type:=xlFillSeries
Re: สอบถามการทำ FillDown
Posted: Sat Jan 19, 2019 9:40 pm
by borsalino
Code: Select all
Range("b3:e3").AutoFill Destination:=Range("b3:e7"), Type:=xlFillSeries
อาจารย์ครับ
Destination:=Range("b3:e7")
จะกำหนดให้เพิ่มลดตาม Row ของลำดับยังไงครับ
Re: สอบถามการทำ FillDown
Posted: Sat Jan 19, 2019 9:50 pm
by snasui
สร้างต้วแปรขึ้นมา 1 ตัวครับ แล้วค่อยนำไปใช้ใน Destination ยกตัวอย่างเช่น
Code: Select all
dim i as integer
i = range("a" & rows.count).end(xlup).row
Range("b3:e3").AutoFill Destination:=Range("b3:e" & i), Type:=xlFillSeries
Re: สอบถามการทำ FillDown
Posted: Sun Jan 20, 2019 12:13 am
by borsalino
ดัดแปลงใช้งานเรียบร้อยครับ ขอบคุณครับอาจารย์