ใส่ข้อมูลใน เซลล์ อัตโนมัติ

[nilatxay]

เพิ่ม Sheet อัตโนมัติตามรายชื่อที่ให้ไว้ล่วงหน้า ในsheet1
จากนั้น copy ข้อมูลใน Sheet Temp ลงในแต่ละsheet อัตโนมัติ

[snasui]

การเพิ่มชีทอัตโนมัติและนำข้อมูลที่เกี่ยวข้องไปวาง ต้องใช้ PivotTable หรือ VBA หากใช้ VBA จำเป็นต้องเขียนมาเองก่อน ติดแล้วค่อยถามกันตามกฎการใช้บอร์ดข้อ 5 ด้านบนครับ ควรยกตัวอย่างคำตอบที่ต้องการมาด้วย จะได้เข้าใจตรงกันครับ

[nilatxay]

ผมดืงเพิ่ม Sheet อัตโนมัติตามรายชื่อที่กำนดไว้ได้แล้ว

ลวมทังหมดประมาณ 300 sheet และผมต้องการ copy ข้อมูลทังหมดใน sheet Temp ไปใส่ในแต่ละ sheet ทังหมด โดยให้ ชื่อ Couse ID ตรงกับ ชื่อแต่ละ sheet

ที่จริงมีหลาย sheet แต่จะมานั่ง copy คงจะนาน

[snasui]

กรณีข้อมูลจำนวนมากและมีหลายชีท ควรใช้ VBA ในการจัดการครับ

[nilatxay]

sheet name ที่ดืงออกมาผมใช้ VBA

Code: Select all

Sub AddWorkSheets() 
    Dim i As Long 
    Dim r As Range 
    On Error Resume Next 
    With Worksheets("Sheet2") 
        Set r = .Range("A1", .Range("A65536").End(xlUp)) 
    End With 
    For i = 1 To r.Count 
        Worksheets.Add(After:=Worksheets(Worksheets.Count)) _
            .Name = r.Cells(i, 1).Value 
    Next i 
End Sub

แต่จะ copy ข้อมูล ใส่หลายชีท จะเขียน code VBA ยังไง

[snasui]

Code นั้นไม่เกี่ยวกับการนำข้อมูลมาวาง เป็นแต่เพียงการเพิ่มชีทเท่านั้น

ให้เขียน Code สำหรับการนำข้อมูลไปวางมาเองก่อน ติดแล้วค่อยถามกัน

Code ที่นำมาถามควรให้ตรงกับเรื่องที่เป็นปัญหา ไม่ควรนำ Code ที่ใช้งานได้และไม่เกี่ยวข้องกับเรื่องที่เป็นปัญหามาถามครับ

การโพสต์ Code ให้แสดงเป็น Code ให้ดูตัวอย่างตาม link นี้ viewtopic.php?f=3&t=1187 เพื่อสะดวกต่อการอ่าน การ Copy ไปทดสอบ

[nilatxay]

ช่วยเขียน code VBA copy ไปใส่แต่ชื่ โดยให้ชื่อ Code ID กับชื่อSheet ตรงกัน

[snasui]

ช่วยเขียน code VBA copy ไปใส่แต่ชื่ โดยให้ชื่อ Code ID กับชื่อSheet ตรงกัน

อ่านที่ผมตอบไปด้วยครับ

ให้เขียน Code สำหรับการนำข้อมูลไปวางมาเองก่อน ติดแล้วค่อยถามกัน