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 terdapat 30 nilai dalam array.
Fungsi Max VBA Max
Kami mempunyai beberapa fungsi berangka dalam excel. Kita dapat menghitung nilai berangka dalam julat, kita dapat menjumlahkan, dan kita dapat mencari nilai minimum serta nilai maksimum dari lot tersebut. Untuk mencari nilai maksimum lot, kami 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 VBA terbina dalam, tetapi kami dapat mengakses fungsi ini sebagai bagian dari 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, jumlah maksimum adalah 60.
Contoh Lanjutan Max dalam Excel VBA
Gelung sangat penting dalam VBA untuk menjalankan semua sel dan sampai pada hasilnya. Kami akan melihat bagaimana menggabungkan VBA MAX dengan gelung untuk mencapai 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 menerapkan MAX untuk cemerlang, kita dapat memperolehnya 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.
Now run the code manually or press the F5 key and see the result as shown below.
In order to get the maximum values month name, use the below code.
Code:
Sub MAX_Example2() Dim k As Integer For k = 2 To 9 Cells(k, 7).Value = WorksheetFunction.Max(Range("B" & k & ":" & "E" & k)) Cells(k, 8).Value = WorksheetFunction.Index(Range("B1:E1"), WorksheetFunction.Match _ (Cells(k, 7).Value, Range("B" & k & ":" & "E" & k))) Next k End Sub
Based on the value provided by the VBA max function, the INDEX function & MATCH function will return the associated month in the next line.
Things to Remember
- If their duplicate number is there, it will show only one number which comes first.
- This is the opposite formula of the MIN function in excel.
- MAX bukan fungsi VBA. Ini adalah fungsi terbina dalam excel, jadi menggunakan kelas fungsi lembaran kerja.
Anda boleh memuat turun Templat Excel ini di sini - Templat Fungsi Maksimum VBA.
