Πώς να χρησιμοποιήσετε συναρτήσεις στο Excel VBA

Χρησιμοποιώντας έναν συνδυασμό των ενσωματωμένων συναρτήσεων στο Microsoft Excel και τις λειτουργίες που δημιουργείτε χρησιμοποιώντας VBA μπορούν να σας βοηθήσουν να βρείτε λύσεις σε πιο σύνθετα προβλήματα . Μπορείτε να δημιουργήσετε λειτουργίες σε μια λειτουργική μονάδα VBA στο Excel που θα επιστρέψει ένα αποτέλεσμα με βάση την παράμετρο εισόδου . Η λειτουργία που θα δημιουργηθεί θα είναι διαθέσιμα για χρήση στο Excel , μαζί με όλα τα άλλα Excel ενσωματωμένες λειτουργίες . Σε μερικά βήματα , μπορείτε να δημιουργήσετε μια λειτουργία για να επιστρέψει την τρέχουσα ημέρα ως String , με βάση την τρέχουσα ημερομηνία του συστήματος . Οδηγίες
Η

1 Κάντε κλικ στο A1 και πληκτρολογήστε " = NOW ( ) " για να πάρει την τρέχουσα ημερομηνία του συστήματος . Κάντε κλικ στην καρτέλα "Προγραμματιστής " και κάντε κλικ στο " Visual Basic" για να ξεκινήσει το πρόγραμμα επεξεργασίας VB . . Κάντε κλικ στο "Εισαγωγή" μενού και κάντε κλικ στο " Ενότητα " για να εισάγετε μια νέα λειτουργική μονάδα κώδικα 2

Δημιουργήστε μια νέα λειτουργία με ένα "Ημερομηνία" μεταβλητή τύπου δεδομένων ως παράμετρος εισόδου :

Public Function getDayOfWeek ( dateEntered Ως ημερομηνία)
εικόνων 3

Δημιουργήστε μια μεταβλητή για να κρατήσει τον αριθμό ημέρα:

Dim dayNum As Integer
Η 4

Χρησιμοποιήστε τη λειτουργία "Ημέρα " για να επιστρέψετε τον αριθμό ημερών με τη χρήση του " dateEntered " μεταβλητή :

dayNum = ημέρα της εβδομάδας ( dateEntered , vbSunday )
5

Χρησιμοποιήστε μια " υπόθεση " δήλωση καθορίσει την ημέρα και να επιστρέψει το όνομα ημέρα ως String :

Επιλέξτε υπόθεση dayNum

Περίπτωση 1

getDayOfWeek = "Sunday "

Περίπτωση 2

getDayOfWeek = "Δευτέρα"

Περίπτωση 3

getDayOfWeek = "Τρίτη"

υπόθεση 4

getDayOfWeek = "Wednesday "

υπόθεση 5

getDayOfWeek = "Πέμπτη"

υπόθεση 6

getDayOfWeek = "Παρασκευή"

υπόθεση 7

getDayOfWeek = "Saturday "

End Select
Η 6

End λειτουργία σας, πληκτρολογώντας " Function End" στο τέλος . Επιστρέψτε στο Microsoft Excel και τον τύπο " = getDayOfWeek ( A1 ) " στο Β1 για να εμφανίσετε την τρέχουσα ημέρα , χρησιμοποιώντας την ημερομηνία στην Α1 .
Η
εικόνων