Mencari Nilai Terendah dan tertinggi

Sebenarnya pembahasan tentang Mencari Nilai Terendah dan tertinggi sudah terlebih dahulu saya tulis pada artikel di iparengan.com akan tetapi seperti yang anda ketahui saya telah migarsi ke www.excelpro.id saya akan kembali menghadirkan cara Mencari Nilai Terendah dan tertinggi dengan macro yang sebelumnya saya membahas Mencari Nilai Terendah dan tertinggi dengan formula VLOOKUP.

Saat anda dihadapkan dengan tabel daftar dimana tabel tersebut merupakan nilai raport siswa, pada nilai tersebut tentu saja ada nilai siswa yang paling bagus yaitu nilai tertinmggi dan ada nilai siswa yang paling jelek yaitu nilai terendah, untuk mempermudah mencari nilai tertinggi dan terendah pada tabel nilai rapor tersebut berikut ini tutorialnya

 Saya berasusmi bahwa anda dihadapkan dengan tabel nilai rapor sebagaimana tabel berikut ini



 Kemudian mencari nilai terendah pada D3 dengan nama siswa dengan nilai terendah pada E3, gunakan kode macro berikut ini

Sub nilaiTerendah()
Set Nilai = Range("A3:A20")
Range("D3").Value = Range("A3").Value
For Cek = 1 To WorksheetFunction.CountA(Nilai)
If CDbl(Range("D3").Value) > CDbl(Cells(Cek + 2, 1).Value) Then
Range("D3").Value = Cells(Cek + 2, 1).Value
Range("E3").Value = Cells(Cek + 2, 2).Value
End If
Next Cek
End Sub

 Kemudian mencari nilai tertinggi pada F3 dengan nama siswa dengan nilai tertinggi pada G3, gunakan kode macro berikut ini

Sub NilaiTertinggi()
Set Nilai = Range("A3:A20")
Range("F3").Value = Range("A3").Value
For Cek = 1 To WorksheetFunction.CountA(Nilai)
If CDbl(Range("F3").Value) < CDbl(Cells(Cek + 2, 1).Value) Then
Range("F3").Value = Cells(Cek + 2, 1).Value
Range("G3").Value = Cells(Cek + 2, 2).Value
End If
Next Cek
End Sub

 Digabungkan akan lebih sederhana menjadi seperti ini

Sub NilaiTertinggiTerendah()
Set Nilai = Range("A3:A20")
Range("D3").Value = Range("A3").Value
Range("F3").Value = Range("A3").Value
For Cek = 1 To WorksheetFunction.CountA(Nilai)
If CDbl(Range("D3").Value) > CDbl(Cells(Cek + 2, 1).Value) Then
Range("D3").Value = Cells(Cek + 2, 1).Value
Range("E3").Value = Cells(Cek + 2, 2).Value
End If
If CDbl(Range("F3").Value) < CDbl(Cells(Cek + 2, 1).Value) Then
Range("F3").Value = Cells(Cek + 2, 1).Value
Range("G3").Value = Cells(Cek + 2, 2).Value
End If
Next Cek
End Sub

 Lihat hasilnya berikut ini



 Bagi anda yang hobi otak atik formula silahkan lihat pembahasan serupa di Mencari Nilai Terendah/tertinggi Dengan VLOOKUP

Keterangan kode macro

Range("A3:A20") Tabel nilai dimulai kolom A3 sampai kolom A20, silahkan sesuaikan dengan tabel yang anda miliki
Cells(Cek + 2, 1).Value nilai baris ke 2 kolom pertama
CDbl(Range("D3").Value) > CDbl(Cells(Cek + 2, 1).Value) Jika nilai D3 lebih besar dari nilai kolom A
CDbl(Range("F3").Value) < CDbl(Cells(Cek + 2, 1).Value) Jika nilai F3 lebih kecil dari nilai kolom A

Download - Sampel di iparengan.net

Demikianlah cara Mencari Nilai Terendah dan tertinggi Dengan macro dengan microsoft excel visua basic for application ( VBA / VBE ), jika ada pertanyaan seputar Microsoft excel silahkan oret oret pada kolom komentar, semoga bermanfaat dan terimakasih

Download - 423 Sampel Excel VBA dijmain mahir VBA

 Order Aplikasi Murah dengan design premium Info Disini