Mencari Data Terbesar dan Terkecil Sederhana dengan VBA

Assalamulaikum kawan,
Ada sedikit ilmu ini tentang dasar-dasar menggunakan VBA yang ada di excel
Alhamdulillah ini ilmu baru yang saya dapatkan.
Mencari Angka Terbesar atau Terkecil dari suatu data yang ada di excel. Biasanya kalau kita ingin mencari angka terbesar atau terkecil kita bisa menggunakan tool short yang ada di excel. Tinggal meng klik itu, data kita sudah menjadi berurutan dari bawah ke atas.
Nah bagaimana kalau data itu ke samping atau vertikal, tentu kita tidak bisa pakai tool short itu. Selain itu kita juga tidak tahu di baris dan kolom berapa angka terbesar itu berada.
ini ada sedikit ilmu yang ingin saya bagi.

1. Pertama buka excel anda, setelah itu buat data seperti gambar di bawah ini.

setelah di buat

2. klik view -> macros

3. Kemudian isi macro name dengan tugas_1

kemudian create

4.  Karena kita mencari angka terkecil dari data di atas maka salin tulisan di bawah ini di lembar kerja yang ada.

Sub tugas_1()
b_awal = 1
k_awal = 1
a_kecil = Cells(b_awal, k_awal).Value
b_kecil = Cells(b_awal, k_awal).Row
k_awal = Cells(b_awal, k_awal).Column
For y = 1 To 2
    For x = 2 To 6
        If Cells(y, x).Value < a_kecil Then
        a_kecil = Cells(y, x).Value
        b_kecil = Cells(y, x).Row
        k_kecil = Cells(y, x).Column
    End If
    Next x
Next y
MsgBox "angka terkecil =" & a_kecil _
    & "baris terkecil = " & b_kecil _
    & "kolom  terkecil = " & k_kecil
End Sub

"if cells (y,x).value < a_kecil Then " itu untuk mencari angka terkecil dari data,
kalau ingin mencari angka terbesarnya tinggal diganti "<"(lebih kecil) menjadi ">"(lebih besar)

5. Klik continue








Jika berhasil maka akan muncul kotak seperti berikut,