Vba: วิธีคำนวณค่าเบี่ยงเบนมาตรฐานของช่วง

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

 SubStDevRange ()
    Range(" D2 ") = WorksheetFunction.StDev(Range(" B2:B11 "))
End Sub

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

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

 SubStDevRange ()
    'Create variable to store standard deviation of values
    Dim stdev As Single
    
    'Calculate standard deviation of values in range
    stdev = WorksheetFunction.StDev(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Standard Deviation of Values in Range: " & stdev 
End Sub

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

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

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

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

 SubStDevRange ()
    Range(" D2 ") = WorksheetFunction.StDev(Range(" B2:B11 "))
End Sub

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

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

นี่บอกเราว่าค่าเบี่ยงเบนมาตรฐานของค่าในคอลัมน์คะแนนคือ 245

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

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

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

 SubStDevRange ()
    'Create variable to store standard deviation of values
    Dim stdev As Single
    
    'Calculate standard deviation of values in range
    stdev = WorksheetFunction.StDev(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Standard Deviation of Values in Range: " & stdev 
End Sub

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

กล่องข้อความบอกเราว่าค่าเบี่ยงเบนมาตรฐานของค่าในช่วง B2:B11 คือ 11.937 .

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

อย่างไรก็ตาม หากคุณต้องการคำนวณค่าเบี่ยงเบนมาตรฐานของค่าในทั้งคอลัมน์แทน ให้พิมพ์ B:B แทน

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

หมายเหตุ : คุณสามารถดูเอกสารฉบับสมบูรณ์ของวิธี StDev VBA ได้ที่นี่

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

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

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