Πώς να δημιουργήσετε ένα ημερολόγιο Χρησιμοποιώντας το Excel

Microsoft Excel είναι ένα βέλτιστο περιβάλλον για να δημιουργήσει και να διατηρήσει ένα ημερολόγιο . Χρησιμοποιώντας τα διαφορετικά κύτταρα , μπορείτε εύκολα να μετακινηθείτε από μέρα σε μέρα να ενημερώσετε το ημερολόγιο ή να προσθέσετε σε νέα γεγονότα και συναντήσεις . Δεν είναι δύσκολο να δημιουργήσετε ένα ημερολόγιο στο Excel . Η Microsoft έχει προμηθεύσει ένα απλό macro CalendarMaker που εισάγει στο πρόγραμμα επεξεργασίας της Visual Basic στο Excel που θα δημιουργήσει το ημερολόγιο για εσάς . Το μόνο που θα χρειαστεί να κάνετε είναι να αντιγράψετε τον κώδικα να έχει μηνιαίο ημερολόγιο σας στο Excel . Οδηγίες
Η

1 Ανοίξτε το Microsoft Excel . Κάντε κλικ στο μενού "Εργαλεία" , επιλέξτε " Macro " και κάντε κλικ στο " Επεξεργασία Visual Basic " αν χρησιμοποιείτε το Excel 2003 ή νωρίτερα . Για το Excel 2007/2010 , κάντε κλικ στην καρτέλα "Προγραμματιστής " και στη συνέχεια κάντε κλικ στο " Visual Basic ". Εάν δεν βλέπετε την καρτέλα "Προγραμματιστής " , κάντε κλικ στο κουμπί " Office " και στη συνέχεια " Επιλογές του Excel . " Στην πρώτη οθόνη , κάντε κλικ στο πλαίσιο ελέγχου δίπλα στο " Εμφάνιση καρτέλας Προγραμματιστής στην κορδέλα " και στη συνέχεια κάντε κλικ στο κουμπί "OK". Η καρτέλα "Προγραμματιστής " πρέπει τώρα να δείξει . 2

Κάντε κλικ στο " Εισαγωγή" μενού στο Visual Basic Editor. Κάντε κλικ στο " Ενότητα " για να ξεκινήσει μια νέα λειτουργική μονάδα κώδικα
εικόνων 3

Αντιγράψτε το πρώτο μέρος του ακόλουθου κώδικα στη νέα λειτουργική μονάδα : .

" Sub CalendarMaker ( )

« Κατάργηση προστασίας φύλλου , αν είχε προηγούμενο ημερολογιακό για να αποτραπούν λάθη

ActiveSheet.Protect DrawingObjects : . = False , Περιεχόμενα : = False , _ Σενάρια

: = False

« Πρόληψη οθόνη αναβοσβήνει αντλώντας ημερολόγιο

Application.ScreenUpdating = False

. « Ρύθμιση παγίδευση σφαλμάτων .

On Error GoTo MyErrorTrap

» Αίθριος περιοχή a1 : . g14 συμπεριλαμβανομένης οποιασδήποτε προηγούμενο ημερολογιακό

Range. ( " a1 : g14 " ) Clear

«Χρήση InputBox για να πάρετε το επιθυμητό μήνα και έτος και θέστε την μεταβλητή

« MyInput .

MyInput = InputBox ( " Πληκτρολογήστε το μήνα και το έτος για το ημερολόγιο » )

« Επιτρέπει στο χρήστη να τελειώσει macro με Άκυρο InputBox .

Εάν MyInput = " " Στη συνέχεια Exit Sub

« Πάρτε την ημερομηνία αξίας την αρχή του μήνα που εισάγεται .

StartDay = DateValue ( MyInput )

« Ελέγξτε εάν έγκυρη ημερομηνία , αλλά δεν είναι η πρώτη του μήνα

» - αν ναι , επαναφέρετε StartDay στην πρώτη ημέρα του μήνα

Εάν Day ( StartDay ) <> 1 τότε

StartDay = DateValue ( μήνας . ( StartDay ) & " /1 /" & _

Έτος ( StartDay ) )

End If

« Προετοιμασία κυττάρων για μήνα και έτος γραφθεί .

Range ( " a1 " ) NumberFormat = " mmmm yyyy "