Vba: วิธีเพิ่มค่าในช่วง

คุณสามารถใช้ไวยากรณ์พื้นฐานต่อไปนี้เพื่อคำนวณผลรวมของค่าในช่วงโดยใช้ VBA:

 SubSumValues ()
    Range(" D2 ") = WorksheetFunction.Sum(Range(" B2:B11 "))
End Sub

ตัวอย่างนี้จะคำนวณผลรวมของค่าในช่วง B2:B11 และกำหนดผลลัพธ์ให้กับเซลล์ D2 .

หากคุณต้องการแสดงผลรวมของค่าในกล่องข้อความแทน คุณสามารถใช้ไวยากรณ์ต่อไปนี้:

 SubSumValues ()
    'Create variable to store sum of values
    Dim sum As Single
    
    'Calculate sum of values in range
    sum = WorksheetFunction.Sum(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Sum of Values in Range: " & sum
End Sub

ตัวอย่างต่อไปนี้แสดงวิธีการใช้แต่ละวิธีในทางปฏิบัติกับชุดข้อมูลต่อไปนี้ใน Excel ที่มีข้อมูลเกี่ยวกับผู้เล่นบาสเกตบอลต่างๆ:

ตัวอย่างที่ 1: คำนวณผลรวมของช่วงโดยใช้ VBA และแสดงผลลัพธ์ในเซลล์

สมมติว่าเราต้องการคำนวณผลรวมของค่าในคอลัมน์จุดและแสดงผลลัพธ์ในเซลล์เฉพาะ

เราสามารถสร้างมาโครต่อไปนี้เพื่อทำสิ่งนี้:

 SubSumValues ()
    Range(" D2 ") = WorksheetFunction.Sum(Range(" B2:B11 "))
End Sub

เมื่อเราเรียกใช้แมโครนี้ เราได้รับผลลัพธ์ต่อไปนี้:

โปรดสังเกตว่าเซลล์ D2 มีค่า 245

สิ่งนี้บอกเราว่าผลรวมของค่าในคอลัมน์คะแนนคือ 245

ตัวอย่างที่ 2: คำนวณผลรวมของช่วงโดยใช้ VBA และแสดงผลลัพธ์ในกล่องข้อความ

สมมติว่าเราต้องการคำนวณผลรวมของค่าในคอลัมน์จุดและแสดงผลลัพธ์ในกล่องข้อความแทน

เราสามารถสร้างมาโครต่อไปนี้เพื่อทำสิ่งนี้:

 SubSumValues ()
    'Create variable to store sum of values
    Dim sum As Single
    
    'Calculate sum of values in range
    sum = WorksheetFunction.Sum(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Sum of Values in Range: " & sum
End Sub

เมื่อเราเรียกใช้แมโครนี้ เราได้รับผลลัพธ์ต่อไปนี้:

กล่องข้อความบอกเราว่าผลรวมของค่าในช่วง B2:B11 คือ 245 .

โปรดทราบว่าในตัวอย่างนี้ เราคำนวณผลรวมของค่าในช่วง B2:B11

อย่างไรก็ตาม หากคุณต้องการคำนวณผลรวมของค่าในทั้งคอลัมน์แทน คุณสามารถพิมพ์ B:B แทนได้

วิธีนี้จะคำนวณผลรวมของค่าสำหรับแต่ละเซลล์ในคอลัมน์ B

แหล่งข้อมูลเพิ่มเติม

บทช่วยสอนต่อไปนี้จะอธิบายวิธีการทำงานทั่วไปอื่นๆ ใน VBA:

VBA: วิธีคำนวณค่าเฉลี่ยของช่วง
VBA: วิธีนับจำนวนแถวในช่วง
VBA: วิธีเขียนฟังก์ชัน SUMIF และ SUMIFS