Ako vypočítať priemery vo VBA

VBA ( Visual Basic for Applications ) zahŕňa schopnosť písať inštrukcie vytvorením makrá , ktorá bude napodobňovať pomocou kalkulačky zadať rad čísel a potom vypočítal priemernú hodnotu . Kód je len 13 riadkov dlhý . Mohlo by byť užitočné v niektorých programoch balíka Microsoft Office bez vstavaného kalkulátora. Vzhľadom k tomu , Excel obsahuje priemerné funkciu , nebol by žiadny dôvod pre použitie tohto makra v programe Excel . Avšak, rovnako ako v tomto prípade , kedy je makro postavená v aplikácii Microsoft Word , to môže dávať zmysel . Pokyny dovolená 1

Otvorte program balíka Microsoft Office , ktorý podporuje jazyk VBA ( Visual Basic for Applications ) . V tomto príklade používať aplikáciu Microsoft Word .
2

Kliknite na " Developer " nasledované " Visual Basic " , ktorý je uvedený na ľavom menu , ktoré sa objavia v skupine Developer . Tým sa otvorí editačné okno VBA
3

Zadajte nasledujúce riadky kódu presne tak , ako sa objavujú nižšie : .

Sub AverageMyNumbers ( ) Dim STRD ako stringDim i , sglNbr , sglSubT , sglAverage Ako Singlei = 0Do Do STRD = " X " STRD = InputBox ( " Zadajte číslo , ktoré majú byť v priemere , jeden po druhom , stlačením tlačidla " Enter " pre pokračovanie na ďalšie číslo . Zadajte kapitálu X kedy urobil . " ;) sglNbr = Val ( STRD ) sglSubT = sglNbr + sglSubTi = i + 1LoopsglAverage = sglSubT /( i - 1 ) MsgBox ( " priemer týchto čísel je " & sglAverage ) End Sub
4

test presnosti programu výpis rad čísel na papieri , je celkom , a vydelením počtom jednotlivých položiek . Stlačením tlačidla " F5 " pre spustenie makra a vypočítať priemer . Postupujte podľa pokynov a zadajte rovnakú rad čísel , končiť s veľkým X. Ak výsledky nezodpovedajú , skontrolujte správnosť kódu , ktorý ste zadali , prirovnal ju k Krok 3.
5

Click na " makrá " v dokumente programu Word . Uložiť makro do " Normal.dotm " , ak chcete ju použiť vo všetkých dokumentoch programu Word . Ďalšie možnosti existujú , ako je ukladanie iba pre použitie v aktívnom dokumente , uloženie ako súčasť konkrétnej šablóny , alebo uloženie vo všetkých aktívnych šablón a dokumentov .

• Predchádzajúca strana: Ako si zmeniť odchádzajúce port servera na klienta Thunderbird ? 
• Ďalšia strana: Ako Fix Microsoft Streets a Trips