อยากทราบ function การหาผลรวมของกลุ่มตัวเลขค่ะ

[seiko22]

อยากทราบการเขียน function การหาผลรวมของกลุ่มตัวเลขใน excel ค่ะ แล้วถ้าหาผลคูณ เขียนใน vba ค่ะ
แบบในรูปค่ะ...คือมีตัวเลขหลายบรรทัด...โดยไม่รู้ว่าถึงบรรทัดไหน ทำยังไงคะ
ปล. ตอนนี้หาผลบวกได้แล้วค่ะ
แต่ไม่สามารถเขียนหาผลคูณได้ค่ะ เพราะถ้าเปลี่ยนเครื่องหมายจาก + เป็น * ผลลัพธ์เป็น 0 ค่ะ

Function summ(x As Variant) As Variant
For Each Item In x
summ = summ + Item
Next Item
End Function

[snasui]

กรณีต้องการคูณ ลองดูตัวอย่างตามด้านล่างครับ

Code: Select all

Function summ(x As Variant) As Variant
    summ = 1
    For Each Item In x
        summ = summ * Item
    Next Item
End Function

สำหรับการโพสต์ Code ให้แสดงเป็น Code เพื่อสะดวกต่อการอ่านและการทดสอบ ดูที่นี่ครับ http://www.snasui.com/viewtopic.php?f=2&t=1187