Snasui Excel Forum

1.มีนักเรียน 35 คน อยากได้ชีทเพิ่มเข้ามา 35 ซีทโดยอัตโนมัติ หรือ ต่อมาในชีทเดิมก็ได้โดยมีข้อมูลจากข้อมูลนักเรียนและซีทผลการเรียน โดยไม่ต้องมาใส่ $อยู่ทีละคน ทีละเซล น่าจะเป็นแบบจดหมายเวียนของ word ได้หรือเปล่าครับ
2.ข้อมูลที่เขาให้มานามสกุลกับชื่อติดกันอยู่อยากจะแยกชื่อสกุลด้วย
3.วันเดือนปีเกิดไม่อยากพิมพ์ใหม่ทั้งหมด
ขอบคุณครับ

ต้องใช้ VBA เข้ามาช่วยครับ และหากต้องใช้ VBA ก็ต้องเขียนมาดูก่อนครับ

jeerasakj wrote:1.มีนักเรียน 35 คน อยากได้ชีทเพิ่มเข้ามา 35 ซีทโดยอัตโนมัติ หรือ ต่อมาในชีทเดิมก็ได้โดยมีข้อมูลจากข้อมูลนักเรียนและซีทผลการเรียน โดยไม่ต้องมาใส่ $อยู่ทีละคน ทีละเซล น่าจะเป็นแบบจดหมายเวียนของ word ได้หรือเปล่าครับ

ช่วยแสดงข้อมูลให้เห็นว่าข้อมูลต้นทางอยู่ที่ไหนและต้องการให้แสดงผลที่ไหน ต่อในชีทเดิมคือต่อในชีทไหนครับ กรณีเพิ่มชีทอัตโนมัติจำเป็นต้องพึ่ง VBA อย่างที่คุณ bank9597 ตอบไปแล้วครับ

jeerasakj wrote:2.ข้อมูลที่เขาให้มานามสกุลกับชื่อติดกันอยู่อยากจะแยกชื่อสกุลด้วย
3.วันเดือนปีเกิดไม่อยากพิมพ์ใหม่ทั้งหมด
ขอบคุณครับ

การแยกชื่อ สกุลต้องการแยกไว้ในเซลล์ไหน อย่างไร ช่วยทำตัวอย่างมาด้วยครับ และวันเดือนปีเกิดที่บอกว่าไม่ต้องการพิมพ์ใหม่นั้นตั้งใจว่าจะพิมพ์ใหม่ในลักษณะใดครับ

1. ไฟล์ทดลอง มีทั้งหมด 4 ชีท คือ
1.1 ชีท ข้อมูลพื้นฐาน ซึ่งจะลิงห์ไปยัง ชีทผลการเรียนด้านบน และ ชีท 1 ด้านบน และด้านล่างที่เป็นผลการเรียนที่หลักสูตร
1.2 ชีท ข้อมูลนักเรียนจะเอาข้อมูลจากไฟล์ ป.5 มาใส่ แต่ชื่อสกุล ในไฟล์ทดลองแยกคอลัมกันระหว่างชื่อ สกุล แต่ไฟล์ ป .5 ไม่แยกคอลัมน์ วันเดือนปีปีเกิดก้เหมือนกันคือไฟล์ทดลองแยกคอลัมแต่ไฟลฺ ป.5 ไม่แยกคอลัมน์ ซึ่งถ้าไม่ใช้สูตรก็ต้องพิมพ์ใหม่หมดเลยทั้งหมด
1.3 ชีท ผลการเรียน เมื่อเรากรอกจะลิงห์ไปยัง ชีท 1 ที่ผลการเรียน
1.4 ชีท 1 คือลิงห์ที่จะมาจาก เลขที่ 1 ของข้อมูลนักเรียนโดยจะเอาใส่ด้านบน และใส่ที่ผลการเรียน โดยเวลาหน่วยจะเอามาข้อมูลพื้นฐาน
1.5 นักเรียนจะมีทั้งหมด 35 คน ปัจุบันผมต้องแทรกชีททีละคนแล้วแล้วใช้ สูตร= ลิงห์ไปยังไฟล์ชีทข้อมูลพื้นฐาน ชีท ป.5 ชีทผลการเรียน ทีละเซลล์ จนครบทุกคน copyสูตร ค่าก็เพี้ยนครับ
2. ผมเขียน VBA ไม่เป็นหรอกครับ แต่สูตรก็จะใช้ไม่เป็นทุกตัวเลยใช้ใช้แค่ SUM = if ได้บ้างเล็กน้อย
3. ไฟล์พวกนี้ผมเห็นมีให้สนับสนุนมากใน internet แต่ผมอยากทำเองมากกว่า เวลามีปัญหาจะได้แก้ได้ด้วยตนเอง

แนบไฟล์ตัวอย่างมาด้วยดีกว่าครับจะได้เห็นภาพว่าปัจจุบันทำอย่างไรและต้องการจะให้เป็นอย่างไร การตอบจะได้อ้างอิงชีทอ้างอิงเซลล์ ทำให้เข้าใจได้ง่าย กรณีมีไฟล์ที่ได้มาทางอินเตอร์เนตแล้วเกิดข้อสงสัยว่าใช้วิธีการอย่างไรก็นำมาถามกันได้ครับ เพื่อจะได้เข้าใจและสามารถปรับปรุงเปลี่ยนแปลงเองได้ ไม่ต้องทำเองใหม่ทั้งหมด ช่วยลดงาน ลดเวลาครับ

แนบไฟล์ให้แล้วครับ ปัญหาผมต้อง copy ฐานข้อม๔ลจากไฟล์ ป.5 มาทีละคำเช่น ชื่อ สกุลนักเรียน วันเดืิอนปีเกิด แล้วผมต้องสร้างลิงส์ให้อย่างนี้จนครบนักเรียนทั้งหมด

ผมนำไฟล์ ป.5 มาเก็บเป็นชีท ป.5 อยู่ในไฟล์ทดลองเพื่อสะดวกในการเขียนสูตร กรณีต้องการแยกไปทำอีกไฟล์สามารใช้การ Cut ข้อมูลไปได้ครับ
ขึ้นตอนหลัก ๆ ในการทำไฟล์ทดลองตามไฟล์แนบ

1. ปรับชีท ป.5 โดยแทรกคอลัมน์ A และระบุชั้น
2. ปรับชีท ป.5 โดยปรับชื่อ-สกุลให้เป็นมาตฐานเดียวกัน
3. ปรับชีท ป.5 โดยปรับวันที่ให้เป็นมาตฐานเดียวกัน
4. ปรับชีทข้อมูลนักเรียนโดยเพิ่ม Validation ที่เซลล์ N1
5. ปรับชีทข้อมูลนักเรียนโดยเพิ่มเซลล์ P1 เพื่อใช้นับว่าชั้นที่เลือกใน N1 มีนักเรียนกี่คน
6. ปรับชีทข้อมูลนักเรียนโดนเขียนสูตรดึงข้อมูลมาจากชีท ป.5 ในคอลัมน์ B:N โดยสังเกตว่ามีการระบายสีเซลล์ที่ได้เขียนสูตรไว้

เนื่องจากต้องการใช้ชีทข้อมูลนักเรียน link ไปยังชีทอื่น ๆ ผมจึงทำตัวอย่างการใช้สูตร link ข้อมูลจากชีท ป.5 มายังชีทข้อมูลนักเรียน ลองทดสอบเปลี่ยนค่าที่เซลล์ N1 แล้วสังเกตดูผล

ขอบคุณมากครับ ทำให้เกือบหมดเลย ผมจะลองศึกษาสูตรดูนะครับ เพราะ VBA ไม่เป็นสักนิด
ปัญหาข้อต่อไปคือ ผมจะนำข้อมูลพวกนี้มาลิงห์ใส่ใน 1 ซึ่งทำได้แล้วตามที่เคยแนบไฟล์ไป แต่ผมต้องทำอย่างน้ซ้ำ ๆ กัน จนครบทุกคน ซึ่งมันจะเสียเวลามาก แก้ปัญหาอย่างไรดีครับ งานไม่รีบครับ เพราะไฟล์ที่ใช้งานจริง ๆ ไปสนับสนุนคนที่เขียนมาแล้ว แต่อยากทำเป็นเองมากกว่าครับ

ลองดูตัวอย่างในไฟล์แนบครับ

ในชีท 1 เซลล์ Y6 คีย์สูตร

=INDEX(ข้อมูลนักเรียน!$E$5:$E$54,MATCH(AE9,ข้อมูลนักเรียน!$D$5:$D$54,0))

Enter > สังเกตเซลล์ที่ระบายสีไว้ว่ามีการเปลี่ยนสูตรอย่างไรเพื่อจะได้เข้าใจมากขึ้นครับ