Vba: วิธีค้นหาค่าสูงสุดในช่วง

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

 SubMaxValue ()
    Range(" D2 ") = WorksheetFunction.Max(Range(" B2:B11 "))
End Sub

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

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

 SubMaxValue ()
    'Create variable to store max value
    Dim maxValue As Single
    
    'Calculate max value in range
    maxValue = WorksheetFunction.Max(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Max Value in Range: " & maxValue 
End Sub

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

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

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

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

 SubMaxValue ()
    Range(" D2 ") = WorksheetFunction.Max(Range(" B2:B11 "))
End Sub

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

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

นี่บอกเราว่าค่าสูงสุดในคอลัมน์คะแนนคือ 43

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

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

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

 SubMaxValue ()
    'Create variable to store max value
    Dim maxValue As Single
    
    'Calculate max value in range
    maxValue = WorksheetFunction.Max(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Max Value in Range: " & maxValue 
End Sub

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

กล่องข้อความบอกเราว่าค่าสูงสุดในช่วง B2:B11 คือ 43

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

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

วิธีนี้จะคำนวณค่าสูงสุดในคอลัมน์ B ทั้งหมด

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

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

VBA: วิธีคำนวณค่าเฉลี่ยของช่วง
VBA: วิธีนับจำนวนแถวในช่วง
VBA: วิธีเพิ่มค่าในช่วง