VBA (Visual Basic for Applications) bevat de mogelijkheid om te schrijven instructies maakt een macro die met behulp van een calculator nabootsen zal voor het invoeren van een reeks getallen en vervolgens het gemiddelde te berekenen. De code is slechts 13 lijnen lang. Het zou nuttig zijn in sommige Microsoft Office-programma's zonder een ingebouwde rekenmachine. Omdat Excel de functie van een gemiddelde bevat, zou er geen reden om deze macro gebruiken in Excel. Echter, zoals in dit voorbeeld, waarin de macro is gebouwd in Microsoft Word, kan het maken sommige ontdekken.
Open een Microsoft Office-programma die VBA (Visual Basic for Applications) ondersteunt. Voor dit voorbeeld moet u Microsoft Word gebruikt.
Klik op 'Developer' gevolgd door 'Visual Basic,' die wordt vermeld op het linkeruiteinde van een menu dat wordt weergegeven in de groep van de ontwikkelaar. Hiermee opent u het venster voor het bewerken van VBA.
Voer de volgende coderegels precies zoals ze worden hieronder weergegeven:
Sub AverageMyNumbers()
Dim strData als tekenreeks
Dim sglNbr, sglSubT, sglAverage als één
Ik = 0
Do Until strData = "X"
strData = InputBox ("Voer de nummers in te worden gemiddeld, een op een tijdstip, druk op 'Enter' om door te gaan naar het volgende nummer. Voer een kapitaal X als je klaar bent.")
sglNbr = Val(strData)
sglSubT = sglNbr + sglSubT
i = i + 1
Loop
sglAverage = sglSubT / (i - 1)
MsgBox ("het gemiddelde van deze nummers is" & sglAverage)
End SubTesten van de nauwkeurigheid van het programma door aanbieding van een reeks getallen op papier, totaal hen en delen door het aantal afzonderlijke items. Druk op "F5" voor het uitvoeren van de macro en berekenen gemiddelden. Volg de instructies en voer dezelfde reeks van getallen, eindigend met een kapitaal X. Als de resultaten niet overeenkomen, controleert de juistheid van de code die u ingevoerd, te vergelijken met stap 3.
Klik op "Macro's" in het Word-document. Sla de macro in het "normal.dotm" als u wilt gebruiken in alle Word-documenten. Andere mogelijkheden zoals het opslaan alleen voor gebruik in het actieve document wordt opgeslagen als onderdeel van een specifieke sjabloon of opslaan in alle actieve sjablonen en documenten.
- U moet het document opslaan als een Macro ingeschakeld Document om de macro gebruiken.
- Wees voorzichtig met elk programma dat lus functies bevat. Als de gebruiker niets invoert doet, zal dit programma houden gevraagd om meer nummers tot een kapitaal X is ingegaan. Het zal elke lege vermelding tellen als een ander tally in het totale aantal ingangen, gooien af het gemiddelde. Het is zelfs mogelijk om in een eindeloze lus als de gebruiker het verkeerde type gegevens invoert. In het echte leven, zou fout-overlapping code worden toegevoegd aan de gebruiker waarschuwen als dat ze een fout gemaakt en herstellen van de fout.