Ανοίξτε το Microsoft Excel . 2
Open VBA κρατώντας πατημένο το πλήκτρο Alt και το πλήκτρο F11 .
Η Φτηνές 3
Κάντε κλικ στο " Εισαγωγή" από το μενού για να ενεργοποιήσετε τη λειτουργία « Εισαγωγή » επιλογές .
Η
4 Κάντε κλικ στο " ενότητα " για να δημιουργήσετε μια νέα λειτουργική μονάδα .
5
Πληκτρολογήστε τον ακόλουθο κώδικα για να δημιουργήσετε μια νέα λειτουργία που ονομάζεται " DayName " :
DayName λειτουργία ( InputDate Ως ημερομηνία)
Αυτή η συνάρτηση θα επιστρέψει το όνομα της ημέρας για την ημερομηνία που είναι τέθηκε σε λειτουργία .
Παρατηρήστε ότι μέσα στις αγκύλες έχουμε εισέλθει σε μια μεταβλητή τύπου "Ημερομηνία" που ονομάζεται " InputDate " , αυτό θα κρατήσει την ημερομηνία που θέλετε να χρησιμοποιήσετε για να επιστρέψει το όνομα της ημέρας κατά την οποία η ημερομηνία πέφτει . Επιπλέον , VBA μπαίνει αυτόματα το " End Function " δήλωση κάθε φορά δημιουργείται μια λειτουργία
Η
6 Πληκτρολογήστε τον ακόλουθο κώδικα μεταξύ " DayName Λειτουργία ( InputDate Ως ημερομηνία) " και " Function End" : .
Dim DayNumber Όπως IntegerDayNumber = Ημέρα της εβδομάδας ( InputDate , vbSunday ) Select Case DayNumberCase 1DayName = "Sunday " υπόθεση 2DayName = "Δευτέρα" υπόθεση 3DayName = "Τρίτη" υπόθεση 4DayName = "Wednesday " υπόθεση 5DayName = "Πέμπτη" υπόθεση 6DayName = "Friday " υπόθεση 7DayName = "Saturday " End Select
Η 7
Εισάγετε μια ημερομηνία στο κελί A1 στο φύλλο με την ακόλουθη μορφή χωρίς εισαγωγικά :
02/09/2010
8
Πληκτρολογήστε το ακόλουθο κείμενο στο κελί B1 στο φύλλο :
= DayName ( A1 )
Αυτό θα επιστρέψει "Τρίτη" στο κελί B1 . Σημειώστε ότι αυτή η λειτουργία μπορεί τώρα να χρησιμοποιηθεί σε οποιοδήποτε κελί τρέχον βιβλίο εργασίας του Excel .
Η 9
Αποθηκεύστε το βιβλίο εργασίας του Excel .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα