Visual Basic-makron skräddarsy Microsoft Office-program , vilket gör dem mer kraftfulla med specialiserade verktyg för specifika användare . Kalender styr hjälpen användare genom att säkerställa kvaliteten på sina uppgifter . Generera en kalender för datum urval på fluga kräver en Visual Basic makro och en ActiveX -kontroll , ActiveX visar kalendern och Visual Basic tolkar användarens kommandon på kalendern . Exemplet i den här artikeln kommer att fokusera på att skapa en kalender i Microsoft Excel , men det kan anpassas för varje tillämpning i Microsoft Office Suite . Instruktioner
1
Launch Excel genom att klicka på "Start ", " Alla program ", " Microsoft Office Suite " och " Excel ".
2
Starta Visual Basic Editor ( VBE ) genom att trycka på " Alt " och " F11 " samtidigt .
3
Skapa " Personal.xls " arbetsbok om den inte redan finns . Den " Personal.xls " arbetsboken innehåller makron som kan nås från varje annan arbetsbok i Excel . Längst upp till vänster på VBE finns en navigering panel . Om " Personal.xls " inte finns med i VBE navigeringsfönstret klickar " Verktyg ", " Macro " och " Spela in nytt makro . " En dialogruta visas på skärmen . Välj " Lagra makrot i : Egna makron " och klicka sedan på " OK . " Klicka på " Stoppa inspelning . " Den " Personal.xls " arbetsboken visas nu i VBE navigeringspanelen .
4
Skapa " UserForm " som ska innehålla kalendern . Klicka på " Personal.xls " för att välja arbetsboken . Klicka på " Infoga " och sedan " UserForm . " Den " UserForm " dialogruta visas på skärmen . Det finns flera textrutor i dialogrutan , i textrutan för " Namn ", ändra texten till " frmCalendar " och i rutan för " Caption ", ändra texten till
5
Lägg kalendern kontrollen i verktygslådan . Klicka på " Visa ", " Toolbox ", " Verktyg " och " ytterligare kontroller . " En dialogruta med en lista över kontroller visas . Bläddra ned till " Calendar Control 8.0 " ( eller den senaste versionen ) , markera den och klicka sedan på " OK . "
6
Infoga kalendern kontroll i UserForm . Klicka på " Calendar Control " -ikonen i verktygslådan och klicka sedan på det övre vänstra hörnet av UserForm . Klicka och dra i kalendern bilden till önskad position inom UserForm .
7
Skapa kalendern - kontroll exit knappen . Klicka på " Command Control" -knappen i verktygslådan . Flytta " x " knappen högst upp till vänster på UserForm . Under " Egenskaper " byta namn till " cmdClose " och ändra värdet på " Avbryt " till "true ". Tryck på F7 -knappen för att komma åt koden redaktör . Kopiera och klistra in följande kod i VBE :
Private Sub cmdClose_Click ( ) katalog
Lasta mig
End Sub
8
Program kalendern funktionalitet. Välj " Calendar1 " från rullgardinsmenyn längst upp till vänster på VBE . Det finns en annan rullgardinsmenyn till höger om denna lista , välj " Click " från denna meny . Kopiera och klistra in följande kod i VBE :
Private Sub Calendar1_Click ( ) katalog
ActiveCell.Value = Calendar1.Value
avlastningsgränser mig
End Sub
9
Spara " Personal.xls " kalkylbladet genom att trycka på " Ctrl " och " s " samtidigt .
10
köra makrot . Klicka på " x " i det övre högra hörnet för att stänga VBE . Klicka på en cell i kalkylbladet . Tryck på " Alt " och " F8 " samtidigt . Dialogrutan Makron visas . Välj " Personal.xls ! OpenCalendar " och klicka sedan på " Kör". Kalendern kontrollen visas . Klicka på en dag i kalendern för att skriva detta datum till cellen .
