Page 1 of 1
ใส่ข้อมูลใน เซลล์ อัตโนมัติ
Posted: Thu May 15, 2014 9:55 am
by nilatxay
เพิ่ม Sheet อัตโนมัติตามรายชื่อที่ให้ไว้ล่วงหน้า ในsheet1
จากนั้น copy ข้อมูลใน Sheet Temp ลงในแต่ละsheet อัตโนมัติ
Re: ใส่ข้อมูลใน เซลล์ อัตโนมัติ
Posted: Thu May 15, 2014 10:20 am
by snasui
การเพิ่มชีทอัตโนมัติและนำข้อมูลที่เกี่ยวข้องไปวาง ต้องใช้ PivotTable หรือ VBA หากใช้ VBA จำเป็นต้องเขียนมาเองก่อน ติดแล้วค่อยถามกันตามกฎการใช้บอร์ดข้อ 5 ด้านบนครับ
ควรยกตัวอย่างคำตอบที่ต้องการมาด้วย จะได้เข้าใจตรงกันครับ
Re: ใส่ข้อมูลใน เซลล์ อัตโนมัติ
Posted: Thu May 15, 2014 10:50 am
by nilatxay
ผมดืงเพิ่ม Sheet อัตโนมัติตามรายชื่อที่กำนดไว้ได้แล้ว
ลวมทังหมดประมาณ 300 sheet และผมต้องการ copy ข้อมูลทังหมดใน sheet Temp ไปใส่ในแต่ละ sheet ทังหมด โดยให้ ชื่อ Couse ID ตรงกับ ชื่อแต่ละ sheet
ที่จริงมีหลาย sheet แต่จะมานั่ง copy คงจะนาน
Re: ใส่ข้อมูลใน เซลล์ อัตโนมัติ
Posted: Thu May 15, 2014 11:10 am
by snasui
กรณีข้อมูลจำนวนมากและมีหลายชีท ควรใช้ VBA ในการจัดการครับ
Re: ใส่ข้อมูลใน เซลล์ อัตโนมัติ
Posted: Thu May 15, 2014 11:25 am
by 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 ยังไง
Re: ใส่ข้อมูลใน เซลล์ อัตโนมัติ
Posted: Thu May 15, 2014 11:30 am
by snasui
Code นั้นไม่เกี่ยวกับการนำข้อมูลมาวาง เป็นแต่เพียงการเพิ่มชีทเท่านั้น
ให้เขียน Code สำหรับการนำข้อมูลไปวางมาเองก่อน ติดแล้วค่อยถามกัน
Code ที่นำมาถามควรให้ตรงกับเรื่องที่เป็นปัญหา ไม่ควรนำ Code ที่ใช้งานได้และไม่เกี่ยวข้องกับเรื่องที่เป็นปัญหามาถามครับ
การโพสต์ Code ให้แสดงเป็น Code ให้ดูตัวอย่างตาม link นี้
viewtopic.php?f=3&t=1187 เพื่อสะดวกต่อการอ่าน การ Copy ไปทดสอบ
Re: ใส่ข้อมูลใน เซลล์ อัตโนมัติ
Posted: Thu May 15, 2014 12:07 pm
by nilatxay
ช่วยเขียน code VBA copy ไปใส่แต่ชื่ โดยให้ชื่อ Code ID กับชื่อSheet ตรงกัน
Re: ใส่ข้อมูลใน เซลล์ อัตโนมัติ
Posted: Thu May 15, 2014 1:24 pm
by snasui
nilatxay wrote:ช่วยเขียน code VBA copy ไปใส่แต่ชื่ โดยให้ชื่อ Code ID กับชื่อSheet ตรงกัน
อ่านที่ผมตอบไปด้วยครับ
snasui wrote:ให้เขียน Code สำหรับการนำข้อมูลไปวางมาเองก่อน ติดแล้วค่อยถามกัน