VBA Maks

Max, seperti namanya, digunakan untuk mengetahui nilai maksimum dari kumpulan data tertentu atau array, ini adalah fungsi lembar kerja sehingga digunakan dengan metode lembar kerja sebagai fungsi lembar kerja, ada batasan untuk kaedah ini kerana ini fungsi mengambil array sebagai argumen hanya boleh ada 30 nilai dalam array.

Fungsi Max VBA Excel

Kami mempunyai beberapa fungsi berangka di excel. Kita dapat menghitung nilai berangka dalam julat, kita dapat menjumlahkan, dan kita dapat mencari nilai minimum serta nilai maksimum dari lot tersebut. Untuk mendapatkan nilai maksimum lot, kita mempunyai fungsi excel yang disebut MAX yang akan mengembalikan nilai maksimum dari bilangan yang dibekalkan. Di VBA kami tidak memiliki fungsi bawaan yang disebut "MAX" untuk mendapatkan jumlah maksimum. Kami akan melihat cara menggunakan Fungsi Max VBA Excel ini.

Contoh Fungsi Maks di Excel VBA

Sayangnya, kami tidak mempunyai kemewahan menggunakan MAX sebagai fungsi terbina dalam VBA tetapi kami dapat mengakses fungsi ini sebagai bahagian kelas Fungsi Lembaran Kerja.

Sekarang, lihat kod di bawah.

Kod:

 Sub MAX_Contoh1 () Dim a As Integer Dim b As Integer Dim c As Integer Dim Result As Integer a = 50 b = 25 c = 60 Result = WorksheetFunction.Max (a, b, c) MsgBox Result End Sub 

Dalam contoh di atas, saya telah menyatakan tiga pemboleh ubah untuk menyimpan nombor tersebut.

Dim a Sebagai Integer Dim b Sebagai Integer Dim c Sebagai Integer

Saya telah menyatakan satu lagi pemboleh ubah untuk menunjukkan hasilnya.

Keputusan Dim sebagai Integer.

Untuk 3 tiga pemboleh ubah pertama, saya telah memberikan nilai seperti masing-masing 50, 25, dan 60.

a = 50 b = 25 c = 60

Pada baris seterusnya, saya telah menerapkan MAX sebagai kelas fungsi lembaran kerja VBA untuk menyimpan hasilnya ke pemboleh ubah "Hasil".

Hasil = Lembaran KerjaFungsi.Max (a, b, c)

Jadi akhirnya saya menunjukkan nilai di kotak mesej di VBA. Keputusan MsgBox

Sekarang saya akan menjalankan kod ini menggunakan F5 atau secara manual dan melihat apa hasilnya di kotak mesej.

Jadi, hasilnya adalah 60.

Dari semua nombor yang dibekalkan iaitu 50, 25, dan 60, bilangan maksimum adalah 60.

Contoh Lanjutan Max dalam Excel VBA

Gelung sangat penting dalam VBA untuk menjalankan semua sel dan mendapatkan hasilnya. Kami akan melihat bagaimana menggabungkan VBA MAX dengan gelung untuk mendapatkan nilai maksimum dari senarai nombor.

Saya mempunyai senarai item dan prestasi penjualan bulanan mereka untuk item tersebut seperti yang ditunjukkan di bawah.

Sekarang untuk setiap item, saya ingin mengetahui berapa jumlah maksimum penjualan sepanjang 4 bulan seperti yang ditunjukkan dalam gambar.

Dengan mengaplikasikan MAX di excel, kita dapat menemuinya dalam beberapa saat.

Sekarang kita akan melihat bagaimana mencari nilai maksimum dengan menggunakan kod VBA.

Kod di bawah ini akan melaksanakan tugas mencari bilangan maksimum untuk setiap item.

Kod:

 Subs 

Ini akan mengenal pasti bilangan maksimum dengan mudah.

Sekarang jalankan kod secara manual atau tekan kekunci F5 dan lihat hasilnya seperti gambar di bawah.

Untuk mendapatkan nilai maksimum nama bulan, gunakan kod di bawah.

Kod:

 Sub MAX_Contoh2 () Dim k Sebagai Integer Untuk k = 2 hingga 9 Sel (k, 7). Nilai = Lembaran KerjaFungsi.Max (Julat ("B" & k & ":" & "E" & k)) Sel (k, 8) .Value = WorksheetFunction.Index (Range ("B1: E1"), WorksheetFunction.Match _ (Sel (k, 7). Nilai, Julat ("B" & k & ":" & "E" & k) Sub) Akhir Sub Akhir 

Berdasarkan nilai yang diberikan oleh fungsi VBA max, fungsi INDEX & fungsi MATCH akan mengembalikan bulan yang berkaitan pada baris seterusnya.

Perkara yang Perlu Diingat

  • Sekiranya nombor pendua mereka ada, ia akan menunjukkan hanya satu nombor yang lebih dahulu.
  • Ini adalah formula berlawanan dari fungsi MIN dalam excel.
  • MAX bukan fungsi VBA, tetapi fungsi built-in di excel, jadi menggunakan kelas fungsi lembaran kerja.

Anda boleh memuat turun Templat Excel ini di sini - Templat Fungsi Maksimum VBA