Visual Basic Makros anpassen Microsoft Office-Anwendungen , so dass sie stärker mit Spezialwerkzeugen für bestimmte Benutzer . Kalender steuert Hilfe Benutzer durch die Sicherung der Qualität ihrer Daten. Erstellen eines Kalenders für aktuelle Auswahl on the fly erfordert ein Visual Basic- Makro und ein ActiveX-Steuerelement , ActiveX zeigt die Kalender-und Visual Basic interpretiert Benutzer Befehle auf dem Kalender. Der Beispielcode in diesem Artikel wird auf die Generierung eines Kalenders in Microsoft Excel zu konzentrieren, aber es kann für jede Anwendung in der Microsoft Office Suite angepasst werden. Anleitung
1
starten Excel , indem Sie auf " Start", " Alle Programme", "Microsoft Office Suite " und " Excel".
2
Starten Sie den Visual Basic Editor ( VBE ) durch Drücken von " Alt" und " F11 " gleichzeitig .
3
erstellen Sie die " personal.xls " Arbeitsmappe , wenn es nicht bereits vorhanden ist. Die " personal.xls " Arbeitsmappe enthält Makros, zugänglich von jedem anderen Arbeitsmappe in Excel. An der Spitze des VBE links gibt es eine Navigationsleiste . Wenn " personal.xls " ist nicht im VBE Navigationsleiste aufgeführt sind, klicken Sie auf " Extras", " Makro " und " Neues Makro aufzeichnen . " Ein Dialogfeld wird auf dem Bildschirm angezeigt . Wählen Sie "Store Macro in : Persönliche Makro-Arbeitsmappe " und klicken Sie dann auf "OK". Klicken Sie auf " Stop Recording ". Die " personal.xls " Arbeitsmappe wird nun in der VBE Navigations-Panel angezeigt.
4
Erstellen Sie die " UserForm " , die den Kalender enthält. Klicken Sie auf " personal.xls " , um die Arbeitsmappe auszuwählen. Klicken Sie auf " Einfügen" und dann auf " UserForm. " Die " UserForm "-Dialogfenster auf dem Bildschirm erscheinen . Es gibt mehrere Textfelder in dem Dialogfeld , in das Textfeld "Name " den Text zu " frmCalendar " und in das Feld für "Caption ", ändern den Text zum
< br " Wählen Sie ein Datum . " > 5
Fügen Sie das Kalender-Steuerelement der Toolbox . Klicken Sie auf " Ansicht ", " Toolbox ", " Tools" und " Weitere Steuerelemente". Ein Dialogfeld mit einer Liste der Steuerelemente angezeigt. Blättern Sie nach unten auf " Calendar Control 8.0" (oder die neueste Version) , klicken Sie auf , um es auszuwählen und klicken Sie dann auf "OK".
6
Legen Sie die Kalender-Steuerelement in der UserForm. Klicken Sie auf die " Calendar Control "-Symbol in der Toolbox und klicken Sie dann auf die linke obere Ecke des UserForm. Klicken und ziehen Sie den Kalender Bild an die gewünschte Position in der UserForm.
7
Erstellen Sie die Kalender -Control Exit-Button . Klicken Sie auf die "Command Control" -Taste in der Toolbox. Bewegen Sie die Taste "x" an die Spitze der UserForm verlassen . Unter "Eigenschaften ", den Namen zu ändern " cmdClose " und ändern Sie den Wert von " Cancel" auf "True ". Drücken Sie die F7 -Taste, um den Code-Editor zugreifen . Kopieren Sie den folgenden Code in die VBE :
Private Sub cmdClose_Click ()
Unload Me End Sub
8
Programm der Kalender Funktionalität . Wählen Sie " Calendar1 " aus dem Drop -Down- Menü am oberen Rand des VBE links . Es ist ein weiteres Dropdown-Menü auf der rechten Seite dieser Liste ; wählen Sie " Klicken " aus diesem Menü . Kopieren Sie den folgenden Code in die VBE :
Private Sub Calendar1_Click ()
ActiveCell.Value = Calendar1.Value
Unload Me End Sub
9
Speichern Sie die " Personal.xls " Arbeitsblatt durch Drücken von "Strg" und "s" gleichzeitig .
10
Führen Sie das Makro . Klicken Sie auf das "x " in der rechten oberen Ecke, um den VBE schließen. Klicken Sie auf eine beliebige Zelle im Arbeitsblatt . Drücken Sie die " Alt" und "F8" gleichzeitig . Das Dialogfeld Makros wird angezeigt. Wählen Sie " Personal.xls ! OpenCalendar " und klicken Sie dann auf "Ausführen". Das Kalender-Steuerelement wird angezeigt. Klicken Sie auf ein Datum auf dem Kalender, um dieses Datum in die Zelle zu schreiben.
