Vba: cara menemukan nilai minimum dalam jangkauan

Anda dapat menggunakan sintaks dasar berikut untuk menghitung nilai minimum dalam suatu rentang menggunakan VBA:

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

Contoh khusus ini menghitung nilai minimum dalam rentang B2:B11 dan menetapkan hasilnya ke sel D2 .

Jika Anda ingin menampilkan nilai minimum dalam kotak pesan, Anda dapat menggunakan sintaks berikut:

 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

Contoh berikut memperlihatkan cara menggunakan masing-masing metode ini dalam praktik dengan himpunan data berikut di Excel yang berisi informasi tentang berbagai pemain bola basket:

Terkait: Cara Menemukan Nilai Maksimum dalam Rentang Menggunakan VBA

Contoh 1: Hitung nilai minimum rentang menggunakan VBA dan tampilkan hasilnya di sel

Misalkan kita ingin menghitung nilai minimum di kolom poin dan menampilkan hasilnya di sel tertentu.

Kita dapat membuat makro berikut untuk melakukan ini:

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

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Perhatikan bahwa sel D2 berisi nilai 10 .

Ini memberitahu kita bahwa nilai minimum di kolom poin adalah 10.

Contoh 2: Hitung nilai minimum rentang menggunakan VBA dan tampilkan hasilnya di kotak pesan

Misalkan kita ingin menghitung nilai minimum di kolom poin dan menampilkan hasilnya di kotak pesan.

Kita dapat membuat makro berikut untuk melakukan ini:

 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

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Kotak pesan memberitahu kita bahwa nilai minimum dalam rentang B2:B11 adalah 10 .

Perhatikan bahwa dalam contoh ini kami menghitung nilai minimum dalam rentang B2:B11 .

Namun, jika Anda ingin menghitung nilai minimum di seluruh kolom, Anda bisa mengetikkan B:B .

Ini akan menghitung nilai minimum di seluruh kolom B.

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

VBA: Cara menghitung nilai rata-rata rentang
VBA: Cara menghitung jumlah baris dalam jangkauan
VBA: Cara menambahkan nilai dalam suatu rentang