Als je ooit hebt opgenomen een macro , bent u al gebruik van VBA . De Visual Basic -editor vertaalt uw toetsaanslagen in VBA -opdrachten . De resulterende code is inefficiënt , maar het kan u helpen vertrouwd met VBA syntax en opdrachten te krijgen. Kopen van 2

In Excel , het opnemen van een eenvoudige macro . In Office XP , selecteer Macro , Nieuwe macro opnemen in het menu Extra . ( In Excel 2007 -opdrachten zijn op het tabblad Ontwikkelaars . ) Verander de macro naam of laat de standaardwaarde en druk op OK .
3 p Met de macro -recorder loopt , typ " Hello World " in cel A1 . Solliciteer Vet, Cursief en Onderstrepen , en verander het lettertype kleur naar rood . Dubbelklik op de kolom scheider in de kopregel , tussen de kolommen A en B , de breedte van de cel om de inhoud ervan verkleinen .
4

Schakel de macro -recorder door Extra , Macro , Opname stoppen .

Test 5 de macro om te controleren of het bericht verschijnt.
Onderzoek Recorded Code
6

klik met de rechtermuisknop op de tab Blad1 en selecteer View Code , of druk op Alt - F11 , de VB -editor te openen , en dubbelklik op Module 1 . Uw macro code zal er ongeveer zo uitzien :

Sub Macro1
( )

ActiveCell.FormulaR1C1 = " Hello World " Range ( " A1 " ) SelectSelection.Font.Bold = TrueSelection.Font
. . cursief = TrueSelection.Font.Underline = xlUnderlineStyleSingleColumns ( " A : A " ) . EntireColumn.AutoFitSelection.Font.ColorIndex = 3

End Sub
7

Merk op dat de macro begint met " Sub " en eindigt met "End Sub . " Elke VBA subroutine begint en eindigt op deze manier .
8

zoeken vertrouwd trefwoorden . Omdat je weet wat deze macro doet , kunt u erachter te komen dat " Selection.Font.Bold = True " verandert de selectie te vet lettertype . U kunt ook erkennen de commando's om de kolom te wijzigen en verander de kleur .
9

Ga terug naar Excel en probeer het opnemen van een paar eenvoudige macro's , elke keer dat het onderzoek van de code in de VB -editor . < Br >
Set Up de VB -editor
10

Start de VB -editor door op Alt - F11 .
11

Klik op elk menu-item aan de bovenkant om vertrouwd te raken met de beschikbare opties .
12

Stel uw omgeving met opties in het menu Beeld . Op een minimum , voeg het venster Eigenschappen en de Project Explorer . U kunt ze koppelen aan de linkerkant van het scherm door met de rechtermuisknop te klikken en te kiezen voor " Dockable . "
13

Probeer de contextgevoelige Help- functie op elk gewenst moment door op F1 te drukken .
< Br > Ontwerp
een formulier
14

in het menu Invoegen de optie Invoegen UserForm . Het gebruikers formulier is uw ontwerp canvas .
15

Als de UserForm geen pop-up , ga dan naar de Project Editor en dubbelklik op " Formulieren ", dubbelklik op UserForm1 .
< Br > 16

Toen de UserForm verschijnt , ziet u ook de Toolbox , welke controls je zal gebruiken bij het creëren van uw formulieren bevat . Zo kunt u onder meer knoppen , tekstvakken , drop- downs en labels . Beweeg uw cursor over elk om de namen te zien .
17

In sommige besturingselementen op uw formulier . Om een ​​tekstvak toe te voegen , vindt het in de toolbox , klik erop , dan beweeg je cursor naar de gebruiker Vorm en teken een rechthoek op het formulier . U zult een vorm die iets als een raam kijkt zie . Dit is waar de gebruiker zijn inbreng zal treden .

Plaats 18 meer controles op het formulier . Experimenteer met resizen en herschikken . Voor sommige besturingselementen te werken , moeten ze worden geprogrammeerd . Bijvoorbeeld , een "OK" knop heeft een bijbehorende reeks handelingen aan. Andere controles , zoals etiketten , moet meestal weinig of geen programmering
Program een Message Box
19

De " MsgBox " is ingesteld ; . Je niet hoeft te een formulier ontwerpen . Maar je zal een code nodig . U kunt programmeren " Ja", "Nee ", " OK " en " Cancel " toetsen , configureert u de prompt , en meer .

Dit postvak 20 zal de gebruiker die het bestand te sluiten zonder te waarschuwen opslaan als klikt ze "Ja . " Als ze klikt " Nee , " het bestand zal redden voor sluitingstijd . Als zij kiest " Annuleren ", wordt het bestand niet sluiten .
21

Start de VB -editor . Vanuit het menu Invoegen , plaatst u een module , dan , in de Project Explorer , dubbelklikt u op de nieuwe module . Een code-venster wordt geopend .
22

Typ de volgende routine . ( Typ niet de tekst in de haakjes die volgen . ) Sub MsgBoxTest ( ) [ subroutines beginnen altijd met Sub en eindigen met End Sub ] myTitle = " Waarschuwing " [ Wijst een waarde toe aan " myTitle . " Wanneer u " myTitle " gebruiken later , het is hetzelfde als het typen van "Waarschuwing . " ] MyMsg = " Sluiten zonder opslaan ? Alle wijzigingen zullen verloren gaan . " [ Wijst een waarde toe aan " MyMsg . " ] Response = MsgBox ( myMsg , vbExclamation + vbYesNoCancel , myTitle ) [ Definieert het bericht. Het zal bevatten " myMsg , " een waarschuwing uitroepteken , en ja , Nee en Annuleren knoppen , en de titelbalk zal lezen " Waarschuwing , " want dat is de waarde van " myTitle . " ] Select Case Response [ Select Case toewijst acties om diverse opties ] Case Is = vbYes [ Als de gebruiker klikt op Ja ] ActiveWorkbook.Close SaveChanges : . = False [Sluiten zonder opslaan ] Case Is = vbNo [ Indien de gebruiker No ] ActiveWorkbook.Close SaveChanges klikt : . = True [ Opslaan en sluiten . ] Case Is = vbCancel [ Als de gebruiker op Annuleren klikt ] Exit Sub [ Verlaat de subroutine . Doe niets . ] Einde Selecteer [ Dit beëindigt de Select Case statement . ] End Sub [ Eindigt de subroutine ]
23

Selecteer Run , Run Sub /User Form in het menu . Uw bericht box zal worden weergegeven , u hebt nu een functionerende VBA- routine geschreven

.