Snasui Excel Forum

Posted: **Sat Jan 19, 2019 9:20 pm**

ผมต้องการให้ FillDown เริ่มต้นที่ B4
ตาม Row เริ่มต้นที่ A4

เพิ่มลด ตาม Row ครับ

Posted: **Sat Jan 19, 2019 9:29 pm**

ตัวอย่าง Code ครับ

Range("b3:e3").AutoFill Destination:=Range("b3:e7"), Type:=xlFillSeries

Posted: **Sat Jan 19, 2019 9:40 pm**

Range("b3:e3").AutoFill Destination:=Range("b3:e7"), Type:=xlFillSeries

อาจารย์ครับ
Destination:=Range("b3:e7")
จะกำหนดให้เพิ่มลดตาม Row ของลำดับยังไงครับ

Posted: **Sat Jan 19, 2019 9:50 pm**

สร้างต้วแปรขึ้นมา 1 ตัวครับ แล้วค่อยนำไปใช้ใน Destination ยกตัวอย่างเช่น

dim i as integer
i = range("a" & rows.count).end(xlup).row
Range("b3:e3").AutoFill Destination:=Range("b3:e" & i), Type:=xlFillSeries

Posted: **Sun Jan 20, 2019 12:13 am**

ดัดแปลงใช้งานเรียบร้อยครับ ขอบคุณครับอาจารย์

สอบถามการทำ FillDown