Microsoft Excel ist ein optimales Umfeld zu schaffen und aufrechtzuerhalten einen Kalender . Mit den verschiedenen Zellen , können Sie ganz einfach von Tag zu Tag zu bewegen, um den Kalender zu aktualisieren oder fügen Sie in neue Ereignisse und Termine . Es ist nicht schwer , einen Kalender in Excel erstellen. Microsoft hat eine einfache CalendarMaker Makro geliefert , dass Einsätze in der Visual Basic -Editor in Excel , die den Kalender für Sie erstellt. Alles, was Sie tun müssen, ist den Code kopieren , um Ihren Monatskalender in Excel haben . Anleitung
1
Öffnen Sie Microsoft Excel. Klicken Sie auf das Menü "Extras" , zeigen Sie auf " Makro " und klicken Sie auf " Visual Basic Editor" bei Verwendung von Excel 2003 oder früher. Für Excel 2007/2010 , auf der Registerkarte "Entwicklertools" und klicken Sie dann auf " Visual Basic ". Wenn Sie nicht sehen, die Registerkarte "Entwicklertools" auf der "Office "-Button und dann auf " Excel-Optionen. " Auf dem ersten Bildschirm auf die Kontrollkästchen neben klicken auf " Zeigen Sie die Registerkarte Entwicklertools auf der Multifunktionsleiste " und klicken Sie dann auf "OK". Die Registerkarte "Entwicklertools" sollte nun zeigen .
2
Klicken Sie auf das Menü "Einfügen" Artikel in der Visual Basic-Editor. Klicken Sie auf "Module" , um einen neuen Code-Modul starten
3
Kopieren Sie den ersten Teil des folgenden Code in das neue Modul: .
"Sub CalendarMaker ()
' Blattschutz aufheben , wenn hatte vorangegangenen Kalenderjahr um Fehler zu vermeiden
ActiveSheet.Protect DrawingObjects : . = False , Inhalt: = False , _
Szenarien: = False
< p> ' Prevent Bildschirm blinkt während des Zeichnens Kalender.
Application.ScreenUpdating = False
' Set up Fehlerbehebung .
On Error GoTo MyErrorTrap
' Klar Bereich a1 : g14 einschließlich aller vorangegangenen Kalenderjahr
Range (" A1: G14 " ) . . Klar
'Use InputBox zu gewünschten Monat und Jahr get-und set variable
' myInput .
myInput = InputBox (" Geben Sie Monat und Jahr für Kalender " )
' Benutzer zulassen Makro mit Abbrechen in InputBox beenden.
Wenn myInput = " " Then Exit Sub