Snasui Excel Forum

เรียน ท่านอาจารย์ ที่เคาลบ และสมาชิกทังหลายที่รักแพงครับ ขอความช่วยเหลือด้วยครับ บันหาก่อคืว่า ผมทำ VBA โดยการ Record Macro จะมีบันหาเวลาเมื่อลายกานมีการเพี่มขื้น หลื ลดลงครับ ช่วยด้วยครับ ขอบคุนมากครับ

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

เรียน ท่านbank9597 ที่เคาลบครับ ตามที่ผมพะยายามทำแต่ทำไม่ได้ก่อคืว่า ดู Code ก่อนครับ

Sub Macro1()
Range("C2").Select
ActiveCell.FormulaR1C1 = "=SUM(R[2]C:R[11]C)"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "=R[-1]C*3"
ActiveCell.Offset(-2, -2).Range("A1").Select
End Sub

Code ที่ผมได้จากกาน Record Macro นี้ ผนลวมใน C2 นั้นสามาดบวกได้แต่ C4:C13 จะมีบันหาเมื่อลายกานเพี่มขื้นโดยไม่จำกัด ผนลวมใน C2 คงยัง =SUM(C4:C13) ทำให้ผนลวมไม่ถูกต้องครับ ควนจะแก้ไข Code ที่ไหน เมื่อลายกานมีกานเปรี่ยนแปรง ทำให้ผนลวมก่อยังถูกยู่ จะแก้ไขตงไหนของ Code สมเทียบ Column A:C และ Column I:K
ช่วยด้วยครับ ขอบคุนมากครับ

ผมไม่ชำนาญ VBA เลยครับ เลยขอแนะนำสูตรแล้วกัน

ที่ C2 คีย์ =SUM(OFFSET($C$4,0,0,COUNTA($A:$A)-3))
ที่ K2 คีย์ =SUM(OFFSET($K$4,0,0,COUNTA($I:$I)-3))

ไม่ว่าคุณจะคีย์ข้อมูลลงไปเท่าไหร่ สูตรก็จะรวมค่าให้เองอัตโนมัติ ตามจำนวนข้อมูลที่มีอยู่