รบกวนถามเรื่องแทรกแถวใหม่แล้วสูตรไม่ตามมาครับ

[nukrob]

คือผมทำสูตรไว้ในในเซลล์ J12 แล้วพอแทรกแถวในเรคคอร์ดต่อมา ต้องมาก๊อปสูตรจากแถวที่อยู่ด้านบนมาทุกครั้งครับ ทำยังไงจึงจะให้สูตรที่เราสร้างไว้ข้างบนตามมาเลยโดยไม่ต้องก๊อปครับ

[snasui]

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

[nukrob]

ผมยังขาดความรู้เรื่อง VBA ขอบคุณที่ให้คำแนะนำครับอาจารย์

[nukrob]

หากจะปรับสูตรตามที่อาจารย์กล่าวไว้ในหน้านี้ไปใช้จะสามารถทำได้ไหมครับ...

http://snasui.blogspot.com/2008/11/blog-post_3035.html

[snasui]

หากยึดตาม Blog ที่อ้างมาผมคิดว่าคุณ nukrob คงจะอธิบายสิ่งที่ต้องการไม่ถูกต้องในความเห็นก่อนหน้า เนื่องจากตาม Link ที่ยกมานั้นเป็นการทำให้สูตรในบรรทัดที่เป็นยอดรวมมีการรวมบรรทัดที่เพิ่มหรือลดลงเสมอไม่ใช่ให้ Copy สูตรในคอลัมน์ J ลงมาให้อัตโนมัติ ช่วยสรุปให้อีกรอบว่าเป็นความต้องการใดกันแน่ครับ

[nukrob]

ตรง J152 คือช่องที่เป็นผลรวมของ (C152คูณกับเซลล์ที่สร้างไปข้างนอกคือO7)+(D152คูณP7)+(E152คูณQ7)+(F152คูณQ7)+(G152คูณQ7)+(H152คูณR7)+(I152คูณR7)

แต่ถ้าเราแทรกแถวต่อจาก152หรือแถวก่อนหน้า152 สูตรที่เราทำไว้ใน เซลล์ J152 มันต้องก๊อปปี้มาวางครับ

[snasui]

ถ้าตามความต้องการนี้ผมตอบไปแล้วตามความเห็นด้านล่างครับ

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

[odd]

ก่อนอื่นขอคุณคนควน ที่สร้างตัวอย่าง EXCEL นำไปดัดแปลงแก้ไขได้ประโยชน์และความรู้อย่างมาก

เรื่องแทรกแถวใหม่แล้วสูตรไม่ตามมาครับ
ใช้การบันทึก Macro
ให้ทดลองตาม Code นี้

วางที่ Sheet Master
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Call Macro1
Application.EnableEvents = True
End Sub


วางที่ Modules ปกติ
Sub Macro1()
Range("J7").Select
ActiveCell.FormulaR1C1 = _
"=SUM((RC[-7]*R7C15)+(RC[-6]*R7C16)+(RC[-5]*R7C17)+(RC[-4]*R7C17)+(RC[-3]*R7C17)+(RC[-2]*R7C18)+(RC[-1]*R7C18))"
Range("J7").Select
Selection.AutoFill Destination:=Range("J7:J152"), Type:=xlFillDefault
Range("J7:J152").Select
Range("J7").Select
End Sub

[nukrob]

ก่อนอื่นขอคุณคนควน ที่สร้างตัวอย่าง EXCEL นำไปดัดแปลงแก้ไขได้ประโยชน์และความรู้อย่างมาก

เรื่องแทรกแถวใหม่แล้วสูตรไม่ตามมาครับ
ใช้การบันทึก Macro
ให้ทดลองตาม Code นี้

วางที่ Sheet Master
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Call Macro1
Application.EnableEvents = True
End Sub



วางที่ Modules ปกติ
Sub Macro1()
Range("J7").Select
ActiveCell.FormulaR1C1 = _
"=SUM((RC[-7]*R7C15)+(RC[-6]*R7C16)+(RC[-5]*R7C17)+(RC[-4]*R7C17)+(RC[-3]*R7C17)+(RC[-2]*R7C18)+(RC[-1]*R7C18))"
Range("J7").Select
Selection.AutoFill Destination:=Range("J7:J152"), Type:=xlFillDefault
Range("J7:J152").Select
Range("J7").Select
End Sub

ในส่วน Sheet Master กับในส่วน Modules ปกติต้องเข้าไปวางโค๊ดที่ไหนครับ

[odd]

เปิด Excel กด Alt กับ F11 ครับ

[snasui]

เปิด Excel กด Alt กับ F11 ครับ

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

[snasui]

สำหรับ Module ปกติและชีทเป้าหมายที่จะวาง Code ดูได้จากภาพด้านล่าง ซึ่งจะต้อง Double click เข้าไปก่อน เพื่อจะเปิดหน้าต่างสำหรับการเขียน Code ครับ

หากยังไม่มี Module ปกติให้เข้าเมนู Insert > Module ในหน้าต่าง VBE ครับ

[odd]

ขอแก้ไขโพสต์: 3 เป็น "ก่อนอื่นขอบคุณ คุณคนควน ที่สร้างตัวอย่าง EXCEL นำไปดัดแปลงแก้ไขได้ประโยชน์และความรู้อย่างมาก" พิมพ์ตกไปครับ
และขอบคุณสำหรับคำแน่นำครับ