Hvordan finne Midt Antall tre tall i VBA

Visual Basic for Applications (VBA) er et programmeringsverktøy som gjør at Microsoft Office-brukere å opprette egendefinerte funksjoner og makroer. Et program som Excel kan "ringe" disse funksjonene og makroer til å utføre rutineoppgaver svært raskt. Excel har mange innebygde funksjoner du kan bruke for å få summen, gjennomsnittsverdi, minimumsverdi eller maksimumsverdien av en gruppe med numre.

Noen ganger, er en innebygd funksjon ikke er tilgjengelig for den aktuelle oppgaven. Det er da en egendefinert funksjon kan være nyttig.

Bruksanvisning

1 Planlegg funksjonen. Funksjonen vil ha tre tall, og det vil gi et resultat som er den midterste verdien. Det trenger et navn som da vil være tilgjengelig i Excel under kategorien "brukerdefinert". Et eksempel kan være: FindMidValue.

Du vil bruke "argumenter" for å overføre tallene fra Excel til funksjonen. Dette er variabelnavn som er angitt i parentes etter funksjonsnavnet. Anta de tre numrene for å vurdere er A, B og C. Det fulle navnet på funksjonen vil være:

FindMidValue (A, B, C)

2 Planlegg logikken. Dette er den rekke trinn den funksjon vil bruke for å utføre oppgaven. Tenk på de enkelte trinnene du måtte følge for å utføre denne oppgaven manuelt. For eksempel, hva er de mulige kombinasjoner av tre tall, og hvordan vil du finne den midterste verdien for hver?

For eksempel, hvis tallene er B, A, C i orden lavest til høyest: sammenligne variabel A til B; Hvis A er større, sammenligne det med C; Hvis C er større, må en være den midterste verdien. Funksjonen må også forholde seg til alle alternativene. Hva hvis A er større enn B og b er større enn C? Da sekvensen er C, B, A, og den midterste verdien er B.

3 Skriv funksjonen. Den første referansen gir detaljer om hvordan du får tilgang til Visual Basic-redigering i Excel 2010 hvor du kan skrive funksjonen. Den andre referansen gir noen generelle regler for å skrive "script" eller instruksjoner for makroer og funksjoner. Følgende skript vil lage en egendefinert funksjon som heter "FindMidValue":

Funksjon FindMidValue (A, B, C)

'Linjer innledes med "er kommentarer

'Mulige kombinasjoner er

'Bac, cab, abc CBA, ACB, BCA

'

Hvis (A <B) Deretter

'A er mindre enn b

Hvis (A> = C) Deretter

FindMidValue = A 'cab case

GoTo 100

Ellers

If (B <= C) Then

FindMidValue = B 'abc

GoTo 100

Slutt om

FindMidValue = C 'ACB

GoTo 100

Slutt om

Ellers

'A er større enn eller lik b

Hvis (A <= C) Deretter

FindMidValue = A 'bac

GoTo 100

Ellers

If (B >= C) Then

FindMidValue = B 'cba

GoTo 100

Slutt om

FindMidValue = C 'BCA

Slutt om

Slutt om

100 End Function

4 Feilsøke funksjonen. Debugging refererer til prosessen med å teste funksjonen til å sikre at det fungerer som det skal, og for å fikse eventuelle feil du avdekke. I dette tilfellet bruker funksjonen i Excel med de tre argumentene refererer til tre celler med tall i dem. Endre tallene i cellene for å se om funksjonen plukker det riktige midten nummer hver gang.