Vba: cara menemukan nilai maksimum dalam jangkauan


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

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

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

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

 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

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:

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

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

Kita dapat membuat makro berikut untuk melakukan ini:

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

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Perhatikan bahwa sel D2 berisi nilai 43 .

Ini memberitahu kita bahwa nilai maksimum pada kolom poin adalah 43.

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

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

Kita dapat membuat makro berikut untuk melakukan ini:

 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

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

VBA menemukan nilai maksimum dalam jangkauan

Kotak pesan memberitahu kita bahwa nilai maksimum dalam rentang B2:B11 adalah 43 .

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

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

Ini akan menghitung nilai maksimum di semua 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

Tambahkan komentar

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *