Max, seperti namanya, digunakan untuk mengetahui nilai maksimum dari kumpulan data atau larik tertentu, ini adalah fungsi lembar kerja sehingga digunakan dengan metode lembar kerja sebagai fungsi lembar kerja, ada batasan untuk metode ini karena ini Fungsi mengambil array sebagai argumen hanya boleh ada 30 nilai dalam array.
Fungsi Excel VBA Max
Kami memiliki beberapa fungsi numerik di excel. Kita dapat menghitung nilai numerik dalam kisaran tersebut, kita dapat menjumlahkan, dan kita dapat menemukan nilai minimum serta nilai maksimum lot. Untuk menemukan nilai maksimum lot kita memiliki fungsi excel yang disebut MAX yang akan mengembalikan nilai maksimum dari kisaran angka yang disediakan. Di VBA kami tidak memiliki fungsi built-in yang disebut "MAX" untuk mendapatkan jumlah maksimum. Kami akan melihat cara menggunakan Fungsi Excel VBA Max ini.
Contoh Fungsi Max di Excel VBA
Sayangnya, kami tidak memiliki kemewahan menggunakan MAX sebagai fungsi bawaan VBA tetapi kami dapat mengakses fungsi ini sebagai bagian dari kelas Fungsi Lembar Kerja.
Sekarang, lihat kode di bawah ini.
Kode:
Sub MAX_Example1 () Dim a Sebagai Integer Dim b Sebagai Integer Dim c Sebagai Integer Dim Hasil Sebagai Integer a = 50 b = 25 c = 60 Result = WorksheetFunction.Max (a, b, c) MsgBox Hasil Akhir Sub
Dalam contoh di atas, saya telah mendeklarasikan tiga variabel untuk menyimpan nomor tersebut.
Dim a Sebagai Integer Dim b Sebagai Integer Dim c Sebagai Integer
Saya telah mendeklarasikan satu variabel lagi untuk menunjukkan hasil.
Redupkan Hasil Sebagai Integer.
Untuk 3 tiga variabel pertama, saya telah menetapkan nilai seperti 50, 25, dan 60 masing-masing.
a = 50 b = 25 c = 60
Di baris berikutnya, saya telah menerapkan MAX sebagai kelas fungsi lembar kerja VBA untuk menyimpan hasil ke variabel "Hasil".
Hasil = WorksheetFunction.Max (a, b, c)
Jadi akhirnya saya menunjukkan nilai di kotak pesan di VBA. Hasil MsgBox
Sekarang saya akan menjalankan kode ini menggunakan F5 atau secara manual dan melihat apa hasilnya di kotak pesan.
Jadi, hasilnya 60.
Dari semua nomor yang tersedia yaitu 50, 25, dan 60, jumlah maksimalnya adalah 60.
Contoh Lanjutan Max di Excel VBA
Loop sangat penting dalam VBA untuk menjalankan semua sel dan sampai pada hasilnya. Kami akan melihat cara menggabungkan VBA MAX dengan loop untuk mendapatkan nilai maksimum dari daftar angka.
Saya memiliki daftar item dan kinerja penjualan bulanan mereka dari item tersebut seperti yang ditunjukkan di bawah ini.
Sekarang untuk setiap item, saya ingin tahu berapa jumlah penjualan maksimum selama 4 bulan seperti yang ditunjukkan pada gambar.
Dengan menerapkan MAX di excel kita dapat menemukannya dalam beberapa detik.
Sekarang kita akan melihat bagaimana menemukan nilai maksimum dengan menggunakan kode VBA.
Kode di bawah ini akan melakukan tugas menemukan jumlah maksimum untuk setiap item.
Kode:
Sub MAX_Example2 () Dim k Sebagai Integer Untuk k = 2 Sampai 9 Sel (k, 7) .Value = WorksheetFunction.Max (Range ("A" & k & ":" & "E" & k)) Berikutnya k End Sub 
Ini akan mengidentifikasi jumlah maksimum dengan mudah.
Sekarang jalankan kode secara manual atau tekan tombol F5 dan lihat hasilnya seperti gambar di bawah ini.
Untuk mendapatkan nilai maksimum nama bulan gunakan kode di bawah ini.
Kode:
Sub MAX_Example2 () Dim k Sebagai Integer Untuk k = 2 Sampai 9 Sel (k, 7) .Value = WorksheetFunction.Max (Range ("B" & k & ":" & "E" & k)) Sel (k, 8) .Value = WorksheetFunction.Index (Range ("B1: E1"), WorksheetFunction.Match _ (Sel (k, 7). Value, Range ("B" & k & ":" & "E" & k) )) Berikutnya k Akhir Sub 
Berdasarkan nilai yang diberikan oleh fungsi VBA max, fungsi INDEX & fungsi MATCH akan mengembalikan bulan terkait di baris berikutnya.
Hal-hal untuk diingat
- Jika nomor duplikat mereka ada di sana, itu hanya akan menampilkan satu nomor yang datang lebih dulu.
- Ini adalah rumus kebalikan dari fungsi MIN di excel.
- MAX bukan fungsi VBA, ini adalah fungsi bawaan di excel, jadi gunakan kelas fungsi lembar kerja.
Anda dapat mendownload Template Excel ini di sini - Template Fungsi VBA Max
