Περιεχόμενο

• Βήματα
• Συμβουλές
• Προειδοποιήσεις

Παρόλο που το Excel έχει πολλές, πιθανώς εκατοντάδες ενσωματωμένες συναρτήσεις όπως SUM, VLOOKUP, LEFT και ούτω καθεξής, όταν ξεκινάτε να χρησιμοποιείτε το Excel για πιο περίπλοκες εργασίες, συχνά διαπιστώνετε ότι χρειάζεστε μια λειτουργία που δεν υπάρχει. Μην ανησυχείτε, όλα δεν έχουν χαθεί. το μόνο που χρειάζεστε είναι να δημιουργήσετε την επιθυμητή λειτουργία.

Βήματα

1. 

   Δημιουργήστε ένα νέο βιβλίο εργασίας ή ανοίξτε το βιβλίο εργασίας όπου θέλετε να χρησιμοποιήσετε τη λειτουργία που έχετε δημιουργήσει πρόσφατα από τον χρήστη (FDU).

2. 

   
   
   Ανοίξτε το πρόγραμμα επεξεργασίας της Visual Basic το οποίο είναι ενσωματωμένο στο Microsoft Excel μεταβαίνοντας στο Tools-> Macro-> Visual Basic Editor (ή πατώντας Alt + F11).

3. 

   
   
   Προσθέστε μια νέα ενότητα στο βιβλίο εργασίας σας κάνοντας κλικ στο κουμπί που υποδεικνύεται. Μπορείτε να δημιουργήσετε τη συνάρτηση που ορίζεται από το χρήστη στο ίδιο το φύλλο εργασίας χωρίς να προσθέσετε μια νέα λειτουργική μονάδα, αλλά αυτό θα σας εμποδίσει να το χρησιμοποιήσετε σε άλλα φύλλα εργασίας στο ίδιο βιβλίο εργασίας.

4. 

   
   
   Δημιουργήστε το "header" ή το "πρωτότυπο" της λειτουργίας σας. Πρέπει να έχετε την ακόλουθη δομή: δημόσια λειτουργία TheNameOfYourFunction (param1 As type1, param2 As type2) Ως returnType Μπορεί να υπάρχουν όσες παραμέτρους επιθυμείτε και ο τύπος τους μπορεί να είναι οποιοσδήποτε από τους βασικούς τύπους δεδομένων ή τύπους αντικειμένων Excel όπως Range. Μπορείτε να σκεφτείτε τις παραμέτρους ως τους "τελεστές" στους οποίους θα λειτουργεί η λειτουργία σας. Για παράδειγμα, όταν λέτε SIN (45) για τον υπολογισμό του ημιτόνου 45 μοιρών, το 45 θα ληφθεί ως παράμετρος. Στη συνέχεια, ο κωδικός λειτουργίας θα χρησιμοποιήσει αυτήν την τιμή για να πραγματοποιήσει κάποιον υπολογισμό και να παρουσιάσει το αποτέλεσμα.

5. 

   Προσθέστε τον κωδικό λειτουργίας, διασφαλίζοντας: 1) χρησιμοποιήστε τις τιμές που παρέχονται από τις παραμέτρους. 2) αντιστοιχίστε το αποτέλεσμα στο όνομα της συνάρτησης. και 3) κλείστε τη λειτουργία με "λειτουργία τερματισμού". Η μάθηση πώς να προγραμματίζετε σε VBA ή οποιαδήποτε άλλη γλώσσα μπορεί να διαρκέσει λίγο χρόνο και να χρειαστεί ένα λεπτομερές σεμινάριο. Ωστόσο, οι συναρτήσεις συχνά έχουν μικρά μπλοκ κώδικα και χρησιμοποιούν λίγους πόρους γλώσσας. Τα πιο χρήσιμα στοιχεία της γλώσσας VBA είναι:
   1. Το μπλοκ Αν, το οποίο σας επιτρέπει να εκτελέσετε ένα τμήμα του κώδικα μόνο εάν πληρούται μια συνθήκη. Για παράδειγμα:
      
      
Αποτέλεσμα Public Function Course (πλέγμα ως ακέραιος) ως συμβολοσειρά
Εάν βαθμός> = 5 τότε
CourseResult = "Εγκρίθηκε"
Αλλού
CourseResult = "Απορρίφθηκε"
Τέλος εαν
Λειτουργία τερματισμού

Παρατηρήστε τα στοιχεία σε ένα μπλοκ κώδικα Αν: ΕΑΝ ο όρος ΑΥΤΟΣ ο κωδικός ΕΛΛΟΣ κωδικός ΤΕΛΟΣ ΕΝ. Η λέξη-κλειδί Αλλού μαζί με το δεύτερο μέρος του κώδικα είναι προαιρετικά.
   2. Το μπλοκ Του, που εκτελεί ένα κομμάτι κώδικα Ενώ (ενώ) ή Μέχρι (μέχρι) πληρούται μια προϋπόθεση. Για παράδειγμα:
      
      Δημόσια συνάρτηση IsPrime (τιμή ως ακέραιος) ως Boolean
Dim i As Integer
i = 2
IsPrime = True
Του
Εάν τιμή / i = Int (τιμή / i) τότε
IsPrime = Λάθος
Τέλος εαν
i = i + 1
Loop While i <value And IsPrime = True
Λειτουργία τερματισμού

Κοιτάξτε ξανά τα στοιχεία: ΚΑΝΤΕ ΚΩΔΙΚΟΣ ΒΑΛΒΙΖΟΝΤΑΙ ΕΩΣ / ΜΗΝ συνθήκη. Σημειώστε επίσης τη δεύτερη γραμμή όπου μια μεταβλητή "δηλώνεται". Μπορείτε να προσθέσετε μεταβλητές στον κώδικά σας, ώστε να μπορείτε να τις χρησιμοποιήσετε αργότερα. Οι μεταβλητές ενεργούν ως προσωρινές τιμές στον κώδικα. Τέλος, κοιτάξτε τη δήλωση συνάρτησης ως BOOLEAN, που είναι ένας τύπος δεδομένων που επιτρέπει μόνο τις τιμές TRUE και FALSE. Αυτή η μέθοδος προσδιορισμού εάν ένας αριθμός είναι πρωταρχικός δεν είναι ιδανικός, αλλά προτιμώ να το αφήσω σε αυτό για να κάνω τον κώδικα ευκολότερο στην ανάγνωση.
   3. Το μπλοκ Για, που εκτελεί ένα κομμάτι κώδικα συγκεκριμένες φορές. Για παράδειγμα:
      
      Παράγοντα δημόσιας συνάρτησης (τιμή ως ακέραιος) Όσο καιρό
Αχνό αποτέλεσμα όσο καιρό
Dim i As Integer
Εάν η τιμή = 0 τότε
αποτέλεσμα = 1
Τιμή ElseIf = 1 Τότε
αποτέλεσμα = 1
Αλλού
αποτέλεσμα = 1
Για i = 1 στην τιμή
αποτέλεσμα = αποτέλεσμα * i
Επόμενο
Τέλος εαν
Παράγοντα = αποτέλεσμα
Λειτουργία τερματισμού

Κοιτάξτε ξανά τα στοιχεία:ΓΙΑ μεταβλητή = κατώτερο όριο ΠΡΟΣ ανώτερο όριο κωδικός ΕΠΟΜΕΝΑ Σημειώστε επίσης το στοιχείο Άλλο προστέθηκε στη δήλωση Αν, που σας επιτρέπει να προσθέσετε περισσότερες επιλογές για τον κώδικα που θα εκτελεστεί. Τέλος, κοιτάξτε τη δήλωση συνάρτησης και τη μεταβλητή "αποτελέσματος" ως Μακρύς. Ο τύπος δεδομένων Μακρύς επιτρέπει πολύ υψηλότερες τιμές από το "Integer".

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

6. 

   Επιστρέψτε στο βιβλίο εργασίας σας και χρησιμοποιήστε τη συνάρτηση ξεκινώντας τα περιεχόμενα ενός κελιού με ένα ίσος ακολουθούμενο από το όνομα του ρόλου σας. Προσθέστε μια εισαγωγική παρένθεση στο όνομα της συνάρτησης, οι παράμετροι διαχωρίζονται με κόμμα και μια τελική παρένθεση κλεισίματος. Για παράδειγμα:= NumberToLetters (A4) Μπορείτε επίσης να χρησιμοποιήσετε τον τύπο που καθορίζεται από τον χρήστη αναζητώντας τον στην κατηγορία Ορισμένο από τον χρήστη στον Οδηγό για να εισαγάγετε τον τύπο. Απλώς κάντε κλικ στο κουμπί Fx που βρίσκεται στα αριστερά της γραμμής τύπων. Οι παράμετροι μπορούν να είναι τριών τύπων:
   1. Οι σταθερές τιμές εισήχθησαν απευθείας στον τύπο κελιού. Οι χορδές πρέπει να περικλείονται σε εισαγωγικά σε αυτήν την περίπτωση.
   2. Αναφορές κελιού όπως Β6 ή διαστήματα όπως Α1: Γ3 (η παράμετρος πρέπει να είναι τύπου Διακοπή"")
   3. Άλλες λειτουργίες που οργανώνονται εντός της λειτουργίας σας (η λειτουργία σας μπορεί επίσης να ομαδοποιηθεί σε άλλες λειτουργίες). Δηλαδή: = Factorial (MAX (D6: D8))

7. 

   Ελέγξτε αν το αποτέλεσμα είναι ΟΚ αφού χρησιμοποιήσετε τη συνάρτηση αρκετές φορές, βεβαιωθείτε ότι χειρίζεται διαφορετικές τιμές παραμέτρων σωστά:

Συμβουλές

• Κάθε φορά που γράφετε ένα μπλοκ κώδικα σε μια δομή ελέγχου όπως το If, For, Do κ.λπ., θυμηθείτε να χαράξετε το μπλοκ χρησιμοποιώντας μερικά κενά ή καρτέλες (το στυλ εσοχής εξαρτάται από εσάς).Με αυτόν τον τρόπο ο κώδικάς σας θα είναι πιο κατανοητός και θα είναι πολύ πιο εύκολο να εντοπίσετε σφάλματα και να βελτιώσετε τον κώδικα.
• Το Excel διαθέτει πολλές ενσωματωμένες συναρτήσεις και οι περισσότεροι υπολογισμοί μπορούν να γίνουν μόνοι τους ή σε συνδυασμό. Πραγματοποιήστε αναζήτηση στη λίστα των διαθέσιμων λειτουργιών πριν ξεκινήσετε τον δικό σας κωδικό Η εκτέλεση μπορεί να είναι ταχύτερη αν χρησιμοποιείτε ενσωματωμένες συναρτήσεις.
• Μερικές φορές, μια συνάρτηση ενδέχεται να μην απαιτεί όλες τις παραμέτρους για τον υπολογισμό ενός αποτελέσματος. Σε αυτήν την περίπτωση, μπορείτε να χρησιμοποιήσετε τη λέξη-κλειδί Προαιρετικός πριν από το όνομα της παραμέτρου στην κεφαλίδα της συνάρτησης. Μπορείτε να χρησιμοποιήσετε το IsMissing (παράμετρος_ όνομα) εντός του κώδικα για να προσδιοριστεί εάν μια τιμή έχει εκχωρηθεί στην παράμετρο ή όχι.
• Εάν δεν ξέρετε πώς να γράψετε τον κώδικα για μια συνάρτηση, διαβάστε πώς να γράψετε μια απλή μακροεντολή στο Microsoft Excel.
• Χρησιμοποιήστε ένα όνομα που δεν έχει οριστεί ακόμη ως όνομα λειτουργίας στο Excel, ή θα καταλήξετε να χρησιμοποιείτε μόνο μία από τις συναρτήσεις.

Προειδοποιήσεις

• Λόγω μέτρων ασφαλείας, ορισμένα άτομα ενδέχεται να απενεργοποιήσουν τις μακροεντολές. Ενημερώστε τους συναδέλφους σας ότι το βιβλίο που στέλνετε έχει μακροεντολές και μπορεί να είναι αξιόπιστο, καθώς δεν θα βλάψει τους υπολογιστές σας.
• Οι λειτουργίες που χρησιμοποιούνται σε αυτό το άρθρο δεν είναι ο καλύτερος τρόπος για την επίλυση των προβλημάτων που αναφέρονται. Χρησιμοποιήθηκαν μόνο για να εξηγήσουν τη χρήση δομών ελέγχου γλώσσας.
• Το VBA, όπως και οποιαδήποτε άλλη γλώσσα, έχει πολλές άλλες δομές ελέγχου εκτός από το Do, If και For. Αυτά εξηγήθηκαν εδώ για να διευκρινιστεί τι μπορεί να γίνει στον πηγαίο κώδικα της συνάρτησης. Υπάρχουν πολλά διαδικτυακά σεμινάρια όπου μπορείτε να μάθετε VBA.