Vba: aralıktaki maksimum değer nasıl bulunur?

VBA’yı kullanarak bir aralıktaki maksimum değeri hesaplamak için aşağıdaki temel sözdizimini kullanabilirsiniz:

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

Bu özel örnek, B2:B11 aralığındaki maksimum değeri hesaplar ve sonucu D2 hücresine atar.

Bunun yerine maksimum değeri bir mesaj kutusunda görüntülemek istiyorsanız aşağıdaki sözdizimini kullanabilirsiniz:

 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

Aşağıdaki örnekler, çeşitli basketbol oyuncuları hakkında bilgiler içeren Excel’deki aşağıdaki veri kümesiyle bu yöntemlerin her birinin pratikte nasıl kullanılacağını göstermektedir:

Örnek 1: VBA’yı kullanarak aralığın maksimum değerini hesaplayın ve sonuçları hücrede görüntüleyin

Puan sütunundaki maksimum değeri hesaplamak ve sonuçları belirli bir hücrede görüntülemek istediğimizi varsayalım.

Bunun için aşağıdaki makroyu oluşturabiliriz:

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

Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:

D2 hücresinin 43 değerini içerdiğine dikkat edin.

Bu bize puan sütunundaki maksimum değerin 43 olduğunu söyler.

Örnek 2: VBA’yı kullanarak aralığın maksimum değerini hesaplayın ve sonuçları mesaj kutusunda görüntüleyin

Bunun yerine puan sütunundaki maksimum değeri hesaplamak ve sonuçları bir mesaj kutusunda görüntülemek istediğimizi varsayalım.

Bunun için aşağıdaki makroyu oluşturabiliriz:

 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

Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:

Mesaj kutusu bize B2:B11 aralığındaki maksimum değerin 43 olduğunu bildirir.

Bu örnekte maksimum değeri B2:B11 aralığında hesapladığımızı unutmayın.

Ancak bunun yerine bir sütunun tamamındaki maksimum değeri hesaplamak istiyorsanız bunun yerine B:B yazabilirsiniz.

Bu, B sütununun tamamındaki maksimum değeri hesaplayacaktır.

Ek kaynaklar

Aşağıdaki eğitimlerde VBA’da diğer ortak görevlerin nasıl gerçekleştirileceği açıklanmaktadır:

VBA: Aralığın ortalama değeri nasıl hesaplanır
VBA: Aralıktaki satır sayısı nasıl sayılır?
VBA: Bir aralıktaki değerler nasıl eklenir?