Page 1 of 1
เอาcolumn แต่ละ column + กันยังไง มือใหม่ครับ
Posted: Fri Aug 19, 2022 12:35 am
by 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 ตลอดเลย
ช่วยแนะนำให้หน่อยครับ
Re: เอาcolumn แต่ละ column + กันยังไง มือใหม่ครับ
Posted: Fri Aug 19, 2022 12:48 am
by 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
Re: เอาcolumn แต่ละ column + กันยังไง มือใหม่ครับ
Posted: Fri Aug 19, 2022 2:15 am
by 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 ประกอบคำถามมาด้วยเสมอเพื่อสะดวกแก่ผู้ตอบไม่ต้องสร้างไฟล์ขึ้นมาเองใหม่เพื่อทดสอบครับ