Μέγιστη λειτουργία VBA | Πώς να βρείτε το μέγιστο χρησιμοποιώντας το Max στο Excel VBA;

Το Max, όπως υποδηλώνει το όνομα, χρησιμοποιείται για τον εντοπισμό της μέγιστης τιμής από ένα δεδομένο σύνολο δεδομένων ή έναν πίνακα, αυτή είναι μια συνάρτηση φύλλου εργασίας, οπότε χρησιμοποιείται με τη μέθοδο φύλλου εργασίας ως συνάρτηση φύλλου εργασίας, υπάρχει ένας περιορισμός σε αυτήν τη μέθοδο καθώς αυτό Η συνάρτηση παίρνει έναν πίνακα ως όρισμα μπορεί να υπάρχουν μόνο 30 τιμές στον πίνακα.

Max VBA Max Function

Έχουμε πολλές αριθμητικές συναρτήσεις στο Excel. Μπορούμε να μετρήσουμε αριθμητικές τιμές στο εύρος, μπορούμε να συνοψίσουμε και μπορούμε να βρούμε την ελάχιστη τιμή καθώς και τη μέγιστη τιμή της παρτίδας. Για να βρούμε τη μέγιστη τιμή της παρτίδας έχουμε μια λειτουργία excel που ονομάζεται MAX η οποία θα επιστρέψει τη μέγιστη τιμή του παρεχόμενου εύρους αριθμών. Στο VBA δεν έχουμε καμία ενσωματωμένη λειτουργία που ονομάζεται "MAX" για να λάβουμε τον μέγιστο αριθμό. Θα δούμε πώς να χρησιμοποιήσετε αυτήν τη λειτουργία Max VBA Max.

Παράδειγμα Max Function στο Excel VBA

Δυστυχώς, δεν έχουμε την πολυτέλεια να χρησιμοποιήσουμε το MAX ως ενσωματωμένη λειτουργία VBA, αλλά μπορούμε να έχουμε πρόσβαση σε αυτήν τη λειτουργία ως μέρος της κλάσης Λειτουργία φύλλου εργασίας.

Τώρα, δείτε τον παρακάτω κώδικα.

Κώδικας:

 Sub MAX_Example1 () 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 

Στο παραπάνω παράδειγμα, έχω δηλώσει τρεις μεταβλητές για την αποθήκευση του αριθμού.

Dim a As Integer Dim b As Integer Dim c As Integer

Έχω δηλώσει μια ακόμη μεταβλητή για να δείξω τα αποτελέσματα.

Αχνό αποτέλεσμα ως ακέραιος.

Για τις 3 πρώτες τρεις μεταβλητές, έχω εκχωρήσει την τιμή όπως 50, 25 και 60 αντίστοιχα.

a = 50 b = 25 c = 60

Στην επόμενη γραμμή, έχω εφαρμόσει το MAX ως κλάση λειτουργίας φύλλου εργασίας VBA για να αποθηκεύσω το αποτέλεσμα στη μεταβλητή "Αποτέλεσμα".

Αποτέλεσμα = Φύλλο εργασίας Λειτουργία. Max (a, b, c)

Τελικά, δείχνω την τιμή στο πλαίσιο μηνυμάτων στο VBA. Αποτέλεσμα MsgBox

Τώρα θα τρέξω αυτόν τον κωδικό χρησιμοποιώντας το F5 ή χειροκίνητα και θα δω ποιο είναι το αποτέλεσμα στο πλαίσιο μηνύματος.

Έτσι, το αποτέλεσμα είναι 60.

Από όλους τους παρεχόμενους αριθμούς, δηλαδή 50, 25 και 60, ο μέγιστος αριθμός είναι 60.

Προηγμένο παράδειγμα Max στο Excel VBA

Οι βρόχοι είναι πολύ σημαντικοί στο VBA για να περάσουν όλα τα κελιά και να φτάσουν το αποτέλεσμα. Θα δούμε πώς να συνδυάσουμε το VBA MAX με βρόχους για να φτάσουμε στη μέγιστη τιμή από τη λίστα αριθμών.

Έχω μια λίστα αντικειμένων και την απόδοση των μηνιαίων πωλήσεων αυτών των αντικειμένων, όπως φαίνεται παρακάτω.

Τώρα για κάθε είδος, θέλω να μάθω ποιος είναι ο μέγιστος αριθμός πώλησης για 4 μήνες όπως φαίνεται στην εικόνα.

Εφαρμόζοντας το MAX στο excel μπορούμε να το βρούμε σε λίγα δευτερόλεπτα.

Τώρα θα δούμε πώς να βρούμε τη μέγιστη τιμή χρησιμοποιώντας τον κώδικα VBA.

Ο παρακάτω κώδικας θα εκτελέσει την εργασία εύρεσης του μέγιστου αριθμού για κάθε στοιχείο.

Κώδικας:

 Sub MAX_Example2 () Dim k As Integer For k = 2 to 9 Cells (k, 7). Value = WorksheetFunction.Max (Range ("A" & k & ":" & "E" & k)) Next k End Sub 

Αυτό θα αναγνωρίσει τον μέγιστο αριθμό εύκολα.

Τώρα εκτελέστε τον κωδικό χειροκίνητα ή πατήστε το πλήκτρο F5 και δείτε το αποτέλεσμα όπως φαίνεται παρακάτω.

Για να λάβετε τις μέγιστες τιμές όνομα μήνα χρησιμοποιήστε τον παρακάτω κωδικό.

Κώδικας:

 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) Επόμενο k End Sub 

Με βάση την τιμή που παρέχεται από τη συνάρτηση VBA max, η συνάρτηση INDEX & η συνάρτηση MATCH θα επιστρέψει τον σχετικό μήνα στην επόμενη γραμμή.

Πράγματα που πρέπει να θυμάστε

  • Εάν υπάρχει ο διπλότυπος αριθμός τους, θα εμφανίζει μόνο έναν αριθμό που έρχεται πρώτος.
  • Αυτός είναι ο αντίθετος τύπος της λειτουργίας MIN στο excel.
  • Το MAX δεν είναι συνάρτηση VBA, είναι μια ενσωματωμένη συνάρτηση στο excel, οπότε χρησιμοποιώντας την κλάση λειτουργίας φύλλου εργασίας.

Μπορείτε να κατεβάσετε αυτό το Πρότυπο Excel εδώ - Πρότυπο λειτουργίας Max VBA