Σε αυτό το άρθρο, πρόκειται να δημιουργήσουμε συνάρτηση που ορίζεται από τον χρήστη για να μάθετε τον αριθμό που λείπει σε μια περιοχή μέσω VBA στο Microsoft Excel.
Λειτουργία καθορισμένη από το χρήστη: Το Microsoft Excel σάς επιτρέπει να δημιουργήσετε τη δική σας συνάρτηση σύμφωνα με τις απαιτήσεις, την αποκαλούμε Συνάρτηση καθορισμένη από το χρήστη. Και, μπορούμε να χρησιμοποιήσουμε συναρτήσεις που ορίζονται από το χρήστη, όπως άλλες λειτουργίες που λειτουργούν στο Excel.
Ας πάρουμε ένα παράδειγμα για να καταλάβουμε:-
Έχουμε δεδομένα στα οποία έχουμε τιμές για κάθε αναγνωριστικό κωδικού και θέλουμε να ελέγξουμε την τιμή που λείπει μεταξύ 1 και 99, εάν στο εύρος λείπουν οι τιμές, τότε ποιες τιμές λείπουν και αν όλες οι τιμές είναι διαθέσιμες, τότε το αποτέλεσμα πρέπει να είναι όλες οι τιμές είναι διαθέσιμες.
Θα γράψουμε τον κωδικό VBA για να μάθετε τους αριθμούς που λείπουν ακολουθήστε τα παρακάτω βήματα:
- Ανοίξτε τη σελίδα VBA πατήστε το πλήκτρο Alt+F11
- Εισαγάγετε μια ενότητα
- Στη συνέχεια, μεταβείτε ξανά στο μενού εισαγωγής και κάντε κλικ στη διαδικασία, όπου θα λάβετε τη διαδικασία εάν δεν γνωρίζετε πώς πρέπει να ξεκινήσει η μακροεντολή
- Γράψτε τον παρακάτω κωδικό:
Λειτουργία Missing_Number (Myrange As Range) Dim Number (1 To 99) As Integer On Error Συνέχιση Επόμενο για κάθε κελί στον αριθμό Myrange (Cell.Value) = 1 Επόμενο Σφάλμα GoTo 0 Missing_Number = "Missing:" For I = 1 To 99 Εάν όχι Αριθμός (I) = 1 Τότε Λείπει_Αριθμός = Λείπει_Αριθμός & Ι & "," Τερματισμός Αν Επόμενο I Αν Λεν (Λείπει_Αριθμός) = 9 Τότε Λείπει_Αριθμός = Αριστερά (Λείπει_Αριθμός, Λεν (Λείπει_Αριθμός) - 2) Τερματίζεται Αν Λειτουργία Τέλους
- Πατήστε το πλήκτρο F5 στο πληκτρολόγιο
- Χρησιμοποιήστε αυτήν τη λειτουργία μακροεντολής ως τύπο
- = Missing_Number (D3: KO3) πατήστε enter στο πληκτρολόγιο
Με αυτόν τον τρόπο, μπορούμε να επιστρέψουμε τις τιμές που λείπουν από τα δεδομένα για κάθε σειρά χρησιμοποιώντας VBA στο Microsoft Excel
Αν σας άρεσαν τα ιστολόγια μας, μοιραστείτε το με τους φίλους σας στο Facebook. Επίσης, μπορείτε να μας ακολουθήσετε στο Twitter και το Facebook.
Θα θέλαμε πολύ να σας ακούσουμε, ενημερώστε μας πώς μπορούμε να βελτιώσουμε, να συμπληρώσουμε ή να καινοτομήσουμε το έργο μας και να το κάνουμε καλύτερο για εσάς. Γράψτε μας στον ιστότοπο email