Mencari Nilai Terendah dan tertinggi Dengan macro

Mencari Nilai Terendah dan tertinggi Dengan macro


Sebenarnya pembahasan tentang Mencari Nilai Terendah dan tertinggi sudah terlebih dahulu saya tulis pada artikel di blog.iparengan.com akan tetapi untuk melengkapi artikel tersebut 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

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, jika tidak ada respon silahkan gabung atau joint ke grup Excel Iparengan di facebook, semoga bermanfaat dan terimakasih

Share this: