เอาcolumn แต่ละ column + กันยังไง มือใหม่ครับ

[karorox]

ตาราง excel A1,B1,C1
ถ้าค่าตัวเลข A1 เท่ากับ 1
ให้นำ B1 + B5 และ C1 + C5

Code: Select all

Sub subV2()

 If Range("A1") = 1 Then
   x = Excel.WorksheetFunction.Sum(B1, B5)
   y = Excel.WorksheetFunction.Sum(C1, C5)
   
Range("B5") = x
Range("C5") = y
    
   
 End If
 End Sub

จากcode ของผม
ผมได้ผลลัพพ์ B5 =00 C5 = 00 ตลอดเลย
ช่วยแนะนำให้หน่อยครับ

[karorox]

ผมทำได้ละครับ
แต่วิธีการนำ แต่ละ Column มา + กันสามารถเขียนแบบไหนได้อีกครับช่วยชี้แนะเพิ่มเติมให้ทีครับ

Code: Select all

 If Range("A1") = 1 Then
   x = Excel.WorksheetFunction.Sum(Range("B1", "B5"))
   y = Excel.WorksheetFunction.Sum(Rangr("C1", "C5"))
   
Range("B5") = x
Range("C5") = y
    
   
 End If
 End Sub

[snasui]

ยินดีด้วยครับ

การเขียน Code มีได้หลากหลายวิธี กรณีตามคำถามสามารถนำมาบวกกันตรง ๆ ไม่ต้องใช้ฟังก์ชัน Sum ก็ได้เช่นกันครับ เช่น

Code: Select all

   x = [b1].value + [b5].value ' หรือเขียนเป็น range("b1").value + range("b5").value
   y = [c1].value + [c5].value ' หรือเขียนเป็น range("c1").value + range("c5").value

การเขียนแบบมี [] ครอบเรียกว่าการอ้างอิงแบบ Notation ส่วน .value เป็นค่า Default จะไม่ระบุก็ได้ แต่การเขียน Code ที่ดีควรจะระบุครับ

ควรแนบไฟล์ Excel ประกอบคำถามมาด้วยเสมอเพื่อสะดวกแก่ผู้ตอบไม่ต้องสร้างไฟล์ขึ้นมาเองใหม่เพื่อทดสอบครับ