Ako nájsť Stredná počet troch čísel v jazyku VBA

Visual Basic for Applications ( VBA ) je programovací nástroj , ktorý umožňuje užívateľom Microsoft Office k vytvoreniu vlastnej funkcie a makrá . Aplikácie , ako je Excel môže " volať " tieto funkcie a makrá veľmi rýchlo vykonávať opakujúce sa úlohy . Excel má mnoho vstavaných funkcií , ktoré môžete použiť na získanie čiastky , priemerná hodnota , minimálna hodnota alebo maximálnu hodnotu skupiny numbers.Sometimes , vstavaná funkcia nie je k dispozícii pre požadovanú úlohu . To je , keď je vlastná funkcia užitočné . Návod dovolená 1

Naplánujte funkciu . Funkcie bude mať tri čísla a bude produkovať výsledky , ktoré je stredná hodnota . Bude potrebovať meno , ktoré potom bude k dispozícii v programe Excel v kategórii " užívateľom definované " . Príkladom môže byť : . FindMidValue

budete používať " argumenty " pre prenos čísla z aplikácie Excel do funkcie . Jedná sa o názvy premenných uvedené v zátvorkách za názvom funkcie . Predpokladajme , že tri čísla pre hodnotenie sú A , B a C. Úplný názov funkcie by :

FindMidValue ( A , B , C )
2

Naplánujte logiku . To je séria krokov , funkcia použije na vykonanie úlohy . Myslite na jednotlivých krokov , ktoré by museli dodržiavať , aby túto úlohu vykonať ručne . Napríklad , aké sú možné kombinácie troch čísel a ako by ste nájsť strednú hodnotu pre každú

Napríklad , ak sú čísla B , A , C v poradí od najnižšej po najvyššiu : porovnať premennú A do bodu B , ak je väčšia , porovnať ju s C , C Ak je väčší , musí byť stredná hodnota . Táto funkcia musí tiež vysporiadať so všetkými alternatívami . Čo , ak A je väčšie ako B a B je väčšie ako C ? Potom postupnosť je C , B , a stredná hodnota je B.
3

Napíšte funkciu . Prvá zmienka poskytuje informácie o tom , ako získať prístup k editore jazyka Visual Basic v programe Excel 2010 , kde môžete napísať funkciu . Druhý referenčný uvádza niektoré všeobecné pravidlá pre písanie " skript " alebo pokyny pre makrá a funkcie . Nasledujúci skript vytvorí vlastné funkcie s názvom " FindMidValue " :

Funkcia FindMidValue ( A , B , C )

" riadky predchádza Sú možné kombinácie Komentáre

" sú " bac , kabína , abc , CBA , ACB , SBK

"

( A < B ) Potom

" je menej ako b

( > = C ) Potom

FindMidValue = ' kabína prípad

GoTo 100

Else

Ak ( B < = C ) Potom

FindMidValue = B ' abc

GoTo 100

End If

FindMidValue = C ' ACB

GOTO 100

End If

Else

" je väčší alebo rovné b

( < = C ) , potom

FindMidValue = ' bac

GoTo 100

Else

( B > = C ) Potom

FindMidValue = B " cba

GoTo 100

End If

FindMidValue = C ' BCA

End If

End If

100 End Function
4

ladenie funkcie . Ladenie sa odkazuje na proces testovania funkcie , aby sa ubezpečil , že funguje, ako bolo zamýšľané , a opraviť prípadné chyby , odhaľovať . V tomto prípade použite funkciu v programe Excel s tromi argumenty , ktoré sa vzťahujú na tri bunky s číslami v nich . Zmena čísla v bunkách , či funkcia vyberie správnu strednú číslo zakaždým .

• Predchádzajúca strana: Ako mám vykonať MouseClick udalosti pomocou jazyka Visual Basic ? 
• Ďalšia strana: Ako napísať program v jazyku Visual Basic , ktorý bude výstupné Voices