Visual Basic macro's aanpassen Microsoft Office-toepassingen , waardoor ze krachtiger met gespecialiseerde tools voor specifieke gebruikers . Kalender regelt gebruikers hulp bij het waarborgen van de kwaliteit van hun gegevens . Het genereren van een kalender voor datum selectie op de vlieg is een Visual Basic- macro en een ActiveX-besturingselement , ActiveX toont de agenda en Visual Basic interpreteert gebruiker commando's op de kalender . De voorbeeldcode in dit artikel zal zich richten op het genereren van een kalender in Microsoft Excel , maar het kan worden aangepast voor elke toepassing in de Microsoft Office Suite . Instructies
1 Launch Excel door te klikken op " Start", " Alle programma's ", " Microsoft Office Suite " en " Excel . " Kopen van 2 Start de Visual Basic Editor ( VBE ) door op " Alt " en " F11 " tegelijk .
3 Maak de " personal.xls " werkboek als deze nog niet bestaat . De " personal.xls " werkmap bevat de macro's die toegankelijk zijn via elke andere werkmap in Excel zijn . In de linkerbovenhoek van de VBE er een navigatie- paneel . Als " personal.xls " niet in de VBE navigatiepaneel wordt vermeld , klikt u op 'Extra ', ' Macro " en " Nieuwe macro opnemen . " Een dialoogvenster verschijnt op het scherm . Selecteer " Store Macro in : Personal Macro Workbook " en klik op " OK . " Klik op " Opname stoppen . " De " personal.xls " werkboek verschijnt nu in de VBE navigatiepaneel .
4 Maak de " UserForm " dat de kalender zal bevatten . Klik op " personal.xls " om de werkmap te selecteren . Klik op "Invoegen " en vervolgens " UserForm . " De " UserForm " dialoogvenster verschijnt op het scherm . Er zijn verschillende tekstvakken in het dialoogvenster , in het tekstvak " Naam ", verander de tekst in " frmCalendar " en in het vakje voor " Caption ", de tekst te wijzigen in
< br " Selecteer een datum . " > 5 Voeg de kalender drukken om de toolbox . Klik op "Bekijk ", " Toolbox ", " Tools" en " Additional Controls . " Er verschijnt een dialoogvenster met een lijst van de controles zal verschijnen . Scroll naar beneden naar " Kalender Controle 8.0" ( of de laatste versie ) , klik om het te selecteren en klik vervolgens op " OK . "
6 Insert de kalender controle in de UserForm . Klik op de " Kalender Control" icoon in de werkbalk en klik vervolgens op de linkerbovenhoek van het UserForm . Klik en sleep de afbeelding van het kalender om de gewenste positie binnen het UserForm .
7 Maak de kalender -control exit knop . Klik op de " Command Control "-knop in de toolbox . Verplaats de " x " -knop om de linkerbovenhoek van het UserForm . Onder "Eigenschappen ", verander de naam in " cmdClose " en de waarde van de " Cancel " te veranderen in " True ". Druk op de F7 -toets om toegang te krijgen tot de code-editor . Kopieer en plak de volgende code in de VBE : Private Sub cmdClose_Click ( )
Unload Me End Sub
Programma 8
de kalender functionaliteit . Selecteer " Calendar1 " uit het drop - down menu in de linkerbovenhoek van de VBE . Er is nog een drop- down menu aan de rechterkant van deze lijst , selecteer " Click" van dit menu . Kopieer en plak de volgende code in de VBE : Private Sub Calendar1_Click
( ) ActiveCell.Value = Calendar1.Value
Unload Me End Sub
9 Sla de " Personal.xls " werkblad door op " Ctrl " en " s" tegelijk .
10 Voer het Macro . Klik op de " x " in de rechterbovenhoek om de VBE sluiten . Klik op een willekeurige cel op het werkblad . Druk op " Alt " en " F8 " tegelijk . Het dialoogvenster Macro's wordt weergegeven . Selecteer " ! OpenCalendar Personal.xls " en klik vervolgens op ' Uitvoeren '. De kalender controle zal verschijnen . Klik op een datum in de kalender om die datum te schrijven aan de cel .
|
