Visual Basic-makroer tilpasse Microsoft Office-programmer , hvilket gør dem mere kraftfulde med specialiserede værktøjer til specifikke brugere . Kalender styrer støtte brugere ved at sikre kvaliteten af deres data. Generering af en kalender for dato udvælgelse på flue kræver en Visual Basic makro-og et ActiveX-objekt , ActiveX viser kalender og Visual Basic fortolker brugerkommandoer på kalenderen . Eksemplet kode i denne artikel vil fokusere på at generere en kalender i Microsoft Excel, men det kan tilpasses til enhver applikation i Microsoft Office Suite . Instruktioner
1
Launch Excel ved at klikke på " Start", " Alle programmer ", " Microsoft Office Suite " og " Excel ".
2
Start Visual Basic Editor ( VBE ) ved at trykke på " Alt" og " F11 " samtidigt.
3
Opret " personal.xls " projektmappe , hvis det ikke allerede findes. Den " personal.xls " projektmappe indeholder makroer, der er tilgængelige fra enhver anden projektmappe i Excel. Øverst til venstre i VBE er der en navigations panel. Hvis " personal.xls " ikke er opført i VBE navigationspanelet, klik på " Funktioner ", " Macro " og " Indspil ny makro . " En dialogboks vises på skærmen. Vælg "Gem Macro i : Personal Macro Workbook ", og klik derefter på "OK". Klik på " Stop Recording ". Den " personal.xls " projektmappe vises nu i VBE navigationspanelet.
4
Opret " UserForm ", der vil indeholde kalenderen. Klik på " personal.xls " for at vælge projektmappen. Klik på " Indsæt" og derefter " UserForm ". Den " UserForm " dialogboks vises på skærmen. Der er flere tekstbokse i dialogboksen , i tekstfeltet for "Navn ", ændre teksten til " frmCalendar ", og i feltet for " Caption ", ændre teksten til
< br " Vælg en dato . " > 5
Tilføj kalenderen kontrol til værktøjskassen. Klik på " Vis ", " Toolbox ", " Funktioner" og " yderligere kontroller. " En dialogboks med en liste over kontrolelementer vises. Rul ned til "Kalender Kontrol 8.0" (eller den nyeste version ) , skal du markere det og derefter klikke på "OK ".
6
Indsæt kalenderen kontrol i UserForm . Klik på " Kalender Control" ikonet i værktøjskassen og derefter klikke i øverste venstre hjørne af UserForm . Klik og træk kalenderen billedet til den ønskede position i UserForm .
7
Opret kalender -control exit knappen. Klik på " Command Control" knappen i værktøjskassen. Flyt "x" knappen til øverste venstre hjørne af UserForm . Under "Egenskaber ", ændre navnet til " cmdClose ", og ændre værdien af "Cancel " til " Sand ". Tryk på F7 -knappen for at få adgang til koden editor. Kopier og indsæt følgende kode i VBE : Hej
Private Sub cmdClose_Click ()
Unload Me
End Sub
8
Program kalenderen funktionalitet. Vælg " Calendar1 " fra drop -down menuen øverst til venstre på VBE . Der er en anden drop- down menuen til højre for denne liste , skal du vælge " Click" fra denne menu . Kopier og indsæt følgende kode i VBE : Hej
Private Sub Calendar1_Click ()
ActiveCell.Value = Calendar1.Value
losse Me
End Sub
9
Gem " Personal.xls " regneark ved at trykke på " Ctrl " og " s" samtidigt.
10
Kør makro. Klik på " x" i øverste højre hjørne for at lukke VBE . Klik på en vilkårlig celle i regnearket . Tryk på " Alt" og "F8" samtidigt. Makroer dialog vises . Vælg " Personal.xls ! OpenCalendar " og derefter klikke på "Kør ". Kalenderen kontrol vises. Klik på dato i kalenderen for at skrive denne dato til cellen.