Page 1 of 1

สอบถามเรื่องวิธีการ copyเซลและให้เปลี่ยนเลขคอลัมน์อัตโนมัติ

Posted: Tue Jan 24, 2017 3:38 pm
by phaderm
เนื่องจากผมต้องการ copy เซลไปที่เซลอื่นและต้องการให้เปลี่ยน เลข คอลัมน์อัตโนมัติโดยใช้ makro
ซึ่งผมใช้วิธีบันทึกการเปลี่ยนตัวเลขคอลัมน์แล้ว และไปเรียกใช้กับเซลอื่นแล้วไม่ได้ผลครับ
อยากทราบว่าต้องเขียน code เองใช่ไหมครับ ถ้าใช่จะต้องเขียน code อย่างไรครับ รบกวนช่วยเหลือด้วยครับ
ตัวอย่างงาน.xlsx
ที่ ด.ญอภิชญา ช่องเซลต้องการเปลี่ยนคอลัมน์เป็นเลข 6 ทั้งหมดครับ

Re: สอบถามเรื่องวิธีการ copyเซลและให้เปลี่ยนเลขคอลัมน์อัตโนมัติ

Posted: Tue Jan 24, 2017 7:09 pm
by snasui
:D การใช้ Macro จะต้องเขียนมาเองก่อน ไฟล์ที่จะแนบ Code ได้จะต้องมีนามสกุล .xlsm เป็นอย่างน้อย ไม่ใช่ .xlsx ลองแนบไฟล์มาอีกรอบครับ

Re: สอบถามเรื่องวิธีการ copyเซลและให้เปลี่ยนเลขคอลัมน์อัตโนมัติ

Posted: Wed Jan 25, 2017 7:21 am
by phaderm
ขอบคุณครับอ. ผมจะลองทำดูครับ ผมไม่เคยเขียน code เพิ่งจะลองใช้บันทึก makro แบบอัตโนมัติ จึงเขียน code ไม่เป้นครับ
ผมจะลองบันทึก แบบอัตโนมัติแล้วส่งให้อ.ดูนะครับ

Re: สอบถามเรื่องวิธีการ copyเซลและให้เปลี่ยนเลขคอลัมน์อัตโนมัติ

Posted: Wed Jan 25, 2017 9:44 am
by phaderm
ตัวอย่างงาน.xlsm
ผมบันทึกไฟล์เป็น enable makro แล้วครับ และลองบันทึกการเปลี่ยนจาก f5 เป็น f6 ในตาราง อภิชญา เพื่อเรียกใช้กับณรงค์ฤทธฺิ แต่ไม่สามารถเรียกใช้งานได้เนื่องจากผมเปลี่ยน code ไม่เป็นครับ รบกวนอ.ดูให้ผมด้วยครับ ถ้าหากผมทำไม่ถูกช่วยแนะนำด้วยครับ

Re: สอบถามเรื่องวิธีการ copyเซลและให้เปลี่ยนเลขคอลัมน์อัตโนมัติ

Posted: Wed Jan 25, 2017 4:11 pm
by logic
ผมดูแล้วเห็นว่าคุณ phaderm ใช้สูตรแทน macro จะดีกว่า เพราะสามารถปรับเองได้บ้าง

macro ทำงานเช่นนี้ที่มันอาศัยการวนลูปด้วยไม่ได้ครับ ต้องเป็น vba จึงจะทำได้

ข้อมูลจากชีต ผลสอบ1 ต้องตรงกันกับชีต report เสียก่อนการใช้สูตรจึงจะง่าย แต่นี่ชื่อนักเรียนเขียนไม่ตรงกันเลย เขียนให้ตรงกันเสียก่อนดีไหมครับ ผมจะขอยกตัวอย่างที่ชีต report ให้เซลล์ a30 เป็นเลขที่ แล้วเราใช้เลขที่นี้ดึงข้อมูลมาแสดงสูตรจะประมาณนี้ครับ

f30 =INDEX(ผลสอบ1!$D$5:$O$7,MATCH($A$30,ผลสอบ1!$A$5:$A$7,0),MATCH($B35&"*",ผลสอบ1!$D$2:$O$2,0)+2)

คัดลอกสูตรลงด้านล่าง

Re: สอบถามเรื่องวิธีการ copyเซลและให้เปลี่ยนเลขคอลัมน์อัตโนมัติ

Posted: Wed Jan 25, 2017 4:47 pm
by phaderm
ขอบคุณมากๆครับสำหรับคำแนะนำผมมาลองแล้วใช้ได้ดีเลยครับ