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

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

 SubMinValue ()
    Range(" D2 ") = WorksheetFunction.Min(Range(" B2:B11 "))
End Sub

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

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

 SubMinValue ()
    'Create variable to store min value
    Dim minValue As Single
    
    'Calculate min value in range
    minValue = WorksheetFunction.Min(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Min Value in Range: " & minValue 
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:

İlgili: VBA Kullanarak Aralıktaki Maksimum Değer Nasıl Bulunur?

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

Puan sütunundaki minimum 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:

 SubMinValue ()
    Range(" D2 ") = WorksheetFunction.Min(Range(" B2:B11 "))
End Sub

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

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

Bu bize puan sütunundaki minimum değerin 10 olduğunu söyler.

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

Bunun yerine puan sütunundaki minimum 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:

 SubMinValue ()
    'Create variable to store min value
    Dim minValue As Single
    
    'Calculate min value in range
    minValue = WorksheetFunction.Min(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Min Value in Range: " & minValue 
End Sub

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

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

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

Ancak bunun yerine tüm sütundaki minimum değeri hesaplamak istiyorsanız bunun yerine B:B yazabilirsiniz.

Bu, B sütunu boyunca minimum 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?