Visual Basic makroer tilpasse Microsoft Office-programmer , noe som gjør dem kraftigere med spesialiserte verktøy for bestemte brukere. Kalenderkontrollene paratbrukere ved å sikre kvaliteten på sine data . Genererer en kalender for valg av dato på fly krever en Visual Basic Macro og en ActiveX- kontroll, ActiveX viser kalenderen og Visual Basic tolker bruker kommandoer på kalenderen . Eksempelet i denne artikkelen vil fokusere på å generere en kalender i Microsoft Excel , men det kan tilpasses for alle programmer i Microsoft Office Suite . Instruksjoner
en

Launch Excel ved å klikke på " Start", " Alle programmer , " "Microsoft Office Suite " og " Excel ".
2

Start Visual Basic-redigering ( VBE ) ved å trykke " Alt" og " F11 " samtidig .
3

Lag " personal.xls " arbeidsbok hvis den ikke finnes allerede. Den " personal.xls " arbeidsbok inneholder makroer som er tilgjengelige fra enhver annen arbeidsbok i Excel. Øverst til venstre i VBE er et navigasjonssystem panel . Hvis " personal.xls " er ikke oppført i VBE navigasjon panel , klikk på " Verktøy ", " Makro " og " Registrer ny makro . " En dialogboks vil vises på skjermen . Velg "Lagre Macro i : Personlig Makro arbeidsbok" og klikk " OK . " Klikk på " Stopp registrering . " Den " personal.xls " arbeidsbok vil nå vises i VBE navigasjon panel .
4

Opprett " UserForm " som skal inneholde kalenderen. Klikk " personal.xls " for å velge arbeidsboken . Klikk "Sett inn" og deretter " UserForm . " Den " UserForm " dialogboks vil vises på skjermen. Det er flere tekstbokser i dialogboksen , i tekstboksen for "Name ", endre teksten til " frmCalendar " og i boksen for " Bildetekst ", endre teksten til

5

Legg kalenderkontrollen til verktøykassen . Klikk på " Vis ", " Toolbox ", " Verktøy " og " Flere kontroller . " En dialogboks med en liste over kontrollene vises. Bla ned til "Kalender Kontroll 8.0" (eller den nyeste versjonen ) , klikk for å merke det og klikke "OK".
6

Sett kalenderen kontroll i UserForm . Klikk på " Calendar Control" -ikonet i verktøykassen , og klikk deretter på øvre venstre hjørne av UserForm . Klikk og dra kalenderen bildet til ønsket posisjon innenfor UserForm .
7

Lag kalender - kontroll exit knappen. Klikk på " Command Control" -knappen i verktøykassen. Flytt "x "-knappen til øverst til venstre på UserForm . Under "Egenskaper ", endre navnet til " cmdClose » og endre verdien for "Avbryt " til " true". Trykk på F7 knappen for å få tilgang til koden editor. Kopier og lim inn følgende kode inn i VBE : en

Private Sub cmdClose_Click ( )

Losse Me

End Sub
8

Program kalenderen funksjonalitet. Velg " Calendar1 " fra drop -down menyen øverst til venstre i VBE . Det er en annen drop- down menyen til høyre for denne listen , velg "Klikk " fra denne menyen . Kopier og lim inn følgende kode inn i VBE : en

Private Sub Calendar1_Click ( )

ActiveCell.Value = Calendar1.Value

losse meg

End Sub
9

Lagre " Personal.xls " regnearket ved å trykke " Ctrl" og " s " samtidig .
10

Kjør makro. Klikk på " x " øverst i høyre hjørne for å lukke VBE . Klikk hvilken som helst celle i regnearket . Trykk "Alt" og "F8" samtidig. Den makroer dialogen vises. Velg " Personal.xls ! OpenCalendar " og deretter "Run. " Kalenderen kontroll vises. Klikk hvilken som helst dato på kalenderen for å skrive denne datoen til cellen .