Snasui Excel Forum

Posted: **Sat Oct 10, 2020 11:31 am**

สอบถามอาจารย์ทีครับ
ผมต้องการให้คำสั่ง copy sheet "A" และตั้งชื่อตามข้อมูลใน sheet2 cell A1-A20
แต่พอลองเขียนแล้ว run ฟ้อง code error รบกวนแนะนำทีครับ

อ้างอิงตามเอกสารแนบครับ

Posted: **Sat Oct 10, 2020 2:04 pm**

กรุณา Update Version Excel ที่ใช้ตาม Link นี้ด้วยครับ viewtopic.php?f=6&p=103177#p103177

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

Code: Select all

With Worksheets("sheet2")
    Set r = .Range("A1", .Range("A100").End(xlUp))
End With
For i = 1 To r.Count
    Worksheets("A").Copy After:=Worksheets(Worksheets.Count)
    ActiveSheet.Name = r.Cells(i, 1).Value
Next i

Snasui Excel Forum

copy sheet และ ตั้งชื่อ พร้อมกัน

copy sheet และ ตั้งชื่อ พร้อมกัน

Re: copy sheet และ ตั้งชื่อ พร้อมกัน