Snasui Excel Forum

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



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

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




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 ...